20xx江苏省信息技术学业水平测试vb操作题带答案(1)

20xx江苏省信息技术学业水平测试vb操作题带答案(1)内容摘要：

④ b ① 1 ② n ③ 100 ① s1/v1 ② v2 ③ s2 祝您考试成功。 第 10 页 共 59 页 Dim t As Integer a = Val() b = Val() t = a a = ① b = ② = ③ = ④ End Sub Vb专项练习 第六套 打开 考生文件夹 \30\工程 ，完善程序并保存。 实现功能： 39。 请不要更改源程序的结构，删除原题里的①、②、③。 填写正确的代码，使程序完善 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 Else y = x 2 * b ③ Print y=。 CStr(y) End Sub 打开 “考生文件夹 \596\工程 ”，完善程序并保存。 实现功能： 当在文本 框 Text1中输入圆的半径后，单击 “计算 ”按钮，计算圆的周长，并在文本框 Text2中显示出来。 39。 填空完成程序，使得当在 Text1中输入圆的半径后，单击 计算 按钮，计算圆的周长，并在Text2中显示出来。 39。 注：请不要更改原程序结构，删除①、②、③，并在对应的位置填写正确代码 Private Sub Command1_Click() Const pi = 39。 定义符号常量 Dim c As Single 39。 定义周长 c为单精度型 Dim r As Single 39。 定义半径 r为单精度型 r = Val(① ) c = pi * ② ③ = CStr(c) End Sub 打开 “考生文件夹 \611\工程 ”，完善程序并保存。 实现功能：当 单击 “显示 ”按钮后， Text Text2分别显示交换后的变量 x、 y值。 39。 填空完成程序，使得单击 显示 按钮时， Text Text2分别显示变量 x、 y的值。 39。 注：请不要更改原程序结构，删除①、②、③，并在对应位置填写正确的代码 Private Sub Command1_Click() Dim x, y As Integer x = 10 y = 100 If x y Then 39。 以下三条语句交换 x,y的值 ① x ② y ③ end if ① x ② t ③ x ① ② r*2 ③ 祝您考试成功。 第 11 页 共 59 页 t = ① x = y y = ② End If = ③ = CStr(y) End Sub 打开 “考生文件夹 \41\工程 ”，完善程序并保存。 某超市为了对苹果进行促销，规定购买 2公斤以上可以在原价每公斤 础上打 8折。 实现功能： 输入购买的苹果公斤数，输出应付款。 39。 请不要更改源程序的结构，删除原题里的①、②、③。 填写正确的代码，使程序完善 Private Sub Command1_Click() Dim x As Single Dim cost As Single x = Val(InputBox(请输入苹果 公斤数 ： )) If x = 2 Then cost = ① Else cost = x * * ② Print ③ End Sub 打开 “考生文件夹 \20\工程 ”， 完善程序并保存。 某超市苹果价格每斤 4元，购买 10斤以上 (包括 10斤 )将享受 8折优惠。 实现功能：使得在 Text1中输入重量并单击 “计算 ”按钮后，在 Label1中显示对应的价格。 39。 请不要更改源程序的结构，删除原题里的①、②、③。 填写正确的代码，使程序完善 Private Sub Command1_Click() Dim x, s As Single x = Val() If ① Then s = 4 * ② Else s = 4 * x End If = CStr(③ ) End Sub Vb专项练习 第七套 打开 “考生文件夹 \614\工程 ”，完善程序并保存。 实现功能：当 单击 “显示 ”按钮后，随机产生 10个属于 区间 [0， 100)的自然数，并保存于数组 a中，然后在窗体上显示这 10个数中的最大值。 (注：学生运算结果有可能跟样图中数值不一致 ) 39。 (注：学生运算结果有可能跟样图中数值不一致。 ) 39。 注：请不要更改原程序结构，删除①、②、③，并在对应位置填写正确的代码 ① x* ② end if ③ cost ① x=10 ② x* ③ s 祝您考试成功。 第 12 页 共 59 页 Private Sub Command1_Click() Dim a(9) As Integer Dim max As Integer Dim i As Integer 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 打开 “考生文件夹 \15\工程 ”， 完善程序并保存。 实现功能 ： 单击按钮后打印出下面所示的图案。 (第一行的第一个 “*”从第 5列开始输出 ) 39。 请不要更改源程序的结构，删除原题里的①、②、③。 填写正确的代码，使程序完善 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 打开 “考生文件夹 \598\工程 ”，完善程序并保存。 举重比赛中， 60公斤级选手体重不能超过 60公斤。 实现功能： 填空完成程序，使得在文本框 Text1中输入一个大于 60的数时，标签Label1显示 “超重。 不能参赛。 ”； 当输入一个小于等于 60的数时，标签 Label1显示 “合格，可以参赛。 ”。 39。 举重比赛中， 60公斤级选手体重不能超过 60公斤。 39。 填空完成程序，使得在文本 Text1中输入一个大于 60的数时，标签 Label1显示 超重。 不能参赛。 ； 39。 当输入一个小于等于 60的数时，标签 Label1显示 合格，可以参赛。 39。 注：请不要更改原程序结构，删除①、②、③，并在对应位置填写正确的代码 Private Sub Command1_Click() Dim t As Single 39。 定义变量 t，值由文本框 Text1读入 t = Val(① ) If ② Then = 超重。 不能参赛。 Else = 合格，可以参赛。 ③ End Sub 打开 “考生文件夹 \108\工程 ”，完善程序并保存。 实现功能： 判断从文本框 Text1中输入的数据，如果该数据满足条件：除以 3余 2，① ② t60 ③ end if ① 9 ② a(i) ③ max ① 4 ② 5 ③ “*” 祝您考试成功。 第 13 页 共 59 页 除以 5余 3，除以 7余 4，则输出在窗体上。 39。 请不要更改源程序的结构，删除原题里的①、②、③。 填写正确的代码，使程序完善 Private Sub Command1_Click() x = Val() If x Mod 3 = 2 Then If ① = 3 Then If ② Then Print ③ End If End If End If End Sub 打开 “考生文件夹 \181\工程 ”，完善程序并保存。 实现功能： 从键盘输入 10个学生的测试成绩，输出最高分和 最低分。 39。 请不要更改源程序的结构，删除原题里的①、②、③。 填写正确的代码，使程序完善 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 专项练习第八套 打开 “考生文件夹 \117\工程 ”， 完善程序并保存。 实现功 能： 当单击窗体后，计算 22＋ 42＋ 62＋„＋ N1500的 N的最大值。 39。 请不要更改源程序的结构，删除原题里的①、②、③。 填写正确的代码，使程序完善 Private Sub Form_Click() Dim s As Integer Dim N As Integer N = 22 s = 0 Do s = s + ① N = ② Loop Until s 1500 Print N= amp。 CStr(③ ) End Sub 打 开 “考生文件夹 \9\工程 ”，完善程序 并保存。 实现功能： 输入 10个数，存放在数组中，并按输入的逆序输出在窗体上。 39。 请不要更改源程序的结构，删除原题里的①、②、③。 填写正确的代码，使程序完善 Private Sub Command1_Click() Dim s(9) As Single For i = 0 To 9 ① x mod 5 ② x mod 7=4 ③ x ① cj(i) ② cj(i)min ③ cj(i) ① s(i) ② 1 ③ s(i) ① n ② n+20 ③ n20 祝您考试成功。 第 14 页 共 59 页 ① = Val(InputBox(请输入一个数 )) Next i For i = 9 To 0 Step ② Print ③ Next i End Sub 打开 “考生文件夹 \87\工程 ”， 完善程序 并保存。 实现功能： 通过键盘输入 10 个数，统计这 10个数的和。 39。 请不。