当前位置:首页 >> 其它课程 >>

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


徐州经济技术开发区高级中学 信息组 Vb专项练习第一套题目 1、打开“考生文件夹\96\工程1.vbp”,完善程序并保存。 实现功能:假设有一个 5 位数密码。只记得密码为 67□□8,其中百位和十位 的数字记不清了,但知道该密码能够被 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 +b +c ,则称 abc 为水仙花数。如三 位数 153 满足:1 +5 +3 =1+125+27=153,则 153 是水仙花数。 '请不要更改源程序的结构,删除原题里的①、②、③。填写正确的代码,使程 序完善 Private Sub Command1_Click() Dim i, a, b As Integer For i = 100 To ① a = i \ 100 ① 999 ② i mod 10 ③ end if
3 3 3 3 3 3

祝您考试成功! 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根小木棒的长度(假设都是整 ① text1.text ② ss\3600 ③ 60

① 67008 ② x ③ Next x

第 1 页 共 37 页

徐州经济技术开发区高级中学 信息组 数),判断能否用它们搭成一个三角形,并把结果输出到文本框text4中。 操作要求: (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()
① ②

祝您考试成功! As Integer As Integer As Integer ① 100 ② yiyuan ③ end if

Dim Wuyuan Dim Yiyuan Dim Wujiao

For Wuyuan = 1 To 20 For Yiyuan = 1 To ① Wujiao = 100 - Wuyuan - ②

If Wuyuan * 5 + Yiyuan * 1 + Wujiao * 0.5 = 100 Then Print "Wuyuan=" & Wuyuan & ",Yiyuan=" & Yiyuan & ",Wujiao=" & Wujiao

integer end if

③ Next Yiyuan Next Wuyuan End Sub Vb专项练习第二套 1、打开“考生文件夹\716”文件夹中的文件:“工程1.vbp”进行以下操作后并保 存。 某同学欲设计一个“水电费管理系统”,其功能如下: 水按每吨4元收取,电按每度0.5元收取,输入用水量和用电量,输出应付款。 请打开工程1.vbp文件,按如下要求完成下列操作。 (1)请在窗体中添加两个控件,使程序运行时,用其输入耗水量和耗电量。 (2)请把下列代码补充完整 Private Sub Command1_Click() Dim a As Single, b As Single, s As Single a = Val(①) b = Val(②) s = ③
第 2 页 共 37 页 ① Text1.text

② Text2.text ③ 4*a+0.5*b ④ s

徐州经济技术开发区高级中学 信息组 Label4.Caption = Str(④) + "元" End Sub 2、打开“考生文件夹\723”文件夹中的文件:“工程1.vbp” 进行以下操作后并 保存。 中国邮政的EMS国际快递业务: 中国寄往澳大利亚的快递收费 标准是:首个0.5公斤收费210 元,其余的重量按55元/千克计 算, (总重不足0.5千克按210元 收费) 下面是自动计算寄费的程 序,请完善程序。完成后按 “Ctrl+W”保存程序。 (详见样张)
'中国邮政的 EMS 国际快递业务: 中国 寄往澳大利亚的快递收费标准是: '首个 0.5 公斤收费 210 元,其余的重量按 55 元/每千克计算,(总重不足 '0.5 千克按 210 元收费)下面是自动计算寄费的程序,请你完善程序。 '请不要更改源程序的结构,删除原题里的①、②、③。填写正确的代码,使程序完善 Private Sub Command1_Click() Dim x As Single, y As Single y = 0 ① = Val(Text1.Text) If x > 0.5 Then y = 210 + (x - 0.5) * 55 Else y = 210 ① x ②

祝您考试成功!

③ = Str(y) End Sub

3、打开“考生文件夹\91\工程1.vbp”,完善程序并保存。 实现功能:随机生成100个整数,统计偶数的个数。 '请不要更改源程序的结构,删除原题里的①、②、③。填写正确的代码,使程 序完善 Dim a(100) As Integer

Private Sub Command1_Click() Dim total As Integer ① For i = 1 To 100 If a(i) Mod 2 = 0 Then ② End If Next i Print CStr(total) End Sub


total=0 ② total=total+1 ③ a(i)

② ③

end if text2.text

Private Sub Form_Load() Randomize For i = 1 To 100 ③ = Int(Rnd * 1000) Next i End Sub
第 3 页 共 37 页

徐州经济技术开发区高级中学 信息组 4、打开文件“考生文件夹\725\工程1.vbp”, 进行以下操作后保存。 序完善

祝您考试成功!

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 这是打印九九乘法表的程序,请你完善程序。完成后按“Ctrl+W”保存程序。 (详 见样张) ③
'这是打印乘法九九表的程序,请完善程序。 '请不要更改源程序的结构,删除原题里的①、②、③。填写正确的代码,使程序完善 Private Sub Form_click() Dim i As Integer, j As Integer For i = 1 To ① For j = 1 To ② Print Tab((j - 1) * 12); Print j; "*"; i; "="; i * j; Next j Print ③ End Sub ① 9

① 100 ② 100 ③ next i

c = i Mod 10 If a ^ 3 + b ^ 3 + c ^ 3 = i Then Print i

End Sub Vb 专项练习第三套 1、 打开“考生文件夹\731”文件夹中 的文件: “工程1.vbp”进行以下操作 ② i ③ next i 后并保存。 本题是青蛙跃井问题:井底蛙欲沿 湿滑井壁上跃至地面,若井深h尺, 蛙上跃3尺下滑1尺,请给出井深h 值,计算蛙上跃次数n。请你完善程 序。完成后按“Ctrl+W”保存程序。 (详见样张) '本题是青蛙跃井问题:井底蛙欲沿湿滑井壁 '上跃至地面,若井深h尺,蛙上跃3尺下滑1尺, '请给出井深h值,计算蛙上跃次数n。 '请不要更改源程序的结构,删除原题里的①、②、③。填写正确的代码, 使程序完善

5、打开“考生文件夹\4\工程1.vbp”,完善程序并保存。 实现功能:用穷举法找出所有的3位水仙花数的程序并保存。 3 位水仙花数是指一个三位数,其各个数位上的数字之立方和为该数。例如: 153=1 +5 +3 。 '请不要更改源程序的结构,删除原题里的①、②、③。填写正确的代码,使程
3 3 3

第 4 页 共 37 页

徐州经济技术开发区高级中学 信息组 Private Sub Command1_Click() 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 ①
第 5 页 共 37 页

祝您考试成功! Print Tab(10 - i); For j = 1 To ② Print Str(i); Next j ③ ① 5 ② i ③ print

① text1.text ② 1 ③ n

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" ① text1.text ② end select ③ m

徐州经济技术开发区高级中学 信息组 Case "B" 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)) < 91 And 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”保存程序。 (详见样张) ① text1.text ② n ③ y

'运行程序能够显示数字金字塔,请完善程序。 '请不要更改源程序的结构,删除原题里的①、 ②、③。填写正确的代码,使程序完善 Private Sub Form_Click() Dim i As Integer, j As Integer For ① = 1 To 5 Print Tab(10 - j); ① j ② j ③ next j

第 6 页 共 37 页

徐州经济技术开发区高级中学 信息组 For i = 1 To ② Print Str(i); Next i Print ③ End Sub Vb专项练习第4套 1、打开“考生文件夹\735”文件夹中的文件:“工程1.vbp” 进行以下操作后并 保存。 完善程序,使之在运行程序后,能在窗体上显示样张所示的图形。完成后按 “Ctrl+W”保存程序。 (详见样张)

祝您考试成功!

正确性) ,输出三角形面积。三角形面积计算公式:

'请不要更改源程序的结构,删除原题里的①、②、③。填写正确的代码,使程序完善 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

① a ② sqr ③ s

'完善程序,使之在运行程序后,能在窗体上显示样张所显示的图形。 '请不要更改源程序的结构,删除原题里的①、②、③。填写正确的代码, 使程序完善 Private Sub Form_Click() ① 200 Line (600, 200)-(1500, ①), RGB(255, 0, 0) ② 255,0,0 Line (1500, 200)-(1500, 1000), RGB(0, 0, 255) ③ 600 Line (1500, 1000)-(600, 1000), RGB(②) Line (③, 1000)-(600, 200), RGB(0, 0, 255) End Sub 2、打开“考生文件夹\36\工程1.vbp”,完善程序并保存。 实现功能:给出三角形的三边边长a,b,c(输入保证能构成三角形,无需判断

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

① dim ② t1.text ③ s

4、打开“考生文件夹\32\工程1.vbp”,完善程序并保存。

第 7 页 共 37 页

徐州经济技术开发区高级中学 信息组 实现功能: 从键盘上输入一个三位数, 然后将它反向输出。 例如输入“123”, 输出结果为“321”。 '请不要更改源程序的结构,删除原题里的①、②、③。填写正确的代码, 使程序完善 Private Sub Command1_Click() Dim a As Integer, b As Integer Dim bai As Integer, shi As Integer Dim g As Integer ① text1.text a = Val(①) ② b bai = a \ 100 ③ text2.text 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/12 长胡子,再过了的 1/7 结婚,婚后 5 年生儿子, '儿子活了父亲年龄的一半死亡,之后丢番图又过了 4 年死亡。 '求丢番图年龄。 '请不要更改源程序的结构,删除原题里的①、②、③。填写正确的代码, 使程序完善 Private Sub Command1_Click() Dim n As Integer ① n n=0 ② while Do ③ text1.text ① =n+1 Loop ② n < n / 6 + n / 12 + n / 7 + 5 + n / 2 + 4 ③ = Str(n) End Sub Vb 专项练习第五套 1、打开“考生文件夹\178\工程1.vbp”,完善程序并保存。 实现功能:用递归法求 3!+5!+7!的值。 '请不要更改源程序的结构,删除原题里的①、②、③。填写正确的代码,使程 序完善 Public Function Fac(a As Integer) As Integer If a = 1 Then Fac = ① ① 1 Else ② Fac Fac = a * ②(a - 1) ③ 5 End If End Function Private Sub Command1_Click() Dim S As Integer S = Fac(3) + Fac(③) + Fac(7) Print "S=" & CStr(S)

'该题是求丢番图年龄问题:丢番图生命的 1/6 是童年,

第 8 页 共 37 页

徐州经济技术开发区高级中学 信息组 End Sub 2、打开“考生文件夹\122\工程1.vbp”,完善程序并保存。 王晓珊家距离学校S1公里,某天她和李明各自同时从家里步行出发上学,王晓 珊步行V1公里/小时,李明步行V2公里/小时,结果他们同时到达学校。 实现功能:输入 S1,V1,V2,输出李明家与学校之间的距离 S2。 '请不要更改源程序的结构,删除原题里的①、②、③。填写正确的代码,使程 序完善 Private Sub Command1_Click() ① s1/v1 Dim S1 As Single, S2 As Single ② v2 Dim V1 As Single, V2 As Single ③ s2 Dim T As Single S1 = Val(InputBox("请输入王晓珊家离学校的距离:")) V1 = Val(InputBox("请输入王晓珊步行速度:")) V2 = Val(InputBox("请输入李明步行速度:")) T = ① S2 = ② * T Print ③ End Sub 3、打开“考生文件夹\43\工程1.vbp”,完善程序并保存。 实现功能:用递归法求斐波那契数列 1,1,2,3,5,8,?第 10 项的值。 '请不要更改源程序的结构,删除原题里的①、②、③。填写正确的代码,使程 序完善 Public Function Fib(n As Integer) As Integer If (n = 1) Or (n = 2) Then ① 1 Fib = ① ② end if Else ③ 10 Fib = Fib(n - 1) + Fib(n - 2) ②

祝您考试成功!

End Function

Private Sub Command1_Click() Dim S As Integer S = Fib(③) Print "S=" & CStr(S) End Sub 4、打开“考生文件夹\175\工程1.vbp”,完善程序并保存。 实现功能:用递归法求 1+2+3+?+100 的值。 '请不要更改源程序的结构,删除原题里的①、②、③。填写正确的代码,使程 序完善 Public Function S(n As Integer) As Integer If n = 1 Then ① 1 S = ① ② n Else ③ 100 S = ② + S(n - 1) End If End Function Private Sub Command1_Click() Dim Sum As Integer Sum = S(③) Print "Sum=" & CStr(Sum) End Sub 5、打开“考生文件夹\68\工程1.vbp”,完善程序并保存。 实现功能: 在文本框 Text1 和 Text2 中分别输入两个整数, 单击“交换”按钮后, 两个文本框中的数字进行交换。 ''请不要更改源程序的结构,删除原题里的①、②、③、④。填写正确的代码, 使程序完善

第 9 页 共 37 页

徐州经济技术开发区高级中学 信息组 Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim t As Integer a = Val(Text1.Text) b = Val(Text2.Text) t=a a= ① b= ② Text1.Text = ③ Text2.Text = ④ End Sub Vb专项练习第六套 1、打开"考生文件夹\30\工程1.vbp",完善程序并保存。 实现功能:

祝您考试成功! Else

① ② ③ ④

b t a b

y = x - 2 * b ③ Print "y="; CStr(y) End Sub 2、打开“考生文件夹\596\工程1.vbp”,完善程序并保存。 实现功能:当在文本框Text1中输入圆的半径后,单击“计算”按钮,计算圆的周 长,并在文本框Text2中显示出来。
'填空完成程序,使得当在Text1中输入圆的半径后,单击"计算"按钮,计算圆的周长,并在 Text2中显示出来。 '注:请不要更改原程序结构,删除①、②、③,并在对应的位置填写正确代码 Private Sub Command1_Click() Const pi = 3.14 Dim c As Single Dim r As Single r = Val(①) c = pi * ② ③ = CStr(c) End Sub '定义符号常量 '定义周长c为单精度型 '定义半径r为单精度型

① text1.text ② r*2 ③ text2.text

'请不要更改源程序的结构,删除原题里的①、②、③。填写正确的代码, 使程序完善 Private Sub Command1_Click() Dim x As Single, y As Single a = 3: b = -5 ① = Val(InputBox("请输入x的值")) If x < 0 Then ① x ② y ③ end if

3、打开“考生文件夹\611\工程1.vbp”,完善程序并保存。 实现功能:当单击“显示”按钮后,Text1、Text2分别显示交换后的变量x、y值。
'填空完成程序,使得单击"显示"按钮时,Text1、Text2分别显示变量x、y的值。 '注:请不要更改原程序结构,删除①、②、③,并在对应位置填写正确的代码 Private Sub Command1_Click() Dim x, y As Integer

② = x + 5 * a

x = 10 第 10 页 共 37 页

徐州经济技术开发区高级中学 信息组
y = 100 If x < y Then '以下三条语句交换x,y的值 t = ① x = y y = ② End If Text1.Text = ③ Text2.Text = CStr(y) End Sub

祝您考试成功!

① x ② t ③ x

应的价格。 '请不要更改源程序的结构,删除原题里的①、②、③。填写正确的代码,使程 序完善 Private Sub Command1_Click() Dim x, s As Single ① x>=10 x = Val(Text1.Text) ② x*0.8 If ① Then ③ s s=4* ② Else s=4*x End If Label1.Caption = CStr(③) End Sub Vb专项练习第七套 1、打开“考生文件夹\614\工程1.vbp”,完善程序并保存。 实现功能:当单击“显示”按钮后,随机产生10个属于区间[0,100)的自然数, 并保存于数组a中,然后在窗体上显示这10个数中的最大值。(注:学生运算结 果有可能跟样图中数值不一致)

4、打开“考生文件夹\41\工程1.vbp”,完善程序并保存。 某超市为了对苹果进行促销, 规定购买2公斤以上可以在原价每公斤6.80元的基 础上打8折。 实现功能:输入购买的苹果公斤数,输出应付款。
'请不要更改源程序的结构,删除原题里的①、②、③。填写正确的代码,使程序完善 Private Sub Command1_Click() Dim x As Single Dim cost As Single x = Val(InputBox("请输入苹果公斤数:")) If x <= 2 Then cost = ① Else cost = x * 6.8 * 0.8 ② Print ③ End Sub

① x*6.8 ② end if ③ cost

5、打开“考生文件夹\20\工程1.vbp”,完善程序并保存。 某超市苹果价格每斤4元,购买10斤以上(包括10斤)将享受8折优惠。 实现功能: 使得在 Text1 中输入重量并单击“计算”按钮后, Label1 中显示对 在
第 11 页 共 37 页

徐州经济技术开发区高级中学 信息组 '(注:学生运算结果有可能跟样图中数值不一致。) '注:请不要更改原程序结构,删除①、②、③,并在对应位置填写正确的 代码 Private Sub Command1_Click() Dim a(9) As Integer Dim max As Integer Dim i As Integer Me.Cls ① 9 Print ② a(i) Randomize ③ max 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 < a(i) Then max = ② End If Next i Print "这10个自然数中的最大值="; CStr(③) End Sub 2、打开“考生文件夹\15\工程1.vbp”,完善程序并保存。 实现功能: 单击按钮后打印出下面所示的图案。 (第一行的第一个“*”从第5列开 始输出)

祝您考试成功!

'请不要更改源程序的结构,删除原题里的①、②、③。填写正确的代码,使程序完善 Private Sub Command1_Click() Dim i, j As Integer For i = 1 To ① Print Tab(6 - i); For j = 1 To ② Print ③; Next j Print Next i End Sub 3、打开“考生文件夹\598\工程1.vbp”,完善程序并保存。

① 4 ② 4 ③ “*”

举重比赛中,60公斤级选手体重不能超过60公斤。 实现功能:填空完成程序,使得在文本框Text1中输入一个大于60的数时,标签 Label1显示“超重!不能参赛!”; 当输入一个小于等于60的数时,标签Label1显示“合格,可以参赛!”。 '举重比赛中,60公斤级选手体重不能超过60公斤。 '填空完成程序, 使得在文本Text1中输入一个大于60的数时, 标签Label1显示" 超重!不能参赛!"; '当输入一个小于等于60的数时,标签Label1显示"合格,可以参赛!"。 '注:请不要更改原程序结构,删除①、②、③,并在对应位置填写正确的代码 Private Sub Command1_Click() Dim t As Single '定义变量t,值由文本框Text1读入 t = Val(①) ① text1.text If ② Then ② t>60 Label1.Caption = "超重!不能参赛!" ③ end if Else Label1.Caption = "合格,可以参赛!" ③

第 12 页 共 37 页

徐州经济技术开发区高级中学 信息组 End Sub 4、打开“考生文件夹\108\工程1.vbp”,完善程序并保存。 实现功能: 判断从文本框Text1中输入的数据, 如果该数据满足条件: 除以3余2, 除以5余3,除以7余4,则输出在窗体上。
'请不要更改源程序的结构,删除原题里的①、②、③。填写正确的代码,使程序完善 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

祝您考试成功!

① x mod 5 ② x mod 7=4 ③ x

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 ① cj(i) If ② Then ② cj(i)<min min = ③ ③ cj(i) End If Next i Print CStr(max), CStr(min) End Sub Vb 专项练习第八套 1、打开“考生文件夹\117\工程1.vbp”,完善程序并保存。 实现功能:当单击窗体后,计算 22+42+62+?+N<1500 的 N 的最大值。 '请不要更改源程序的结构,删除原题里的①、②、③。填写正确的代码,使程 序完善 Private Sub Form_Click() Dim s As Integer Dim N As Integer ① n N = 22 ② n+20 s = 0 ③ n-20 Do s = s + ① N = ② Loop Until s > 1500 Print "N=" & CStr(③) End Sub 2、打开“考生文件夹\9\工程1.vbp”,完善程序并保存。 实现功能:输入 10 个数,存放在数组中,并按输入的逆序输出在窗体上。 '请不要更改源程序的结构,删除原题里的①、②、③。填写正确的代码,使程 序完善

第 13 页 共 37 页

徐州经济技术开发区高级中学 信息组 Private Sub Command1_Click() Dim s(9) As Single ① s(i) For i = 0 To 9 ② -1 ① = Val(InputBox("请输入一个数")) ③ s(i) Next i For i = 9 To 0 Step ② Print ③ Next i End Sub 3、打开“考生文件夹\87\工程1.vbp”,完善程序并保存。 实现功能:通过键盘输入 10 个数,统计这 10 个数的和。 '请不要更改源程序的结构,删除原题里的①、②、③。填写正确的代码,使程 序完善 Private Dim Dim Dim For Sub Command1_Click() x As Integer s As Integer i As Integer i = 1 ① x = Val(InputBox("NO." & i)) ② Print CStr(x) Next i Print "total:" & ③

祝您考试成功!



to 10

⑤ s=s+x ⑥ s

4、打开“考生文件夹\116\工程1.vbp”,完善程序并保存。 实现功能:计算 1+3+5+?+99 的值。 '请不要更改源程序的结构,删除原题里的①、②、③。填写正确的代码,使程 序完善 Private Sub Command1_Click()

Dim i As Integer Dim s As Integer ① i i = 1 ② i+2 s = 0 ③ s Do While i <= 99 s = s + ① i = ② Loop Print "s=" & ③ End Sub 5、打开“考生文件夹\80\工程1.vbp”,完善程序并保存。 一群猴子摘了一堆桃子,每天吃掉当天剩余桃子数的一半,每次又忍不住多吃 一个,这样到了第十天就剩下一个桃子可以吃了。 实现功能:计算猴子最初一共摘了多少个桃子。 '请不要更改源程序的结构,删除原题里的①、②、③、④。填写正确的代码, 使程序完善 Private Sub Command1_Click() Dim tz As Integer 'tz 是桃子数 ① 1 Dim ts As Integer 'ts 是天数 ② 9 tz = ① ③ (tz+1) For ts = 1 To ② ④ tz tz = ③ * 2 Next ts Print "最初共有桃子" & ④ End Sub Vb 专项练习第九套 1、打开“考生文件夹\601\工程1.vbp”,完善程序并保存。 实现功能:当单击窗体后,计算出1+2+3+?+N<500的N的最大值,并在文本框 Text1中显示出来。

第 14 页 共 37 页

徐州经济技术开发区高级中学 信息组 求?

,直到最后一项的值小于0.0001为止,输出 ? 的值。 '请不要更改源程序的结构,删除原题里的①、②、③、④。填写正确的代码, 使程序完善 Private Sub Command1_Click() Dim Pi As Single, t As Single (1) 0 Dim n As Integer, s As Single (2) t Pi = ① (3) s/n t = 1: n = 1: s = 1 (4) 4 Do While Abs(t) >= 0.0001 Pi = Pi + ② n=n+2 s = -s t= ③ Loop Pi = Pi * ④ Print "Pi=" & CStr(Pi) End Sub 3、打开“考生文件夹\597\工程1.vbp”,完善程序并保存。 实现功能:计算s=1!+2!+3!+?+8!的值并在窗体上打印出结果。 '填空完成程序,计算 s=1!+2!+3!+?+8!的值并在窗体上打印出结果。 '注:请不要更改源程序结构,删除①、②、③,并在对应位置填写正确的代码 Private Sub Form_Click() Dim s As Single ' s 变量用于存放计算结果 Dim p As Single Dim i As Integer '定义一个循环变量 '给 s 赋初值 ① 0 s= ① ② 1 '给 p 赋初值 ③ s+p p= ②

祝您考试成功!

'填空完成程序,使得单击窗体后,计算出1+2+3+?+N<500的N的最大值,并在 文本框Text1中显示出来。 '注:请不要更改源程序结构,删除①、②、③,并在对应位置填写正确的代码 Private Sub Form_Click() Dim s As Integer '变量s存放和 Dim n As Integer '为n赋初值 ① 0 n = ① ② 0 '为s赋初值 ③ S+n s = ② Do While s < 500 n = n + 1 s = ③ Loop Text1.Text = CStr(n - 1) End Sub 2、打开“考生文件夹\183\工程1.vbp”,完善程序并保存。

实现功能:利用格里高利公式

第 15 页 共 37 页

徐州经济技术开发区高级中学 信息组 For i = 1 To 8 p=p*i s= ③ Next i Print "s="; CStr(s) End Sub 4、打开“考生文件夹\119\工程1.vbp”,完善程序并保存。 关于人口问题,如果我国人口年增长率为4%,问多少年后我国人口超过20亿。 (假设现在我国人口为14亿) 实现功能:当单击窗体后,在窗体上输出问题答案。 '请不要更改源程序的结构,删除原题里的①、②、③、④。填写正确的代码, 使程序完善 Private Sub Form_Click() Dim p As Integer '变量 p 保存人口 Dim n As Long ① ① p=14 n=0 ② p<=20 Do While ② ③ (1+0.04) p=p* ③ ④ N+1 n= ④ Loop Print "n=" & CStr(n) End Sub 5、打开“考生文件夹\599\工程1.vbp”,完善程序并保存。 实现功能: 当单击窗体后, 计算1+2+3+?+N>500的N的最小值, 并在文本框Text1 中显示出来。

祝您考试成功!

'填空完成程序,使得当单击窗体后,计算 1+2+3+?+N>500 的 N 的最小值,并 在文本框 Text1 中显示出来。 '注:请不要更改源程序结构,删除①、②、③,并在对应位置填写正确的代码 Private Sub Form_Click() Dim s As Integer '变量 s 存放和 Dim n As Integer '为 s 赋初值 s= ① ① 0 '为 n 赋初值 ② 0 n= ② ③ <= Do n=n+1 s=s+n Loop While s ③ 500 Text1.Text = CStr(n) End Sub Vb 专项练习第十套 1、打开“考生文件夹\612\工程1.vbp”,完善程序并保存。 实现功能:当单击“显示”按钮后,在窗体上显示如图99乘法表。

第 16 页 共 37 页

徐州经济技术开发区高级中学 信息组

祝您考试成功!

'填空完成程序,使得单击"显示"按钮后,在窗体上显示如图99乘法表。 '注:请不要更改源程序结构,删除①、②、③,并在对应位置填写正确的代码。 Private Sub Command1_Click() Dim i As Integer Dim j As Integer For i = 1 To ① Step 1 Print " "; For j = 1 To 9 Print ② Print vbTab; Next j Print ③ End Sub ①

'注:请不要更改源程序结构,删除①、②、③,并在对应位置填写正确的代码 Private Sub Form_Click() Dim p As Single ' 变量p保存年产值 Dim n As Integer ' 整型变量n为所求年数 ① n = 0 ① p=2000 Do While p < 4000 ② (1+0.05) p = p * ② ③ N+1 n = ③ Loop Print "n="; CStr(n) End Sub 3、打开“考生文件夹\607\工程1.vbp”,完善程序并保存。 实现功能:当单击“显示”按钮后,随机产生10个属于区间[0,100)的自然数, 并保存于数组a中,然后在窗体上显示这10个数及其平均值。(注:学生运算结 果有可能跟样图中数值不一致)

9 ② I*j; ③ Next i

2、打开“考生文件夹\602\工程1.vbp”,完善程序并保存。 某公司某年的总产值为2000万元,若总产值以每年5%的速度增长,多少年后总 产值翻一倍? 实现功能:当单击窗体后,在窗体上输出问题答案。 '某公司2005年的总产值为2000万元,若总产值以每年5%的速度增长,多少年后 总产值翻一倍? '填空完成程序,使得当单击窗体后,在窗体上输出问题答案。
第 17 页 共 37 页

徐州经济技术开发区高级中学 信息组 '填空完成程序,使得单击"显示"按钮后,随机产生10个属于区间[0,100) 的自然数,并保存于数组a中。 '然后在窗体上显示这10个数的平均值。 '注:学生运算结果有可能跟样图中数值不一致。 '注:请不要更改源程序结构,删除①、②、③,并在对应位置填写正确的 代码。 Private Sub Command1_Click() Dim a(9) As Integer Dim s As Single Dim i As Integer ① 9 Me.Cls ② s+a(i) s = 0 ③ Next i Randomize For i = 0 To ① Step 1 a(i) = Int(Rnd * 100) Print a(i) Next i For i = 0 To 9 s = ② ③ Print "这10个自然数的平均值="; s / 10 End Sub 4、打开“考生文件夹\603\工程1.vbp”,完善程序并保存。 实现功能:当单击“计算7!”按钮后,文本框Text1显示7!的值。
'填空完成程序,使得当单击"计算7!"按钮后,Text1显示7!的值。 '注:请不要更改原程序结构,删除①、②、③,并在对应位置填写正确的代码 Private Sub Command1_Click() Dim a As Integer Dim i As Integer 第 18 页 共 37 页 a = 1

祝您考试成功! ① 7 ② a*i ③ a

For i = 1 To ① Step 1 a = ② Next i Text1.Text = CStr(③) End Sub

5、打开“考生文件夹\604\工程1.vbp”,完善程序并保存。 实现功能:编程计算

s ? 1?

1 1 1 1 1 ? ? ?? ? 2 3 4 99 100

的值。 '填空完成程序,编程计算 1-1/2+1/3-1/4+...+1/99-1/100,单击窗体后,在窗体上 显示结果。 '注:请不要更改源程序结构,删除①、②、③,并在对应位置填写正确的代码。 Private Sub Form_Click() Dim s As Single Dim i As Integer s= ① ① 0 For i = 1 To ② Step 1 ② 100 If i Mod 2 <> 0 Then ③ s - 1 / i s=s+1/i Else s= ③ End If Next i Print "s="; 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 【第4题】 【第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

① max=b ② max=c ③ max

① len ② 9-temp1 ③ y

⑤ text1.text ⑥ ss\3600 ⑦ 60

打开“Z:\4\工程1.vbp”,完善程序并保存。 实现功能:用穷举法找出所有的水仙花数的程序并保存。 水仙花数是指一类三位数,其各个数位上的数字之立方和为该数。例如:153=1 +5 +3 。 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 第 19 页 共 37 页
3 3 3

④ 100 ⑤ 100 ⑥ next i

徐州经济技术开发区高级中学 信息组
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 ② ① ② ③ 【第3题】 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

④ s(i) ⑤ -1 ⑥ s(i)

④ text1.text ⑤ b ⑥ text2.text

打开“Z:\36\工程1.vbp”,完善程序并保存。 实现功能:给出三角形的三边边长a,b,c(输入保证能构成三角形,无需判断正确性),

输出三角形面积。三角形面积计算公式: q=(a+b+c)/2。 Private Sub Command1_Click() Dim s As Single 第 20 页 共 37 页 Dim q As Single

,其中

or "是闰年" "不是闰年"

徐州经济技术开发区高级中学 信息组
Dim a 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 ② End Function Else ③ Else Dim b As Single 【第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 Then ② = x + 5 * a y = x - 2 * b Print "y="; CStr(y)

④ a ⑤ sqr ⑥ s

④ x ⑤ y ⑥ end if

④ Text2.text ⑤ p>=0 ⑥ else

End Sub 操作题(5道 共40分) 【第1题】 打开“Z:\43\工程1.vbp”,完善程序并保存。 实现功能:用递归法求斐波那契数列1,1,2,3,5,8,?第10项的值。 Public Function Fib(n As Integer) As Integer If (n = 1) Or (n = 2) Then Fib = ① Fib = Fib(n - 1) + Fib(n - 2)

Private Sub Command1_Click() 第 21 页 共 37 页

④ 1 ⑤ end if ⑥ 10

徐州经济技术开发区高级中学 信息组
Dim S As Integer S = Fib(③) Print "S=" & CStr(S) End Sub 【第2题】 打开“Z:\41\工程1.vbp”,完善程序并保存。 某超市为了对苹果进行促销,规定购买2公斤以上可以在原价每公斤6.80元的基础上打8折。 实现功能:输入购买的苹果公斤数,输出应付款。 Private Sub Command1_Click() Dim x As Single Dim cost As Single x = Val(InputBox("请输入苹果公斤数:")) If x <= 2 Then cost = ① Else cost = x * 6.8 * 0.8 ② Print ③ End Sub 【第3题】 打开“Z:\50\工程1.vbp”,完善程序并保存。 实现功能:在文本框text1、text2、text3中输入3根小木棒的长度(假设都是整数),判断能 否用它们搭成一个三角形,并把结果输出 到文本框text4中。 操作要求: (1)在窗体中加载“CommandButton”控件,命名为“Command1”并设置该控件“Caption” 属性值为“判断”; (2) 完善程序, 执行command1_click事件, 判断出结果, 如果能搭成三角形则在文本框text4 ② End Sub 【第4题】

祝您考试成功!

中输出“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" ④ ⑤

integer end if

④ x*6.8 ⑤ end if ⑥ cost

打开“Z:\40\工程1.vbp”,完善程序并保存。 实现功能:将一张100元面值的人民币换成若干5元、1元、5角面值的人民币,但要求100元 换成的零钱共100张,且要求每种面值不少 于1张,问5元、1元、5角各多少张,请输出每种可能的组合。 Private Sub Command1_Click() Dim Wuyuan Dim Yiyuan Dim Wujiao As Integer As Integer As Integer

For Wuyuan = 1 To 20 For Yiyuan = 1 To ①

⑤ 100 ⑥ yiyuan ⑦ end if

Wujiao = 100 - Wuyuan - ② If Wuyuan * 5 + Yiyuan * 1 + Wujiao * 0.5 = 100 Then Print "Wuyuan=" & Wuyuan & ",Yiyuan=" & Yiyuan & ",Wujiao=" & Wujiao ③ Next Yiyuan Next Wuyuan

第 22 页 共 37 页

徐州经济技术开发区高级中学 信息组
t = a End Sub 【第5题】 打开“Z:\45\工程1.vbp”,进行以下操作并保存。 实现功能: (1) 将label1标签上的文字设置为“测试系统”; (2) 把窗体中显示用户名的文本框的字体设置为“楷体_GB2312”; (3) 在窗体的相应位置添加一个“确定”的命令按钮 。 控件名请采用默认值。最终效果图如下: 【第2题】 a = ① b = ②

祝您考试成功!

Text1.Text = ③ Text2.Text = ④ End Sub

某县开发山区农业,需要研究本区内的山地气候。已有的研究结果表明,海拔每升高100米, 年平均气温降低0.5℃。 打开文件“Z:\54\工程1.vbp”,完善程序,实现下列功能: 在文本框text1中输入山脚处地表温度x,在文本框text2中输入相对高度h,在文本框text3 中输出相应高度的气温y。 (这一题的语言描述不够准确) Private Sub Command1_Click() Dim h, x, y ① Single Let x = Val(Text1.Text) Let ② = Val(Text2.Text) Let y = x - (h / 100) * 0.5

① as ② h ③ y

操作题(5道 共40分) 【第1题】 打开“Z:\68\工程1.vbp”,完善程序并保存。 实现功能:在文本框Text1和Text2中分别输入两个整数,单击“交换”按钮后,两个文本框 中的数字进行交换。 Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim t As Integer a = Val(Text1.Text) b = Val(Text2.Text)

Let Text3.Text = ③ End Sub 【第3题】 素数是指除了1与它本身以外不能被任何其它整数整除的数。打开文件“Z:\63\工程1.vbp”, 完善程序实现以下功能后保存。 输入一个小于2000000000的正整数到文本框text1中, 如果它是素数(质数), 就输出 “prime” , 否则就输出“no”。

⑤ ⑥ ⑦ ⑧

b t a b

(这里素数、质数的概念是什么关系?) Private Sub Command1_Click() Dim n, i As Long 第 23 页 共 37 页

徐州经济技术开发区高级中学 信息组
Dim yes As ① Let n = Val(Text1.Text) Let yes = True For i = 2 To n \ 2 If n Mod i = 0 Then Let yes = ② End If Next i If yes Then Let Text2.Text = "yes" ③ Let Text2.Text = "no" End If End Sub 【第4题】 “Z:\51\工程1.vbp”是采用“穷举法”求出所有水仙花数的程序,请完善程序并保存。 说明:若一个三位数abc,满足:abc=a3+b3+c3,则称abc为水仙花数。如三位数153满足: 13+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

祝您考试成功!

Boolean ② False ③ else

【第5题】 打开“Z:\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 操作题(5道 共40分) 【第1题】 打开“Z:\82\工程1.vbp”,进行以下操作并保存。 在窗体上新建一个命令按钮Command1,一个文本框Text1,属性全部采用默认值。 实现功能:单击命令按钮后,窗体的标题改为与文本框的内容一致。 Private Sub Command1_Click() ① = Text1.Text

⑤ dim ⑥ t1.text ⑦ s

⑤ 999 ⑥ (i - a * 100) mod 10 ⑦ end if

End Sub 【第2题】 打开“Z:\80\工程1.vbp”,完善程序并保存。 一只猴子摘了一堆桃子,它每天吃掉当天剩余桃子数的一半,每次又忍不住多吃一个,这样 到了第十天就剩下一个桃子了。 实现功能:计算猴子最初一共摘了多少个桃子。 Private Sub Command1_Click() Dim tz As Integer 'tz是桃子数 Dim ts As Integer 'ts是天数 第 24 页 共 37 页

⑤ ⑥ ⑦ ⑧

1 9 (tz+1) tz

徐州经济技术开发区高级中学 信息组
tz = ① For ts = 1 To ② tz = ③ * 2 Next ts Print "最初共有桃子" & ④ End Sub 【第3题】 打开文件“Z:\74\工程1.vbp”,完善程序并保存,使单击窗体时,在窗体上输出如下图案。 * ** *** **** *** ** * (这一题障碍有点大,要不要?) Private Sub Form_Click() Dim i As Integer Dim j As Integer Print For i = -3 To ① Print Tab(3); For j = 1 To 3 - ② Print ③ Next Print Next End Sub Else 第 25 页 共 37 页 Loop 【第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 * ④ Print y; "年以后,存款可以达到2000元" End Sub ①

1000 ② <=2000 ③ y+1 ④ (1+r)

① 3 ② abs(i)+1 ③ "*";

【第5题】 打开“Z:\71\工程1.vbp”,完善程序并保存。 实现功能:在文本框text1中输入一个正整数,单击“计算”按钮时判断该整数是偶数还是 奇数。如果是偶数,在标签上输出“偶 数”,否则输出“奇数”。 Private Sub Command1_Click() Dim a As Integer a = Val(①) If ② = 0 Then Label1.③ = "偶数" ① ②

text1.text a mod 2 ③ caption ④ end if

徐州经济技术开发区高级中学 信息组
Label1.Caption = "奇数" ④ End Sub 操作题(5道 共40分) 【第1题】 在窗体上有一个名称为Timer1的计时器和一个名称为Label1的标签,Label标签的初始值为 空,当运行程序后,将在标签中显示当前时间的数字时钟(包括时:分:秒),如图所示。 打开文件“Z:\84\工程1.vbp”完善程序并保存。 Next i

祝您考试成功!

Private Sub Command1_Click() Dim total As Integer ① For i = 1 To 100 If a(i) Mod 2 = 0 Then ② End If Print CStr(total) End Sub Private Sub Form_Load() Randomize For i = 1 To 100 ③ = Int(Rnd * 1000) Next i

(第一空不写问题也不大) Private Sub Form_Load() Timer1.Interval = 1000 ① End Sub Private Sub Timer1_timer() ② End Sub 【第2题】 打开“Z:\91\工程1.vbp”,完善程序并保存。 实现功能:随机生成100个整数,统计偶数的个数。 Dim a(100) As Integer ⑤ ① ? ② label1.caption=time

End Sub 【第3题】 打开“Z:\89\工程1.vbp”,完善程序并保存。 乘坐飞机的经济舱时,托运行李一般不得超过20公斤,超重每公斤按经济舱全票价的1.5%计 算。 实现功能:输入行李重量及经济舱全票价后,点击按钮,计算出托运行李所需费用。 Private Sub Command1_Click() Dim w As Integer Dim pj As Integer Dim fy As Single w = Val(Text1.Text) pj = Val(Text2.Text) If w <= 20 Then ① 'w是行李重量 'pj是机票价格

fy=0 ② end if ③ fy

total=0 ⑥ total=total+1 ⑦ a(i)

第 26 页 共 37 页

徐州经济技术开发区高级中学 信息组
① Else fy = (w - 20) * pj * 0.015 ② Text3.Text = ③ End Sub 【第4题】 某程序的功能是:当x<50时,y=0.8×x;当50≤x≤100时,y=0.7×x;当x>100时,显示“输 入的数据出界!”。请打开文件“Z: \86\工程1.vbp”,完善程序。(程序要再修改) Private Sub Command1_Click() Dim x As Single x = Val(InputBox("请输入x的值!")) ① y = 0.8 * x Else ② y = 0.7 * x Else Print "输入的数据出界!" End If End If Print x, y End Sub 【第5题】 打开“Z:\87\工程1.vbp”,完善程序并保存。 实现功能:通过键盘输入10个数,统计这10个数的和。 Private Sub Command1_Click() 第 27 页 共 37 页 ②

祝您考试成功!

Dim x As Integer Dim s As Integer Dim i As Integer For i = 1 ① x = Val(InputBox("NO." & i)) ② Print CStr(x) Next i Print "total:" & ③ End Sub 操作题(5道 共40分) 【第1题】 打开“Z:\104\工程1.vbp”,完善程序并保存。 实现功能:输入不同的飞船速度后,判断出它的飞行状况。 在“神州七号”飞行程序中,其飞行状况与飞行速度的关系如下表: 飞船速度(V) 单位(km/s) 7.91<=V<11.19 11.19<=V<16.67 V>16.67 Dim v As Single v = Val(InputBox("请输入飞船速度的值")) Select Case v Case Is > 16.67 Label1.Caption = "飞船挣脱太阳引力飞出太阳系" case is ① Label1.Caption = " 飞船离开地球的控制,围绕太阳转" case is ② Label1.Caption = "飞船绕地球似做匀速圆周运动" 飞行状况 飞船绕地球似做匀速圆周运动 飞船离开地球的控制 ,围绕太阳转 飞船挣脱太阳引力飞出太阳系 ⑧ to 10

⑨ s=s+x ⑩ s

if x<50 then ③ x<=100 then

Private Sub Command1_Click()

徐州经济技术开发区高级中学 信息组
Case Else Label1.Caption = " 输入数据错误!" ③ End Sub 【第2题】 打开“Z:\102\工程1.vbp”,完善程序并保存。 实现功能:用程序实现函数:y=|x|,y的值在Text1文本框中显示出来。 Private Sub Command1_Click() Dim x As Integer, y As Integer x = Val(InputBox("请输入x的值:")) If ① Then y = x Else ② End If Text1.Text = ③ End Sub 【第3题】 “假设你是第一人民医院的一名医生”:3月21日下午要为学校高一年级新生进行一次体检, 恰巧你被安排体检体重和身高,并给出健 康建议。体重/身高之比,大于25为偏胖,则输出“您的身材偏胖,需要加强锻炼!”;在 18.5— 25之间为标准;则输出“您的身材 适中!”;小于18.5为偏瘦,则输出“您的身材偏瘦,需要补充营养!”。 打开文件“Z:\99\工程1.vbp”,完善程序实现以下功能:输入体重和身高,输出判定结果。 Private Sub Form1_Click() Dim tz Dim bz As Single, sg As Single As Single Next i 第 28 页 共 37 页 Else ⑤ >=11.19

祝您考试成功!

sg = Val(InputBox("请输入您的体重:")) bz = tz / sg ^ 2 If ② > 25 Then MsgBox ("您的身材偏胖,需要加强锻炼!") Else If ③ Then MsgBox ("您的身材偏瘦,需要补充营养!")

⑥ ⑦

>=7.91 end select

① tz MsgBox ("您的身材真棒!") ② bz ③ bz>15.5 and bz<=25 End If bz<18.5 End If
End Sub

① x>=0 ② y=-x ③ y

【第4题】 打开“Z:\94\工程1.vbp”,完善程序并保存。 实现功能:用选择排序法将数组a中的10个整数按升序排列。 Private Sub Command1_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 1000) Next i For i = 1 To ① For j = ② If a(i) ③ a(j) Then a(0) = a(i) a(i) = a(j) ④ End If Next j ⑥ 10

① = Val(InputBox("请输入您的体重:"))

⑦ 1 to i ⑧ < ⑨ A(j)=a(0)

徐州经济技术开发区高级中学 信息组
For i = 1 To 10 Print CStr(a(i)) Next i End Sub 【第5题】 打开“Z:\96\工程1.vbp”,完善程序并保存。 实现功能:假设有一个5位数密码。 只记得密码为67□□8, 其中百位和十位的数字记不清了, 但知道该数能够被78整除,也能被67整 除。请完善算法帮忙找出这个密码。 Private Sub Command1_Click() Dim x As Long For x = ① To 67998 Step 10 If (x Mod 67 = 0) Or (x Mod 78 = 0) Then Print ② End If ④ End Sub Loop 操作题(5道 共40分) 【第1题】 打开“Z:\108\工程1.vbp”,完善程序并保存。 实现功能:判断从文本框Text1中输入的数据,如果该数据满足条件:除以3余2,除以5余3, 除以7余4,则输出在窗体上。 Private Sub Command1_Click() x = Val(Text1.Text) If x Mod 3 = 2 Then If ① = 3 Then If ② Then 【第3题】 【第2题】 End Sub End If

祝您考试成功!
Print ③ End If End If

打开“Z:\119\工程1.vbp”,完善程序并保存。 关于人口问题,如果我国人口年增长率为4%,问多少年后我国人口超过20亿。(假设现在我 国人口为14亿) 实现功能:当单击窗体后,在窗体上输出问题答案。 Private Sub Form_Click() Dim p As Integer Dim n As Long ① n = 0 Do While ② p = p * ③ n = ④ Print "n=" & CStr(n) End Sub '变量p保存人口

⑤ 67008 ⑥ X ⑦ Next x

⑤ ⑥ ⑦ ⑧

p=14 p<=20 (1+0.04) N+1

打开“Z:\117\工程1.vbp”,完善程序并保存。 实现功能:当单击窗体后,计算22+42+62+?+N<1500的N的最大值。 Private Sub Form_Click() Dim s As Integer Dim N As Integer N = 22 第 29 页 共 37 页

④ x mod 5 ⑤ x mod 7=4 ⑥ x

徐州经济技术开发区高级中学 信息组
s = 0 Do s = s + ① N = ② Loop Until s > 1500 Print "N=" & CStr(③) End Sub 【第4题】 打开文件“Z:\114\工程1.vbp”,进行以下操作后并保存。 完善程序,求1/1+1/2+2/3+?+21/32+?前10项的值。 Private Sub Command1_Click() Dim s Dim a Dim b Dim k s = 0 a = 1 b = 1 For k = 1 To 10 s = s + a / b a = ① s = ② b = ③ Next k Print s End Sub 【第5题】 打开“Z:\116\工程1.vbp”,完善程序并保存。 Else As Integer As Integer As Integer As Integer Loop

祝您考试成功!

⑤ n ⑥ n+20 ⑦ n-20

实现功能:计算1+3+5+?+99的值。 Private Sub Command1_Click() Dim i As Integer Dim s As Integer i = 1 s = 0 Do While i <= 99 s = s + ① i = ② Print "s=" & ③ End Sub 操作题(5道 共40分) 【第1题】 打开“Z:\178\工程1.vbp”,完善程序并保存。

⑤ s+i ⑥ i+2 ⑦ s

① a+b ② s+b/a ③ a+b

实现功能:用递归法求3!+5!+7!的值。 Public Function Fac(a As Integer) As Integer If a = 1 Then Fac = ① Fac = a * ②(a - 1) End If End Function Private Sub Command1_Click() Dim S As Integer S = Fac(3) + Fac(③) + Fac(7) Print "S=" & CStr(S) End Sub 第 30 页 共 37 页

⑤ 1 ⑥ Fac ⑦ 5

徐州经济技术开发区高级中学 信息组
【第2题】 打开“Z:\122\工程1.vbp”,完善程序并保存。 王晓珊家距离学校S1公里,某天她和李明各自同时从家里步行出发上学,王晓珊步行V1公里 /小时,李明步行V2公里/小时,结果他们 同时到达学校。 实现功能:输入S1,V1,V2,输出李明家与学校之间的距离S2。 Private Sub Command1_Click() Dim S1 Dim V1 Dim T As Single, S2 As Single As Single, V2 As Single As Single S = 0 Do

祝您考试成功!

L = 0.7 * ① S = S + H + L H = ② Loop While L >= Home / 1000 Print ③ End Sub 【第4题】 吴俨同学找来了一条长度为L的铁丝,希望制作一个面积最大的矩形框。请完善程序,解决 此问题。打开文件“Z:\124\工程1.vbp”, 填空完成程序,输入铁丝的长度L,输出矩形面积的最大值。(为什么要用整型?) Private Sub Command1_Click() Dim L As Integer Dim chang As Integer Dim kuai As Integer Dim s As Integer Dim smax As Integer smax = 0 L = InputBox("请输入一条铁丝的长度:") For chang = 1 To L \ 2 For kuai = 1 To L \ 2 - chang s = ① If ② Then smax = s End If ①

S1 = Val(InputBox("请输入王晓珊家离学校的距离:")) V1 = Val(InputBox("请输入王晓珊步行速度:")) V2 = Val(InputBox("请输入李明步行速度:")) T = ① S2 = ② * T Print ③ End Sub 【第3题】 打开“Z:\120\工程1.vbp”,完善程序并保存。 小球从高处自由下落,每次弹起的高度是下落高度的70%,当小球弹起的高度不足原高度的 千分之一时,小球很快就会停止跳动。 实现功能:输入小球的起始高度HOME后,计算并输出小球在整个弹跳中所经历的总路程S(忽 略弹起高度不足原高度的千分之一的部 分)。 Private Sub Command1_Click() Dim H Dim S H = Home As Single, L As Single As Single, Home As Single

⑤ s1/v1 ⑥ v2 ⑦ s2

chang*kuan ② s>smax ③ smax

Home = Val(InputBox("请输入一个起始高度:"))

① h ② L ③ s

Next kuai Next chang Print ③ End Sub 第 31 页 共 37 页

徐州经济技术开发区高级中学 信息组
【第5题】 打开“Z:\175\工程1.vbp”,完善程序并保存。 实现功能:用递归法求1+2+3+?+100的值。 Public Function S(n As Integer) As Integer If n = 1 Then S = ① Else S = ② + S(n - 1) End If End Function Private Sub Command1_Click() Dim Sum As Integer Sum = S(③) Print "Sum=" & CStr(Sum) End Sub 操作题(5道 共40分) 【第1题】 打开“Z:\600\工程1.vbp”,完善程序并保存。 实现功能:这是一个简单的显示评语程序,在文本框Text1中输入一个数后,单击“评语” 按钮,在标签Label1显示评语。 当输入一个小于60的数时,显示“不及格”; 当输入一个大于等于60且小于85的数时,显示“良好”; 当输入一个大于等于85的数时,显示“优秀”。 Private Sub Command1_Click() Dim Cj As Single Cj = Val(①) If Cj ② 60 Then Label1.Caption = "不及格" End If '定义变量Cj,值由文本框Text1读入 【第3题】 ③ End Sub ⑤

祝您考试成功!
If Cj >= 60 ③ End If Then Label1.Caption = "良好"

If Cj >= 85 Then Label1.Caption = "优秀" End If End Sub 【第2题】 打开“Z:\598\工程1.vbp”,完善程序并保存。 举重比赛中,60公斤级选手体重不能超过60公斤。 实现功能:填空完成程序,使得在文本Text1中输入一个大于60的数时,标签Label1显示“超 重!不能参赛!”; 当输入一个小于等于60的数时,标签Label1显示“合格,可以参赛!”。 Private Sub Command1_Click() Dim t As Single t = Val(①) If ② Then Label1.Caption = "超重!不能参赛!" Else Label1.Caption = "合格,可以参赛!" '定义变量t,值由文本框Text1读入

1 ⑥ n ⑦ 100

④ text1.text ⑤ t>60 ⑥ end if

打开“Z:\601\工程1.vbp”,完善程序并保存。 实现功能:当单击窗体后,计算出1+2+3+?+N<500的N的最大值,并在文本框Text1中显示出 来。 Private Sub Form_Click() Dim s As Integer 第 32 页 共 37 页 '变量s存放和

① text1.text ② < ③ And cj<85

徐州经济技术开发区高级中学 信息组
Dim n As Integer '为n赋初值 n = ① '为s赋初值 s = ② Do While s < 500 n = n + 1 s = ③ Loop Text1.Text = CStr(n - 1) End Sub 【第4题】 打开“Z:\599\工程1.vbp”,完善程序并保存。 实现功能:当单击窗体后, 计算1+2+3+?+N>500的N的最小值, 并在文本框Text1中显示出来。 Private Sub Form_Click() Dim s As Integer '为s赋初值 s = ① '为n赋初值 n = ② Do n = n + 1 s = s + n Loop While s ③ 500 Text1.Text = CStr(n) End Sub '变量s存放和 End Sub Dim n As Integer 【第5题】

祝您考试成功!

打开“Z:\597\工程1.vbp”,完善程序并保存。

⑤ 0 ⑥ 0 ⑦ S+n

实现功能:计算s=1!+2!+3!+?+8!的值并在窗体上打印出结果。 Private Sub Form_Click() Dim s As Single ' s变量用于存放计算结果 '定义一个循环变量 Dim p As Single Dim i As Integer '给s赋初值 s = ① '给p赋初值 p = ② For i = 1 To 8 p = p * i s = ③ Next i Print "s="; CStr(s)

⑤0 ⑥1 ⑦ S+p

操作题(5道 共40分)

⑤ 0 ⑥ 0 ⑦ <=

【第1题】 打开“Z:\605\工程1.vbp”,完善程序并保存。

实现功能:单击窗体后,计算 Private Sub Form_Click() Dim s As Single Dim i As Integer s = ① For i = 1 To ② Step 1 s = s + ③ 第 33 页 共 37 页 '定义变量s为单精度型 '定义循环变量 ① ②

,在窗体上显示结果。

0 100 ③ 1/i

徐州经济技术开发区高级中学 信息组
Next i Print "s="; CStr(s) End Sub 【第2题】 打开“Z:\606\工程1.vbp”,完善程序并保存。 实现功能:当单击“计算1+2+3+?+100”按钮后,文本框Text1显示1+2+3+?+100的值。 Private Sub Command1_Click() Dim a As Integer Dim i As Integer a = ① For i = 1 To ② Step 1 a = ③ Next i Text1.Text = CStr(④) End Sub 【第3题】 打开“Z:\604\工程1.vbp”,完善程序并保存。 Loop 【第4题】 End Sub

祝您考试成功!
s = ③ End If Next i Print "s="; CStr(s)

打开“Z:\602\工程1.vbp”,完善程序并保存。 某公司2005年的总产值为2000万元,若总产值以每年5%的速度增长,多少年后总产值翻一 倍?

① 0 ② 100 ③ a+i

实现功能:当单击窗体后,在窗体上输出问题答案。 Private Sub Form_Click() Dim p As Single Dim n As Integer ① n = 0 Do While p < 4000 p = p * ② n = ③ Print "n="; CStr(n) ' 变量p保存年产值 ' 整型变量n为所求年数

⑤ p=2000 ⑥ (1+0.05) ⑦ N+1

实现功能:编程计算 Private Sub Form_Click() Dim s As Single Dim i As Integer s = ① For i = 1 To ② Step 1 If i Mod 2 <> 0 Then s = s + 1 / i Else ⑤ 0

的值。

End Sub 【第5题】 打开“Z:\603\工程1.vbp”,完善程序并保存。 实现功能:当单击“计算7!”按钮后,文本框Text1显示7!的值。 Private Sub Command1_Click() Dim a As Integer Dim i As Integer a = 1 第 34 页 共 37 页

⑥ 100 ⑦ s - 1 / i

⑤ 7 ⑥ A*i ⑦ a

徐州经济技术开发区高级中学 信息组
For i = 1 To ① Step 1 a = ② Next i Text1.Text = CStr(③) End Sub 操作题(5道 共40分) 【第1题】 打开“Z:\609\工程1.vbp”,完善程序并保存。 实现功能:单击窗体时打印下面所示的图案。 **** *** ** * Private Sub Form_Click() Dim i As Integer Dim j As Integer For i = ① To 1 Step -1 For j = 1 To i Step 1 ② Next j Print ③ End Sub 【第2题】 打开“Z:\608\工程1.vbp”,完善程序并保存。 实现功能:鸡兔同笼,共有100条腿,40个头,问鸡有几只,兔有几只? Private Sub Form_Click() Dim Ji As Integer 'Ji变量表示鸡的个数 第 35 页 共 37 页 End Sub 【第3题】

祝您考试成功!
Dim Tu As Integer Dim Leg As Integer For Ji = 1 To 40 Tu = ① '计算腿数 Leg = ② + Tu * 4 '如果腿正好100只,则打印。 If Leg = ③ Then Print "鸡="; Ji; "只", "兔="; Tu; "只" End If Next Ji 'Tu变量表示兔的个数 'Leg变量表示腿数

① 40- ji ② Ji*2 ③ 100

② 4 ③ Print"*"; ④ Next i

打开“Z:\611\工程1.vbp”,完善程序并保存。 实现功能:当单击“显示”按钮后,Text1、Text2分别显示交换后的变量x、y值。 Private Sub Command1_Click() Dim x, y As Integer x = 10 y = 100 If x < y Then '以下三条语句交换x,y的值 t = ① x = y y = ② End If Text1.Text = ③ Text2.Text = CStr(y) End Sub

⑤ x ⑥ t ⑦ x

徐州经济技术开发区高级中学 信息组
【第4题】 打开“Z:\607\工程1.vbp”,完善程序并保存。 实现功能:当单击“显示”按钮后,随机产生10个属于区间[0,100)的自然数,并保存于数 组a中,然后在窗体上显示这10个数及其平 均值。(注:学生运算结果有可能跟样图中数值不一致) Private Sub Command1_Click() Dim a(9) As Integer Dim s As Single Dim i As Integer Me.Cls s = 0 Randomize For i = 0 To ① Step 1 a(i) = Int(Rnd * 100) Print a(i) Next i For i = 0 To 9 s = ② ③ Print "这10个自然数的平均值="; s / 10 End Sub 【第5题】 打开“Z:\610\工程1.vbp”,完善程序并保存。 实现功能:当单击“显示”按钮后,显示下面的图形: @ @@ @@@ @@@@ @@@@@ 第 36 页 共 37 页 End Sub @@@@@@

祝您考试成功!

Private Sub Command1_Click() Dim i As Integer Dim j As Integer '定义i为整型变量 '定义j为整型变量

For i = 1 To 6 Step 1 For j = 1 To ① Step 1 Print ② Next ③ Print Next i

④ 9 ⑤ S+a(i) ⑥ Next i

操作题(5道 共40分) 【第1题】 打开“Z:\612\工程1.vbp”,完善程序并保存。 实现功能:当单击“显示”按钮后,在窗体上显示如图99乘法表。 Private Sub Command1_Click() Dim i As Integer Dim j As Integer For i = 1 To ① Step 1 Print " "; For j = 1 To 9 Print ② Print vbTab; Next j Print ③ End Sub ④

9 ⑤ I*j; ⑥ Next i

① i ② "@"; ③ j

徐州经济技术开发区高级中学 信息组
【第2题】 打开“Z:\614\工程1.vbp”,完善程序并保存。 实现功能:当单击“显示”按钮后,随机产生10个属于区间[0,100]的自然数,并保存于数 组a中,然后在窗体上显示这10个数中的最 大值。(注:学生运算结果有可能跟样图中数值不一致) 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 < a(i) Then max = ② End If Next i Print "这10个自然数中的最大值="; CStr(③) End Sub 【第3题】 打开“Z:\613\工程1.vbp”,完善程序并保存。 实现功能:在Text1中输入一个数,单击“判断”按钮后,判断这个数是奇数还是偶数,并 在Label1中显示“奇数”或“偶数”出来。 Private Sub Command1_Click() ③ End Sub

祝您考试成功!
Dim b As Single '从Text1中读入这个数,并保存在变量a中

Dim a As Single

a = Val(①) b = a Mod ② If b = 0 Then Else Label1.Caption = "奇数" ① text1.text Label1.Caption = "偶数" ② 2

③ End if

编写程序,求∏的近似值,直到最后一项的绝对值小于10 为止,用近似公式∏ /4=1-1/3+1/5-1/7+? Dim s As Integer, n As Integer

-4

⑤ 9 ⑥ A(i) ⑦ Max

Dim t As Single, pi As Single s = 1: t = 1: n = 1: pi = (1) Do While asb(t) >= 0.0001 pi = pi + (2) n = n + 2 s = -s t = (3) Loop Print pi * (4) 小松鼠采松子,晴天每天可以采20个,雨天每天可以采12个,10天共采168个,问晴天和雨 天各多少天。 Dim x, y As Integer 'x:晴天,Y:雨天 x = (1) y = (2) Print "晴天="; x; "雨天="; y 第 37 页 共 37 页

(6) (7) (8) (9)

0 t s/n 4

(2) (68-12*10)/(20-12) (3) 10-x


相关文章:
2013江苏省信息技术学业水平测试vb操作题带答案
2013江苏省信息技术学业水平测试vb操作题带答案_其它课程_高中教育_教育专区。祝您考试成功! 2013江苏省信息技术学业水平测试vb操作题带答案 Vb专项练习第一套 1、...
2013江苏省信息技术学业水平测试vb操作题带答案
2013江苏省信息技术学业水平测试vb操作题带答案_其它课程_高中教育_教育专区。祝您考试成功! 2013江苏省信息技术学业水平测试vb操作题带答案 Vb专项练习第一套 1、...
江苏省2009年12月信息技术学业水平测试VB操作题WORD含答案
江苏省2009年12月信息技术学业水平测试VB操作题WORD含答案_电脑基础知识_IT/计算机...2012年江苏高中信息技术... 37页 免费 2009年江苏省普通高中信... 14页 1...
江苏省普通高中信息技术学业水平测试
江苏省普通高中信息技术学业水平测试_专业资料。江苏省普通高中信息技术学业水平...【第 27 题】打开"考生目录 VB\190\工程 1.vbp" 进行以下操作后并保存! 填空...
江苏省信息技术学业水平测试(选修VB)常用知识点
江苏省信息技术学业水平测试(选修VB)常用知识点_其它课程_高中教育_教育专区。Vb 有关试题都是教材上的知识点 1、算法 书 P2-5 2、描述算法的方法:自然语言...
2012年江苏省普通高中学业水平测试(物理卷)(含答案)
vB C.向心加速度 aA>aB D.向心力 FA>FB 4 23.水平地面上的物体在水平...7 2012 年江苏省普通高中学业测试(必修科目)试卷 物理参考答案一、单项选择题:...
江苏省普通高中信息技术学业水平测试
江苏省普通高中信息技术学业水平测试单机练习版(第一套 第二套 第三套) 第一...【第 27 题】打开"考生目录 VB\190\工程 1.vbp" 进行以下操作后并保存! 填空...
vb操作题考过的
vb操作题考过的_其它课程_高中教育_教育专区。江苏省信息技术学业水平测试VB 精选复习例题 Vb专项练习第一套题目 1、打开“考生文件夹\96\工程1.vbp”,完善程序...
江苏省2012年普通高中信息技术学业水平测试
江苏省2012年普通高中信息技术学业水平测试_其它课程_...算法与程序设计 VB4655 人,算 法与程序设计 JAVA9...及时妥善处理突发的技术故障等关键问 题上,准备充分...
更多相关标签:
江苏高中学业水平测试 | 江苏省学业水平测试 | 江苏中职学业水平测试 | 江苏学业水平测试 | 2016江苏学业水平测试 | 江苏学业水平测试报名 | 2017江苏学业水平测试 | 2016年江苏省学业水平 |