VB中学信息考试15套操作题.docVIP

1套 1. 打开考生文件夹\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 ①100②100③next i 2. 打开考生文件夹\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 ①s(i)②-1③s(i) 3．打开考生文件夹\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 ①max=b ②max=c ③ max 4．打开考生文件夹\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 ①text1.text②ss\3600③60 5．密码的原理是将明文中的每个字符用另外一个字符替换，这样就形成密文。如果将数字进行加密，其对应关系如下所示: 明文：0123456789 密文：9876543210 打开文件考生文件夹\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 = ③ ①len②9-temp1③y End Sub 3套 1. 打开考生文件夹\30\工程1.vbp，完善程序并保存。实现功能： Private Sub Command1_Click() Dim x As Single, y As Single a = 3: b = -5 ① = Val(Input