江苏省2009年12月信息技术学业水平测试VB操作题WORD含答案.docVIP

操作题(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