题目内容（请给出正确答案）

[主观题]

下列程序是在文本框中输入成绩，按回车后，根据成绩显示...

下列程序是在文本框中输入成绩，按回车后，根据成绩显示星级，如下图所示。星级成绩范围：90—100分为3星，75-89分为2星级，60-74分为1星级，小于60分0星级。下列程序是在文本框中输入成绩，按回车后，根据成绩显示...下列程序是在文本框中输入成绩，按回车后，根 Private Sub TextBox1_KeyPress(···) Handles TextBox1.KeyPress Dim m, n As Integer If Asc(_____(1)_____) = 13 Then m = Val(TextBox1.Text) Select Case _____(2)_____ Case 90 To 100 Label1.Text = m & "分3星" Case 75 To 89 Label1.Text = m & "分2星" Case 60 To 74 Label1.Text = m & "分1星" Case _____(3)_____ Label1.Text = m & "分0星" End Select End If End Sub 补全程序，在答题时，务必在答题框中写好题号和答案，如下： (1)： _________ (2)： _________ (3)： _________

暂无答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装上学吧APP，拍照搜题省时又省心！

更多“下列程序是在文本框中输入成绩，按回车后，根据成绩显示...”相关的问题

第1题

在窗体上从仨到右有Text1、Text2两个文本框，如图所示，要求程序运行时，在Text1 中输入1个分数后按回车键，则判断分数的合法性，若分数为0～100中的1个数，则光标移到Text2中；否则光标不动，并弹出对话框显示“分数错”。下列程序中正确的是（）。

A.Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii==13 Then 回车符的ASCIl码是13 a=Val(Text1) If a>=0 Or a<=100 Then Text2．SetFocus Else Text1．SetFocus：MsgBox("分数错") End If End If End Sub

B.Private Sub Textl—KeyPress(KeyAscii As Integer) If KeyAseii=13 Then 回车符的ASCIl码是13 a=Val(Text1) If a>=0 And a<=100 Then Textl．SetFocus Else Text2．SetFocus：MsgBox("分数错") End If End If End Sub

C.Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then 回车符的ASCII码是13 a=Val(Text1) If a<0 And a>100 Then Text2．SetFocus Else Text1．SetFocus：MsgBox("分数错") End If End If End Sub

D.Private Sub Text1_KeyPress(KeyAscii As Integer) If KevAscii=13 Then 回车符的ASCII码是13 a=Val(Textl) If a>=0 Aad a<=100 Then Text2．SetFocus Else Text1．SetFocus：MsgBox("分数错") End If End If End Sub

点击查看答案

第2题

下列程序是在文本框Text1中输入任意一个字符，按回车后...

下列程序是在文本框Text1中输入任意一个字符，按回车后，判断是数字字符、字母字符或其它字符，然后选中相应的单选按钮。程序运行效果如下图所示。Private Sub Text1_KeyPress(KeyAscii As Integer) Dim ch As String If KeyAscii = ______(1)______ Then ch = Text1.Text Select Case ______(2)______ Case "0" To "9" Option1.Value = True Case "a" To "z", ______(3)______ Option2.Value = True Case Else Option3.Value = True End Select End If End Sub 补全程序，在答题时，务必在答题框中写好题号和答案，如下： (1)： _________ (2)： _________ (3)： _________

点击查看答案

第3题

下面的程序用于根据文本框Test中输入的内容进行以下处理：若Text为1，则打印“您的成绩为优秀！”；若Text为2，则打印“您的成绩为良好!”；若Text为3，则打印“您的成绩为一般”；否则打印“您的成绩一般以下!”，请填空。 Private Sub Command1_Click( ) Selct Case Val(Text1.Text) Case【】 Print "您的成绩为优秀！" Case【】 Print "您的成绩为良好！" Case【】 Print "您的成绩为一般！" Case Else Print "您的成绩为一般以下！" End Select End Sub

点击查看答案

第4题

在窗体上从左到右有Text1、Text2两个文本框(见图)，要求运行程序时在Text1中输入—个分数后按回车键，则判断分数的合法性，若分数为0～100中的—个数，则光标移到Text2中；否则光标不动，并弹出对话框“分数错”。下面程序中正确的是______。

A．Private Sub Text1_KeyPress(KeyAscii As Integer) IfKeyAscii=13 Then '回车符的ASCII码是13 a=Va1(Text1) If a＞=0 Or a＜=100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox("分数错") End If End If End Sub

B．Private Sub Text1_KeyPress(KeyAscii As Integer) IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) Ifa＞=0 And a＜=100 Then Text1.SetFocus Else Text2.SetFocus : MsgBox("分数错") End If End If End Sub

C．Private Sub Text1_KeyPress(KeyAscii As Integer) IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) If a＜0 And a＞100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox("分数错") End If End If End Sub

D．Private Sub Text1_KeyPress(KeyAscii As Integer) IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) If a＞=0 And a＜=100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox("分数错") End If End If End Sub

点击查看答案

第5题

下列过程的功能是：在对多个文本框进行输入时，对第一个文本框(text1)输入完毕后用回车键使焦点跳到第二个文本框(text2)，而不是用TAB键来切换。请填空。

Private Sub [11] KeyDown(KeyCode As Integer,Shift As Integer)

If KeyCode [12] vbKeyRetum Then

Text2.SetFocus

End If

End Sub

点击查看答案

第6题

填空：执行下面程序，在“输入”文本框中输入“14,5,8,19,21”后，单击“输入数组”命令按钮Command1，数组元素a(2)的值是 (1) ，在单击“数组处理”命令按钮Command2后，数组元素a(1)的值变为 (2) ，a(3)的值变为 (3) 。 Option Explicit Option Base 1 Dim a() As Integer Private Sub Command1_Click() '输入数组 Dim i As Integer, j As Integer, st As String st = Text1.Text Do Until InStr(st, ",") = 0 i = InStr(st, ",") j = j + 1 ReDim Preserve a(j) a(j) = Val(Left(st, i - 1)) st = Right(st, Len(st) - i) Loop ReDim Preserve a(j + 1) a(j + 1) = Val(st) End Sub Private Sub Command2_Click() '数组处理 Dim i As Integer, t As Integer, j As Integer For i = 2 To UBound(a) If a(i) > a(1) Then t = a(i) For j = i To 2 Step -1 a(j) = a(j - 1) Next j a(1) = t End If Next i For i = 1 To UBound(a) Text2.Text = Text2.Text &Str(a(i)) Next i End Sub

点击查看答案

第7题

下列程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。 Private Sub Command1_Click() x=Val(Text1.Text) If______Then Print x Else ______ Text1.Text="" End If End Sub

点击查看答案

第8题

下列程序是将两个文本框(text1和text2)的内容进行组合，组合后的结果在图片框(Pic1)显示出来。 Private Sub Command1_Click() Dim sl As String，s2 As String S1=Text1.Text S2=TextText For i=Len(s1)To 1 Step-1 s3=s3+Mid(s1，i，1)+Mid(s2，i，1) Next i Pic1.Print s3 End Sub 程序运行后，在Text1文本框中输入“ABCDE”，在Text2文本框中输入“12345”，单击命令按钮，则在Pic1图片框中显示的内容是

A．E5D4C3B2A1

B．ABCDE12345

C．12345ABCDE

D．A1B2C3D4E5

点击查看答案

第9题

在窗体上有一个文本框Text1和一个标签Label1，要求运行程序时，在文本框中输入的内容立即显示在标签中(如图1所示)，则空白处应填入的内容是（）。