VB程序设计阶段练习2（专科）

End Sub

7．下列程序功能：通过输入对话框输入三个数，将它们分别显示在窗体的三个标签框内，并求出其中最大数在输出对话框内输出结果。请填写程序空白处使程序完整。

Private Sub Command1_Click() Dim a As Integer, b As Integer Dim c As Integer, m As Integer

a = Val(InputBox(\请输入第一个数\输入对话框\

b = Val(InputBox(\请输入第二个数\输入对话框\ c = Val(InputBox(\请输入第三个数\输入对话框\ Label1 = \ Label2 = \ Label3 = \ If a > b Then m = a Else

m = b End If

If c > m Then m = c

MsgBox \最大的数为： \信息框\

End Sub

8．下列程序功能：通过输入对话框输入一个字符，首先将该字符显示在文本框1（Text1）内，再判别该字符，若它是大写字母，则把它变成小写字母；若它是小写字母，则把它变成大写 字母；若它是其他字母，则其值不变。最后再将该字符显示在文本框2（Text2）中。请填写程序空白处使程序完整。

Private Sub Command1_Click() Dim ch As String * 1

ch = InputBox(\请输入一个字符：\

Text1.Text = ch

If ch >= \ Then ch = LCase(ch)

ElseIf ch >= \ ch = UCase(ch) Else Print End If

Text2.Text = ch End Sub

9．下列程序功能：求S＝1＋2＋3＋……＋100的和，将求和结果显示在窗体的第10列位置处，显示内容为S＝5050。请填写程序空白处使程序完整。 Private Sub Command1_Click() Dim k As Integer, s As Long

s = 0 For k = 1 To 100 s = s + k Next Print

Print Tab(10); \ End Sub

10．下列程序功能：在窗体上输出10～30之间不能被3整除的数（要求每一个数都在同一行上输出）。请填写程序空白处使程序完整。 Private Sub Command1_Click() Cls

Dim x As Integer x = 10 Print Do

If x Mod 3 <> 0 Then

Print x End If x = x + 1

Loop While x < 30或 Until x>30 End Sub

四、程序阅读题

1．下列程序段运行后，输出结果为 7 。 x = Int(Rnd) + 3

If x ^ 2 > 8 Then y = x ^ 2 + 1 If x ^ 2 = 9 Then y = x ^ 2 - 2 If x ^ 2 < 8 Then y = x ^ 3 Print y

2．下列程序段运行后，输出结果为 a=15 。 a = 0

For i = 1 To 5 For j = i To 5 a = a + 1 Next j Next i

Print \

3．下列程序段运行后，输出结果为 42 。 c = 1

Do While c < 40 c = c * (c + 1) Loop Print c

4．下列命令按钮事件过程执行后，输出结果为 10 。 Private Sub Command1_Click() For i = 1 To 10 Step 2 A = 10

For j = 1 To 10 Step 2 B = 20 Next j Next i Print A End Sub

5．下列程序段运行后，输出结果为 ***** *** * 。

For i = 3 To 1 Step -1 Print Spc(5 - i);

For j = 1 To 2 * i - 1 Print \ Next j Print Next i

6．下面程序运行后输出的结果是 2 20 3 21 4 22 5 23 。

Private Sub Command1_Click() For i = 0 To 3

Print Tab(5 * i + 1); \ Next i End Sub

7．下面程序运行后输出的结果是 **$$$****$$$$$ 。

Private Sub Command1_Click() a = \ For i = 1 To 4

If i Mod 2 = 0 Then

x = String(Len(a) + i, B)

Else

x = String(Len(a) + i, a) End If Print x; Next i End Sub

8．执行下面程序，打印结果是 13 6 。 Option Explicit

Private Sub Form_Click()

Dim i As Integer, j As Integer j = 10

For i = 1 To j Step 2 i = i + 1 j = j - 1 Next i Print i, j End Sub

五、编程题

1．编写程序：随机产生三个数，求出其中最小的那个数。

Private Sub Command1_Click() a = Int(Rnd * 100) b = Int(Rnd * 100) c = Int(Rnd * 100) If (a < b) Then Min = a Else

Min = b End If

If Min > c Then Min = c End If

Print a; b; c

Print \End Sub

2．判断某一年是否闰年（提示：年号（y）能被4整除，但不能被100整除；或者能被400整除）。Private Sub Command1_Click() y = Val(InputBox(\请输入年份\

If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 Then Print y & \年是闰年\ Else