VB操作题顺序结构操作题

VB6—顺序结构操作题一、操作题，每题10分，6题共60分
【第1题】
打开“Z:\12\工程1.vbp”，完善Command1_Click事件代码并保存。

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

如在Text1中输入“3672”，Label1、Label2、Label3中分别显示“1”、“1”、“12”，即1小时1分12秒。

Private Sub Command1_Click()
Dim h As Integer
Dim m As Integer
Dim s As Integer
Dim ss As Integer
ss = Val(①)
h = ②
m = (ss - h * 3600) \ 60
s = (ss - h * 3600) Mod ③
Label1.Caption = Str(h)
Label2.Caption = Str(m)
Label3.Caption = Str(s)
End Sub
【第2题】
打开文件“考生文件夹\26\工程1.vbp”，完善Command1_Click及Command2_Click事件代码并保存。

在窗体上有一个“标签”控件Label1和两个“命令按钮”控件，命令按钮command1上显示“上移”，另一个命令按钮command2上显示“下移”。

实现功能：
（1）设置标签控件Label1属性，显示文字为“欢迎进入算法与程序设计”；
（2）单击“command1”时，Label1上移100个单位；单击“command2”，Label1下移100个单位。

【第3题】
打开文件“考生文件夹\32\工程1.vbp”，完善Command1_Click事件代码并保存。

实现功能：从键盘上输入一个三位数，然后将它逆序输出到对应文本框中。

例如输入为“123”时，输出结果为“321”。

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim bai As Integer
Dim shi As Integer
Dim ge As Integer
a = Val(①)
bai = a \ 100
shi = (a - bai * 100) \ 10
ge = a Mod 10
② = ge * 100 + shi * 10 + bai
③ = Str(b)
End Sub
【第4题】
打开“Z:\36\工程1.vbp”，完善Command1_Click事件代码并保存。

实现功能：给出三角形的三边边长a，b，c（输入保证能构成三角形，无需判断正确性），输出三角形面积。

三角形面积计算公式：
Private Sub Command1_Click()
Dim s As Single
Dim q As Single
Dim a As Single
Dim b As Single
Dim 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 ③
End Sub
【第5题】
打开文件“考生文件夹\60\工程1.vbp”，完善
Command1_Click事件代码并保存。

实现功能：从文本框Text1中输入一个圆的半径，计算圆的面积，把结果输出到文本框Text2中。

Private Sub Command1_Click()
Const pi = 3.14
Dim r As Single
Dim s As Single
r = Val(①)
s = ②
1
Text2.Text = ③
End Sub
【第6题】
打开“Z:\414\工程1.vbp”，进行以下操作并保存。

实现功能：
(1) 将label1标签上的文字设置为“测试系统”；
(2) 把窗体中显示用户名的文本框的字体设置为“楷体_GB2312”；
(3) 在窗体的相应位置添加一个“确定”的命令按
钮。

控件名请采用默认值。

最终效果图如下：
（过程省略）
1。