VB总复习+.docVIP

编写如下代码： Private Sub Form_Click( ) Dim a,b,c as string A=“你好” B=“北京” C=b “,” a Print c End Sub 单击窗体后输出结果为 。 读程序 Function F(a As Integer) Dim b As Integer Static c As Integer b = b + 3 c = c + 3 F = a + b + c End Function Private Sub Command1_Click() Dim a As Integer a = 5 For i = 1 To 3 Print F(a) Next i End Sub 写出程序运行时，单击命令按钮在窗体上的输出结果。 读程序 Sub Change(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = t Print x, y End Sub Private Sub Form_Click() Dim a As Integer, b As Integer a = 4: b = 8 Change a, b Print a, b End Sub 写出程序运行时单击窗体后，输出结果为： 读程序 Sub Change(ByVal x As Integer, y As Integer) Dim t As Integer t = x x = y y = t Print x, y End Sub Private Sub Form_Click() Dim a As Integer, b As Integer a = 10: b = 20 Change a, b Print a, b End Sub 写出程序运行时单击窗体后，Form1上的输出结果。 读程序 Private Sub Form_Click() Dim x As Integer Static y As Integer x = x + 5 y = x + y Form1.Print x=; x, y=; y End Sub 写出程序运行时连续单击三次窗体后，Form1上的输出结果。 读程序 Private Sub Command1_Click() Dim n As Integer, y As Integer, x As Integer a = 1 Do While a 8 n = n + 1 b = b + 2 a = a * (a + 1) Loop Text1.Text = n Text2.Text = a Text3.Text = b End Sub 写出程序运行时单击Command1后，文件框Text1、 Text2和 Text3的输出结果。 读程序 Private Sub Form_Click() Dim I As Integer, j As Integer Dim c As Integer c = 1 For I = 1 To 3 For j = 1 To 2 c = c + 3 Next j Next I Print c End Sub 变量C的值是： 程序阅读 Private Sub Command1_Click() Dim s As Double Dim i As Integer s = 5 i = 1 Do While i 9 i = i + 2 s = s + i Loop Text1.Text = s End Sub 写出程序运行时，单击命令按钮文本框Text1中的输出结果。 阅读程序 Private Sub Command1_Click() Dim x As Integer Static 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 程序运行时连续3次单击Command1，且设输入的数据为6、5、4时，分别写出文本框Text1的值。 阅读程序 Private Sub Command1_Click() Dim a As Intege