VB综合应用题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
综合应用题
1、编写程序，求圆柱体的底面积、侧面积和体积。运行界面如图所示。
Private Sub Command1_Click()
Const pi = 3.14
Command1
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
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 & "×" & j & "=" & a(i, j) & Space(2);
Next j
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
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
Label1.Caption = "及格"
Case Is >= 0
Label1.Caption = "不及格"
End Select
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
5、编写程序求∑∑==+100150
12k k k k 的值，要求结果显示在窗体上。
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
中，再将所有对称位置的两个数据对调后显示在另一个文本框（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)
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
Private Sub Command1_Click()
Dim a(20) As Integer
For i = 1 To 20
a(i) = Int(Rnd * 90 + 10)
Text1.Text = Text1.Text & " " & a(i)
Sum = Sum + a(i)
Next i
Text2 = Str(Sum / 20)
End Sub