2012年江苏高中信息技术学业水平测试vb操作题带答案

Vb专项练习第一套题目 1、打开“考生文件夹96工程1.vbp”，完善程序并保存。 实现功能：假设有一个 5 位数密码。只记得密码为 678，其中百位和十位 的数字记不清了，但知道该密码能够被 78 整除，也能被 67 整除。请完善算法 帮忙找出这个密码。 请不要更改源程序的结构，删除原题里的、。填写正确的代码，使 程序完善 Private Sub Command1_Click() Dim x As Long For x = To 67998 Step 10 If (x Mod 67 = 0) And (x Mod 78 = 0) Then Print End If End Sub 2、“考生文件夹51工程1.vbp”是采用“穷举法”求出所有水仙花数的程序，请 完善程序并保存。 说明：若一个三位数 abc，满足：abc=a 3+b3+c3，则称 abc 为水仙花数。如三 位数 153 满足：1 3+53+33=1+125+27=153，则 153 是水仙花数。 请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程 序完善 Private Sub Command1_Click() Dim i, a, b As Integer For i = 100 To a = i 100 b = (i - a * 100) 10 c = If a * a * a + b * b * b + c * c * c = i Then Print CStr(i) Next i End Sub 3、打开“考生文件夹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 4、打开“考生文件夹50工程1.vbp”，完善程序并保存。 实现功能：在文本框text1、text2、text3中输入3根小木棒的长度(假设都是 整数)，判断能否用它们搭成一个三角形，并把结果输出到文本框text4中。 操作要求： text1.text ss3600 60 999 i mod 10 end if 67008 x Next x （1）在窗体中加载“CommandButton”控件，命名为“Command1”并设置该控件 “Caption”属性值为“判断”； （2）完善程序，执行 command1_click 事件，判断出结果，如果能搭成三角形 则在文本框 text4 中输出“OK”，否则输出“NO”。 请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序 完善 Private Sub Command1_Click() Dim a, b, c As Let a = Val(Text1.Text) Let b = Val(Text2.Text) Let c = Val(Text3.Text) If (a + b c) And (a + c b) And (b + c a) Then Let Text4.Text = “OK“ Else Let Text4.Text = “NO“ End Sub 5、打开“考生文件夹40工程1.vbp”，完善程序并保存。 实现功能：将一张 100 元面值的人民币换成若干 5 元、1 元、5 角面值的人民 币，但要求 100 元换成的零钱共 100 张，且要求每种面值不少于 1 张，问 5 元、 1 元、5 角各多少张，请输出每种可能的组合。 请不要更改源程序的结构，删除原题里的、。填写正确的代码，使 程序完善 Private Sub Command1_Click() Dim Wuyuan As Integer Dim Yiyuan As Integer Dim Wujiao As Integer For Wuyuan = 1 To 20 For Yiyuan = 1 To Wujiao = 100 - Wuyuan - If Wuyuan * 5 + Yiyuan * 1 + Wujiao * 0.5 = 100 Then Print “Wuyuan=“ Print j; “*“; i; “=“; i * j; Next j Print End Sub 5、打开“考生文件夹4工程1.vbp”，完善程序并保存。 实现功能：用穷举法找出所有的3位水仙花数的程序并保存。 3 位水仙花数是指一个三位数，其各个数位上的数字之立方和为该数。例如： 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 Vb 专项练习第三套 1、打开“考生文件夹731”文件夹 中的文件：“工程1.vbp”进行以下 操作后并保存。 本题是青蛙跃井问题：井底蛙欲沿 湿滑井壁上跃至地面，若井深h尺， 蛙上跃3尺下滑1尺，请给出井深h值，计算蛙上跃次数n。请你完善程序。完成 后按“Ctrl+W”保存程序。 （详见样张） 本题是青蛙跃井问题：井底蛙欲沿湿滑井壁 上跃至地面，若井深h尺，蛙上跃3尺下滑1尺， 请给出井深h值，计算蛙上跃次数n。 请不要更改源程序的结构，删除原题里的、。填写正确的代码， 使程序完善 Private Sub Command1_Click() 9 i next i 100 100 next i 徐州经济技术开发区高级中学 信息组 祝您考试成功！ 第 5 页 共 37 页 Dim h As Single, n As Integer h = Val() If h 3 Then If h Mod 2 = 0 Then n = h / 2 Else n = (h - 1) / 2 End If Else n = End If Text2.Text = End Sub 2、打开“考生文件夹729”文件夹中的文件： “工程1.vbp”进行以下操作后并保存。 运行程序能够显示数字金字塔，请完善程序。 完成后按“Ctrl+W”保存程序。 （详见样张） 运行程序能够显示数字金字塔，请完善 程序。 请不要更改源程序的结构，删除原题里的、。填写正确的代码， 使程序完善 Private Sub Form_Click() Dim i As Integer, j As Integer For i = 1 To Print Tab(10 - i); For j = 1 To Print Str(i); Next j Next i End Sub 3、打开“考生文件夹733”文件夹中 的文件：“工程1.vbp”进行以下操作 后并保存。 本题是在文本框Text1中输入一位十 六进制数码（若是字母要大写） ，运 行程序后能译出它表示的十进制数 的程序。请你完善程序。完成后按 “Ctrl+W”保存程序。 （详见样张） 本题是在text1中输入一位十六进制数码（若是字母要大写）， 运行程序后能译出它表示的十进制数的程序。 请不要更改源程序的结构，删除原题里的、。填写正确的代码， 使程序完善 Private Sub Command1_Click() Dim m As String m = Select Case m Case “A“ m = “10“ Case “B“ text1.text 1 n 5 i print text1.text end select m m = “11“ Case “C“ m = “12“ Case “D“ m = “13“ Case “E“ m = “14“ Case “F“ m = “15“ Text2.Text = End Sub 4、打开“考生文件夹732”文件夹中的文件：“工程1.vbp”进行以下操作后并保 存。 本题是从字符串中找出所有大写字母，并把找出的大写字母显示在text2中。 请你完善程 序。完成后 按“Ctrl+W”保存程序。 （详见样张） 本题是从一串只含有字母或数字的字符串中找出所有大写字母， 并把找出的大写字母显示在text2中。 请不要更改源程序的结构，删除原题里的、。填写正确的代码， 使程序完善 Private Sub Command1_Click() Dim x As String, y As String Dim i As Integer, n As Integer x = n = Len(x) For i = 1 To If Asc(Mid(x, i, 1) 64 Then y = y + Mid(x, i, 1) End If Next i Text2.Text = End Sub 5、打开“考生文件夹730”文件夹中的文件： “工程1.vbp”进行以下操作后并保存。 运行程序能够显示数字金字塔，请完善程序。 完成后按“Ctrl+W”保存程序。 （详见样张） 运行程序能够显示数字金字塔，请完善程序。 请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程 序完善 Private Sub Form_Click() Dim i As Integer, j As Integer For = 1 To 5 Print Tab(10 - j); For i = 1 To text1.text n y j j next j 徐州经济技术开发区高级中学 信息组 祝您考试成功！ 第 7 页 共 37 页 Print Str(i); Next i Print End Sub Vb专项练习第4套 1、打开“考生文件夹735”文件夹中的文件：“工程1.vbp” 进行以下操作后并 保存。 完善程序,使之在运行程序后，能在窗体上显示样张所示的图形。完成后按 “Ctrl+W”保存程序。 （详见样张） 完善程序,使之在运行程序后，能在窗体上显示样张所显示的图形。 请不要更改源程序的结构，删除原题里的、。填写正确的代码， 使程序完善 Private Sub Form_Click() Line (600, 200)-(1500, ), RGB(255, 0, 0) Line (1500, 200)-(1500, 1000), RGB(0, 0, 255) Line (1500, 1000)-(600, 1000), RGB() Line (, 1000)-(600, 200), RGB(0, 0, 255) End Sub 2、打开“考生文件夹36工程1.vbp”，完善程序并保存。 实现功能：给出三角形的三边边长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 3、打开“考生文件夹60工程1.vbp”，完善程序并保存。 实现功能：从文本框t1中输入一个圆的半径，计算圆的面积，把结果输出到文 本框t2中。 请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善 Private Sub Command1_Click() Const pi = 3.14 r, s as Single r = Val() s = pi * r * r T2.Text = End Sub 4、打开“考生文件夹32工程1.vbp”，完善程序并保存。 实现功能：从键盘上输入一个三位数，然后将它反向输出。例如输入 200 255,0,0 600 a sqr s dim t1.text s “123”，输出结果为“321”。 请不要更改源程序的结构，删除原题里的、。填写正确的代码， 使程序完善 Private Sub Command1_Click() Dim a As Integer, b As Integer Dim bai As Integer, shi As Integer Dim g As Integer a = Val() bai = a 100 shi = (a - bai * 100) 10 g = a Mod 10 = g * 100 + shi * 10 + bai = CStr(b) End Sub 5、打开“考生文件夹736”文件夹中的文件：“工程1.vbp”进行以下操作后并保 存。 该题求丢番图年龄问题：丢番图生命的1/6是童年，又过了生命的1/12长胡子， 再过了生命的1/7结婚，婚后5年生儿子，儿子活了父亲年龄的一半死亡，之后 丢番图又过了4年死亡。求丢番图年龄。完善程序,使之在运行程序后，能在 text1中显示丢番图年龄。完成后按“Ctrl+W”保存程序。 （详见样张） 该题是求丢番图年龄问题：丢番图生命的 1/6 是童年， 又过了 1/12 长胡子，再过了的 1/7 结婚，婚后 5 年生儿子， 儿子活了父亲年龄的一半死亡，之后丢番图又过了 4 年死亡。 求丢番图年龄。 请不要更改源程序的结构，删除原题里的、。填写正确的代码， 使程序完善 Private Sub Command1_Click() Dim n As Integer n = 0 Do = n + 1 Loop n =10 x*0.8 s Private Sub Command1_Click() Dim a(9) As Integer Dim max As Integer Dim i As Integer Me.Cls Print Randomize For i = 0 To Step 1 a(i) = Int(Rnd * 100) Print a(i) Next i max = a(0) For i = 1 To 9 If max 60 end if 9 a(i) max 4 4 “*” 徐州经济技术开发区高级中学 信息组 祝您考试成功！ 第 13 页 共 37 页 请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善 Private Sub Command1_Click() x = Val(Text1.Text) If x Mod 3 = 2 Then If = 3 Then If Then Print End If End If End If End Sub 5、打开“考生文件夹181工程1.vbp”，完善程序并保存。 实现功能：从键盘输入10个学生的测试成绩，输出最高分和最低分。 请不要更改源程序的结构，删除原题里的、。填写正确的代码，使 程序完善 Private Sub Command1_Click() Dim cj(10) As Single Dim i As Integer Dim max As Single Dim min As Single For i = 1 To 10 cj(i) = Val(InputBox(“请输入 10 个学生的成绩“, “成绩输入“) Next i max = cj(1) min = cj(1) For i = 2 To 10 If cj(i) max Then max = End If If Then min = End If Next i Print CStr(max), CStr(min) End Sub Vb 专项练习第八套 1、打开“考生文件夹117工程1.vbp”，完善程序并保存。 实现功能：当单击窗体后，计算 224262N 1500 Print “N=“ CStr(s) End Sub 4、打开“考生文件夹119工程1.vbp”，完善程序并保存。 关于人口问题，如果我国人口年增长率为4，问多少年后我国人口超过20亿。 (假设现在我国人口为14亿) 实现功能：当单击窗体后，在窗体上输出问题答案。 请不要更改源程序的结构，删除原题里的、。填写正确的代码， 使程序完善 Private Sub Form_Click() Dim p As Integer 变量 p 保存人口 Dim n As Long n = 0 Do While p = p * n = Loop Print “n=“ CStr(s) End Sub 【第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 0 100 s - 1 / i max=b max=c max text1.text ss3600 60 len 9-temp1 y Text2.Text = End Sub 【第4题】 打开“Z:4工程1.vbp”，完善程序并保存。 实现功能：用穷举法找出所有的水仙花数的程序并保存。 水仙花数是指一类三位数，其各个数位上的数字之立方和为该数。例如：153=1 3+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 Command1_Click() Dim year As Integer year = Val(InputBox(“请输入年号:“) If (year Mod 4 = 0) And (year Mod 100 0) (year Mod 400 = 0) Then Print Else Print End If End Sub 【第2题】 打开“Z:32工程1.vbp”，完善程序并保存。 实现功能：从键盘上输入一个三位数，然后将它反向输出。例如输入“123”，输出结果为 “321”。 Private Sub Command1_Click() Dim a As Integer, b As Integer Dim bai As Integer, shi As Integer Dim g As Integer a = Val() bai = a 100 shi = (a - bai * 100) 10 g = a Mod 10 = g * 100 + shi * 10 + bai = CStr(b) End Sub 100 100 next i s(i) -1 s(i) or “是闰年“ “不是闰年 “ text1.text b text2.text 徐州经济技术开发区高级中学 信息组 祝您考试成功！ 第 21 页 共 37 页 【第3题】 打开“Z:36工程1.vbp”，完善程序并保存。 实现功能：给出三角形的三边边长a，b，c（输入保证能构成三角形，无需判断正确性）， 输出三角形面积。三角形面积计算公式： ，其中q=(a+b+c) /2。 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 【第4题】 打开“Z:28工程1.vbp”，完善程序并保存。 实现功能：在三个文本框中输入一元二次方程的三个系数后，单击命令按钮，程序求出该 方程的解。 Private Sub Command1_Click() Dim a, b, c, p As Single a = Val(Text1.Text) b = Val() c = Val(Text3.Text) p = b * b - 4 * a * c If Then X1 = (-b + Sqr(p) / (2 * a) X2 = (-b - Sqr(p) / (2 * a) Print “X1=“; X1 Print “X2=“; X2 Print “该方程无实数根“ End If End Sub 【第5题】 打开“Z:30工程1.vbp”，完善程序并保存。实现功能： Private Sub Command1_Click() Dim x As Single, y As Single a = 3: b = -5 = Val(InputBox(“请输入x的值“) If x =0 else x y end if 实现功能：用递归法求斐波那契数列1，1，2，3，5，8，第10项的值。 Public Function Fib(n As Integer) As Integer If (n = 1) Or (n = 2) Then Fib = Else Fib = Fib(n - 1) + Fib(n - 2) End Function Private Sub Command1_Click() Dim S As Integer S = Fib() Print “S=“ For j = 1 To 3 - Print Next Print Next End Sub 【第4题】 打开“Z:77工程1.vbp”，完善程序并保存。 银行的年利率是r，小明将1000元存入银行，问几年以后小明在银行的存款将超过2000元。 例如，年利率是0.04时，需要存18年。 实现功能：单击“计算”按钮后，计算并在窗体上输出结果。 Private Sub Command1_Click() Dim s As Single s计算存款 Dim y As Integer y计算年份 Dim r As Single r是年利率 s = y = 0 r = Val(InputBox(“输入年利率“, “数据输入框“) Do While s y = s = s * Loop Print