VB综合应用题

综合应用题

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 & \\ 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

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、编写程序求?k??k2的值，要求结果显示在窗体上。

k?1k?110050Private 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) 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 & \ 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

本文来源：https://www.bwwdw.com/article/9uo2.html