VB-阅读题及答案.docVIP

选择结构 在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1?Text2的文本框，然后编写如下事件过程： Private Sub Command1_Click() n=Text1.Text Select Case n Case 1 To 20 x=10 Case 2, 4, 6 x=20 Case Is 10 x=30 Case 10 x=40 End Select Text2.Text=x End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是 10 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x = -5 If Sgn(x) Then 　　 y = Sgn(x ^ 2) Else 　　y = Sgn(x) End If Print y End Sub 程序运行后，单击命令按钮，窗体上显示的是 1 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=InputBox(Input) Select Case x Case 1,3 Print 分支 1 Case Is 4 Print 分支 2 Case Else Print Else 分支 End Select End Sub 程序运行后，如果在输入对话框中输入2，则窗体上显示的是 Else分支 Private Sub Command1_Click() A = 75 If A 60 Then I = 1 ElseIf A 70 Then I = 2 ElseIf A 80 Then I = 3 ElseIf A 90 Then I = 4 End If Print I=; I End Sub 程序运行后，单击命令按钮，窗体上显示的是 1 阅读下列程序，写出运行结果。 Private Sub Command1_Click() Dim x As Integer, s As Integer x = Val(InputBox(请输入一个正整数)) If x 5 Then s =x * x Else s = x + x End If Text1.Text = Str(s) End Sub 程序运行时连续三次单击Command1，且设输入的数是5，2和4时，分别写出文本框text1.text的值。 10 4 16 阅读程序 Private Sub Form_Click() Dim strC As String*1 strC=InputBox(请输入数据) Select Case strC Case a To z,A To Z Form1.Print strC+ Is Alpha Character Case 0 To 9 Form1.Print strC+ Is Numeral Character Case Else Form1.Print strC+ Is Other Character End Select End Sub 设输入的数据为“W”时，单击窗体后，窗体上显示是什么？ W Is Alpha Character 阅读程序 Private Sub Form_Click() Dim strC As String*1 strC=InputBox(请输入数据) Select Case strC Case a To z,A To Z Form1.Print strC+ Is Alpha Character Case 0 To 9 Form1.Print strC+ Is Numeral Character Case Else Form1.Print strC+ Is Other Character End Select End Sub 设输入的数据为“8”时，单击窗体后，窗体上显示是什么？ 8 Is Numeral Character 阅读程序 Private Sub Form_Click() Dim strC As String*1 strC=InputBox(请输入数据) Select Case strC Case a To z,A To Z Form1