Question

分析VB程序结果

虽然只要输入就有结果，可是还是不会自己分析，求大神指教帮忙分析，最好讲的细一点
6.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
程序运行时连续4次单击Command1，且设输入的数据为6、5、4、3时，分别写出文本框Text1的值。
7． Private Sub Command1_Click()
Dim A(2 To 7) As Integer
Dim b As Integer
For b = 2 To 7
A(b) = b
Next b
Text1.Text = A(b - 2)
End Sub
程序运行后，单击命令按纽文本框Text1的结果是：
8.Private Sub Form_Load()
Show
Dim x As Single, y As Single
x = Val(InputBox("输入一个数据:", "数据输入", 0#))
y = IIf(x >= 0, 1 - 2 * x, 1 + x)
Print y
EndSub
写出程序运行时，输入3时窗体上输出的结果：
9.Private Sub Form_Click()
Dim iAs Integer, a As Integer
k = 0
For i= 1 To 6
Ifi>3 Then
a = a+ 5
Else
a = a+ 2
End If
Next i
Printi, a
End Sub
写出程序运行时单击窗体后，Form1上的输出结果。
10.Dim a(1 To 10)

Private Sub Form_Click()
For i = 1 To 10
a(i) = i
If i Mod 5 = 0 Then
Print a(i)
Else
Print a(i); " ";
End If
Next i
End Sub
写出程序运行时单击窗体后，Form1上的输出结果:

Answer 1

第6题
首先s是一个静态变量，初始值为0，第一次输入6,6>5，所以执行语句s = s + x，得到Text的值为6

第二次输入5，执行语句s = s + x，因为s为静态变量，此时的s=6，得到text的值为11，依此类推做下去就可以了，第三次输入4，执行语句s = s * x，得到结果为44，第四次输入3，执行语句s = s + x，得到结果为132.

第7题
Private Sub Command1_Click()
Dim A(2 To 7) As Integer
Dim b As Integer
For b = 2 To 7
A(b) = b ‘从这条语句可以看出，a(2)=2,a(3)=3......a(7)=7
Next b
Text1.Text = A(b - 2) ’此时的b=8，即求a(6)的值，为6
End Sub

第8题
y = IIf(x >= 0, 1 - 2 * x, 1 + x) 输入3，x>=0为真，输出的值为1-2*x,即 -5

IIf(expr, truepart, falsepart)

expr 用来判断真假的表达式，如为真，则返回值为第二个参数，为假，返回值为第三个参数。

第9题
Dim iAs Integer, a As Integer
k = 0
For i= 1 To 6
Ifi>3 Then ‘判断a是否大于3，大于3则a+5，小于等于3则a+2
a = a+ 5
Else
a = a+ 2
End If
Next i
Printi, a
这道题简单点说就是：a+5执行3次，a+2执行3次，得到最终结果为21

第10题
这个很简单

1 2 3 4 5
6 7 8 9 10

追问

大神可以帮忙分析我另外五题么

追答

可以啊，不过我也是菜鸟，能帮到你我很开心

Answer 2

6、s= 132 7、6 8、-5 9、9 21
10、1 2 3 4 5
6 7 8 9 10