End Sub
程序2. 请写出单击窗体后，窗体上的显示结果。
Private Sub Form_Click()
Dim a As String, b As String a = \ b = \ e = Right(a, 3) f = Mid(b, 2, 3)
If e < f Then Print e + f Else Print f + e
End Sub
程序3. 请写出单击窗体后，窗体上的显示结果。 Private Sub Form_Click()
Dim i As Integer, j As Integer Dim n As Integer n = 0
For i = 1 To 3
For j = 5 To 1 Step -1 n = n + 1 Next j, i Print n; j; i
End Sub
程序4. 请写出单击窗体后，窗体上的显示结果。
Private Sub Form_Click( )
Dim i As Integer
Static Sum As Integer For i=1 To 10
Sum= Sum+i
Next i Print Sum End Sub
程序5. 请写出单击命令按钮后，窗体上的显示结果。
Private Sub Command1_Click()
Dim s As Integer, i As Integer s = 1 i = 1
Do While i <= 4 s = s * i i = i + 1 Loop
Print \
End Sub
程序6. 请写出单击命令按钮后，窗体上的显示结果。
Private Sub Command1_Click()
Dim i As Integer Do Until i >= 3
Print Tab(4 * i + 1); \i = i + 1 Loop End Sub
三、程序填空题
234n?1n??1???????11．【程序说明】下面是一段计算数学表达式 2 ! ! 4 ! n ! 的程序。 3Private Sub Form_Click()
Dim n As Integer, p As Integer, s As Sigle, q As Integer, i As Integer n = InputBox(\请输入N的值:\ s = 0：p = -1：q = 1 For i = 1 To n
p = -p: q = （1） s = （2） （3） Print s
End Sub 2．【程序说明】下列程序用于计算1+（1+3）+（1+3+5）+?+（1+3+5+?+39）。
Private Sub Form_Click()
Dim t As Integer, m As Integer Dim sum As Integer t = 0 m = 1 sum = 0 Do
t = （1） sum = sum + t
（2） Loop While （3） Print \
End Sub 3．【程序说明】下列程序在文本框Text1中输入任一字符串，并按相反的顺序显示在文本框Text2中。
Private Sub Command1_Click()
Dim n As String, c As String, d As String n = Text1.Text
m = （1） For i = m To 1 Step -1
c = Mid(n, i, 1)
d = （2） Next i
（3）
End Sub
四、程序设计题
1．用InputBox函数输入3个任意整数，按从大到小的顺序输出。 2．编程，输入x值，按下式计算并输出y值。 ?x?5?2?x
y?f(x)???x?0?x?51?x?5 0?x?1x?03．计算下式的和，变量x与n的数值用输入对话框输入。
xx3x5x7x2n?1n?1 sinx???????(?1)?13!5!7!(2n?1)!
4．用近似公式求自然对数的底数e的值，直到前后两项之差小于10-4为止。
1111e?1????...? 1!2!3!n!
习题四
一、选择题
1．窗体通用部分的语句“Option Base 1”，决定本窗体中数组下标界 。
A、下界必须为1 B、缺省的下界为1 C、下界必须为0 D、缺省的下界为0 2．用Dim c(2 to 5) As Integer 语句定义的数组占用 个字节的内存空间。
A、4 B、8 C、6 D、10 3．以下 是VB合法的数组元素。
A、x9 B、x[9] C、x(9) D、x{9} 4．设有数组声明语句：Dim a(2,3 to 4) As Integer
以上语句所定义的数组a为 维数组，共有 个元素，第一维下标从 到 ，第二维下标从 到 。
A、0 B、1 C、2 D、3 E、4 F、5 G、6 H、9 二、程序阅读题（写出下列程序的运行结果）
程序1. 在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click()
Dim a(5) As Integer,b(5) As Integer For j =1 to 4
a(j)=3*j b(j)=a(j)*3 Next j
Text1.text=b(j\\2) End Sub
程序运行后，单击命令按钮，写出程序的运行结果。
程序2. 在窗体中添加一个命令按钮（其Name属性为Command1），然后编写如下代码：
Private Sub Command1_Click()
Dim a(10) As Integer Dim p(3) As Integer k = 1
For i = 1 To 10
a(i) = i Next i
For i = 1 To 3
p(i) = a(i * 2) Next i
For i = 1 To 3
k = k + p(i) * 2 Next i Print k End Sub
程序运行后，单击命令按钮，写出程序的运行结果。
程序3. 请写出单击窗体后，窗体上的显示结果。
Private Sub Form_Click()
Dim a(5, 5) As Byte, i AsByte, j As Byte For i = 1 To 5 : For j = 1 To 5 a(i, j) = i * j Next j, i
For i = 1 To 5 : Print a(i, i); : Next i
End Sub
程序4. 请写出单击窗体后，窗体上的显示结果。
Private Sub Form_Click()
Dim a(1 To 2,1 To 3) As Integer, i As Integer, j As Integer For i = 1 To 2 For j = 1 To 3
a(i,j) = i + j: Print Tab(j * 5 + 2); a(i,j), Next j Print Next i
End Sub 三、程序填空题
1．【程序说明】以下程序产生30个两位随机整数、并按从小到大的顺序存入数组a中，再
