单机版（新）vb操作题word含答案.doc
文本预览下载声明
操作题(5道 共40分)
【第1题】
打开“Z:\13\工程1.vbp”，完善程序并保存。
实现功能：在Text1、Text2、Text3中输入三个整数后，单击“输出最大值”按钮后，在Label3中显示这3个数中的最大值。
Private Sub Command1_Click()
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(③)
End Sub
【第2题】
打开“Z:\12\工程1.vbp”，完善程序并保存。
实现功能：在Text1中输入一个代表秒数的整数后，单击“计算”按钮后，在Label1、Label2、Label3中显示对应的小时、分钟和秒数。如在Text1中输入“3672”，Label1、Label2、Label3中分别显示“1”、“1”、“12”，即1小时1分12秒。
Private Sub Command1_Click()
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)
End Sub
【第3题】
密码的原理是将“明文”中的每个字符用另外一个字符替换，这样就形成“密文”。如果将数字进行加密，其对应关系如下所示:
明文：0123456789 密文：9876543210
打开文件“Z:\1\工程1.vbp”，完善程序，使实现以下功能后保存：
若在文本框text1中输入待加密的数字，单击“command1命令按钮”后，在文本框text2中输出密文。（数值型与字符型不能进行数学运算）
Private Sub Command1_Click()
Dim x As String, y As String
Dim i As Integer
Dim temp1 As String, temp2 As String
x = Text1.Text
y =
For i = 1 To ①(Text1.Text)
temp1 = Mid(x, i, 1)
temp2 = ②
y = y + temp2
Next i
Text2.Text = ③
End Sub
【第4题】
打开“Z:\4\工程1.vbp”，完善程序并保存。
实现功能：用穷举法找出所有的水仙花数的程序并保存。
水仙花数是指一类三位数，其各个数位上的数字之立方和为该数。例如：153=13+53+33。
Private Sub Command1_Click()
Dim i As Integer, a As Integer, b As Integer, c As Integer
For i = 100 To 999
a = i \ ①
b = (i - a * ②) \ 10
c = i Mod 10
If a ^ 3 + b ^ 3 + c ^ 3 = i Then Print i
③
End Sub
【第5题】
打开“Z:\9\工程1.vbp”，完善程序并保存。
实现功能：输入10个数，存放在数组中，并按输入的逆序输出在窗体上。
Private Sub Command1_Click()
Dim s(9) As Single
For i = 0 To 9
① = Val(InputBox(请输入一个数))
Next i
For i = 9 To 0 Step ②
Print ③
Next i
End Sub
操作题(5道 共40分)
【第1题】
在Text1文本框中输入一个年号，判断它是否是闰年，并输出判断结果“是闰年”或“不是闰年”。
判断闰年的算法是：如果此年号能被400除尽，则它是闰年，否则如果它能被4整除而不能被100整除，则它是闰年，否则它不是闰年。打开文件“Z:\38\工程1.vbp”，完善程序后并保存。
Private Sub Command
显示全部