A = 1: B = 2: C = 3 Call SS(A, B, C) Print A, B, C End Sub
39
综合应用题
1、编写程序，求圆柱体的底面积、侧面积和体积。运行界面如图所示。
Command1
Private Sub Command1_Click() Const pi = 3.14 Dim r As Single Dim h As Single r = Val(Text2.Text) h = Val(Text1.Text) Text3.Text = pi * r ^ 2 Text4.Text = 2 * pi * r * h
Text5.Text = Val(Text3.Text) * Val(Text1.Text) End Sub
2、用条件语句实现：从文本框（Text1）输入一个数，单击“判断”按钮（Command1）判断它能否同时被3、5、7整除，若能整除，则用消息框（Msgbox函数）显示“能同时被3、5、7整除”，否则显示“不能整除”。
Private Sub Command1_Click() a = Val(Text1.Text)
If a Mod 3 = 0 And a Mod 5 = 0 And a Mod 7 = 0 Then MsgBox \能同时被3、5、7整除\ Else
MsgBox \不能整除\ End If End Sub
40
3、使用循环控制结构在窗体上打印出下三角形式的九九乘法表。（界面如图所示）
Command1
Private Sub Command1_Click()
Dim a(9, 9) As Integer, i As Integer, j As Integer For i = 1 To 9 For j = 1 To i a(i, j) = i * j Print i & \\ Next j Print Next i End Sub
4、编写程序，对输入的学生成绩给出五级评分。要求：学生成绩由文本框（Text1）输入，结果显示在标签（Label1）中。评分标准如下： 优 90≤成绩≤100 良 80≤成绩<90 中 70≤成绩<80 及格 60≤成绩<70 不及格 0≤成绩<60
Private Sub Command1_Click() grade = Val(Text1.Text) Select Case grade
Case Is > 100,Is < 0 Label1.caption=\
MsgBox \请输入正确分数\错误\ Text1.SetFocus Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text) Case Is >= 90
Label1.Caption = \优\ Case Is >= 80
Label1.Caption = \良\ Case Is >= 70
Label1.Caption = \中\ Case Is >= 60
41
Label1.Caption = \及格\ Case Is >= 0
Label1.Caption = \不及格\ End Select
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text) End Sub
5、编写程序求
?k??kk?1k?1100502的值，要求结果显示在窗体上。
Private Sub Command1_Click() Dim i As Integer, sum As Long For i = 1 To 100 sum = sum + i Next i
For i = 1 To 50
sum = sum + i ^ 2 Next i Print sum End Sub
6、随机生成15个100以内的正整数并显示在一个文本框（Text1）中，再将所有对称位置的两个数据对调后显示在另一个文本框（Text2）中（第1个数与第15个数对调，第2个数与第14个数对调，??，第7个数与第9个数对调）。
Option Base 1
Private Sub Command1_Click() Dim a(15) As Integer For i = 1 To 15
a(i) = Int(Rnd * 100 + 1)
Text1.Text = Text1.Text & “ ” & a(i) Next i
For i = 1 To 7 t = a(i)
a(i) = a(16 - i) a(16 - i) = t Next i
For i = 1 To 15
Text2.Text = Text2.Text & “ ” & a(i) Next i End Sub
7、随机生成20个两位正整数显示在一个文本框（Text1）中，并求出它们的平均值显示在另一个文本框（Text2）中。
Option Base 1
42
Private Sub Command1_Click() Dim a(20) As Integer For i = 1 To 20
a(i) = Int(Rnd * 90 + 10)
Text1.Text = Text1.Text & \ Sum = Sum + a(i) Next i
Text2 = Str(Sum / 20) End Sub
8、随机生成50个三位正整数显示在一个文本框中（Text1）中，并将它们逆序显示在另一个文本框（Text2）中。
Option Base 1
Private Sub Command1_Click() Dim a(50) As Integer For i = 1 To 50
a(i) = Int(Rnd * 900 + 100)
Text1.Text = Text1.Text & \ Next i
For i = 50 To 1 Step -1
Text2.Text = Text2.Text & \ Next i End Sub
9、用InputBox函数输入10个数到数组A中，输入后将这10个数显示在一个文本框（Text1）中，并计算其中所有正数的和，将结果显示在另一个文本框（Text2）中。
Option Base 1
Private Sub Command1_Click() Dim a(10) As Integer For i = 1 To 10
a(i) = Val(InputBox(\输入数据\ Text1.Text = Text1.Text & \ If a(i) > 0 Then Sum = Sum + a(i) Next i
Text2 = Sum End Sub
10、生成100个[0,100]之间的随机整数存于数组A中，并将它们显示在一个文本框（Text1）中，在数组A中查找指定的元素Number。要求：Number用InputBox函数输入，查找结果显示在窗体上。
Option Base 1
Private Sub Command1_Click() Dim a(100) As Integer For i = 1 To 100
a(i) = Int(Rnd * 101)
Text1.Text = Text1.Text & \
43