Vb复习 试卷试题.docVIP

条件分支 ⒉ 程序2（5分） Private Sub Form_Click() 设输入数据分别为14，3，125，21， Dim a As Integer 问label1.Caption的值分别是多少？ a = Val(InputBox(请输入数据,，100)) Select Case a mod 5 Case Is 4 w = a + 10 Case Is 2 w = a * 2 Case Else w = a - 10 End Select Label1.Caption = w= Str(w) End Sub 静态变量 ⒈ 程序1 写出运行时连续四次单击窗体Form1时窗体上的输出结果（5分）。 Private Sub Form_Click() Static a As Integer Dim b As Integer b = a + b + 1 : a = a + b Form1.Print a=;a,b=;b End Sub 1. 程序１(5分) Private Static Sub Command1_Click() Dim x As Integer, s As Integer x = val(InputBox(请输入一个正整数=)) If x 5 Then s = s * x Else s = s + x End If Text1.Text = s= + Str(s) End Sub 程序运行时连续三次单击Command1，且设输入的数是5、2和4时，分别写出文本框Text1.Text的值。 循环 2. 程序２(5分) Private Sub Form_Click() Form1.Cls w = 3 For k = 2 To 6 Step 2 Print w=; w, k=; k w = w + 1 Next k Print w=; w, k=; k End Sub 写出程序运行时单击窗体后，Form1上的输出结果。 1. 程序运行时单击Command1后，分别写出文本框Text1、Text2和Text3的Text值（5分） Private Sub Command1_Click() n = 0 x = 1 y = 0 Do While x 20 n = n + 1 y = x + y x = x * (x + 1) Loop Text1.Text = n= Str(n) Text2.Text = x= Str(x) Text3.Text = y= Str(y) End Sub 1. 程序运行时单击Command1后， Private Sub Command1_Click() Dim x As Long, y As String x = InputBox(, ) Do While x 0 y = y x Mod 10 y = x \ 10 Mod 10 y x = x \ 100 Print y Loop End Sub 内部函数 3. 程序３(5分) Private Sub Form_Click() Dim x As String Dim i As Integer, n As Integer Form1.Cls x = ABCDEFGHKL n = Len(x) For i = n To 1 Step -2 Print Tab(20 - i); Mid(x, i, 1) Next i End Sub 写出程序运行时单击窗体后，Form1上的输出结果。 1. 程序１: 写出单击Command1后，窗体上的显示结果。 Private Sub Comm