vb程序设计练习题一

程序填空题（一）

1. 实现功能：当单击“显示”按钮后，显示下面的图形：

Dim i As Integer '定义i 为整型变量

Dim j As Integer '定义j 为整型变量 For i = 1 To 6 Step 1 For j = 1 To Step 1 Print Next Print Next i

2. 实现功能：在Text1中输入一个数，单击“判断”按钮后，判断这个数是奇数还是偶数，并在Label1中显示“奇数”或“偶数”出来。

Dim a As Single

Dim b As Single

a = Val( ) '从Text1中读入这个数,并保存在变量a 中

b = a Mod

If b = 0 Then

Label1.Caption = "偶数"

Else

Label1.Caption = "奇数"

3. 实现功能：当单击“显示”按钮后，随机产生10个属于区间[0，100]的自然数，并保存于数组a 中，然后在窗体上显示这10个数中的最大值。(注：学生运算结果有可能跟样图中数值不一致)

Dim a(9) As Integer Dim max As Integer

Dim i As Integer

Me.Cls

Print

Randomize For i = 0 To

a(i) = Int(Rnd * 100)

Print a(i)

Next i

max = a(0)

For i = 1 To 9

If max < a(i) Then max =

End If

Next i

Print "这10个自然数中的最大值=";

4. 实现功能：输入10个数，存放在数组中，并按输入的逆序输出在窗体上。

Dim s(9) As Single

For i = 0 To 9

= Val(InputBox("请输入一个数"))

Next i For i = 9 To 0 Step Print

Next i

5. 实现功能：在Text1中输入一个代表秒数的整数后，单击“计算”按钮后，在Label1、Label2、Label3中显示对应的小时、分钟和秒数。如在Text1中输入“3672”，Label1、Label2、Label3中分别显示“1”、“1”、“12”，即1小时1分12秒。

Dim h, m, s, ss As Integer ss = Val( ) h =

m = (ss - h * 3600) \ 60 s = (ss - h * 3600) Mod

Label1.Caption = CStr(h)

Label2.Caption = CStr(m)

Label3.Caption = CStr(s)

6. 实现功能：在Text1、Text2、Text3中输入三个整数后，单击“输出最大值”按钮后，在Label3中显示这3个数中的最大值。

Dim a, b, c, max As Integer

@ @@

@@@ @@@@ @@@@@

@@@@@@

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text) If a > b Then max = a Else If c > max Then Label3.Caption = CStr( )

7. 实现功能：单击按钮后打印出下面所示的图案。(第一行的第一个“*”从第5列开始输出)

Dim i, j As Integer For i = 1 To

Print Tab(6 - i); For j = 1 To Print ;

Next j

Print

Next i

8. 某超市苹果价格每斤4元，购买10斤以上(包括10斤)将享受8折优惠。实现功能：使得在Text1中输入重量并单击“计算”按钮后，在Label1中显示对应的价格。

Dim x, s As Single

x = Val(Text1.Text) If Then s = 4 *

Else

s = 4 * x

End If Label1.Caption = CStr( )

9. 在窗体上有一个"标签"控件Label1和两个"命令按钮"控件，命令按钮command1上显示"上移"，另一个命令按钮command2上显示"下移"。单击“上移”按钮，使得标签向上移动100，单击“下移”按钮，使得标签向下移动100

Private Sub Command1_Click()

End Sub

Private Sub Command2_Click()

End Sub

10. 实现功能：在三个文本框中输入一元二次方程的三个系数后，单击命令按钮，程序求出该方程的解。 Dim a, b, c, p As Single

a = Val(Text1.Text)

b = Val( )

c = Val(Text3.Text)

p = b * b - 4 * a * c If Then

X1 = (-b + Sqr(p)) / (2 * a)

X2 = (-b - Sqr(p)) / (2 * a)

Print "X1="; X1

Print "X2="; X2

Print "该方程无实数根"

End If

11. 实现功能：给出三角形的三边边长a ，b ，c （输入保证能构成三角形，无需判断正确性），输出三角形面积。三角形面积计算公式：))()((c q b q a q q s ---=，其中q=(a+b+c)/2。

Dim s As Single:Dim q As Single

Dim a As Single:Dim b,c As Single

= Val(InputBox("请输入边长a 的值："))

b = Val(InputBox("请输入边长b 的值："))

c = Val(InputBox("请输入边长c 的值："))

q = (a + b + c) / 2 s = (q * (q - a) * (q - b) * (q - c)) Print

12. 实现功能：从键盘上输入一个三位数，然后将它反向输出。例如输入“123”，输出结果为“321”。 Private Sub Command1_Click()

Dim a As Integer, b As Integer

Dim bai As Integer, shi As Integer