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