高中信息技术学业水平测试VB操作题

合集下载

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

Vb专项练习第一套题目1、打开“考生文件夹\96\工程1.vbp”，完善程序并保存。

实现功能：假设有一个5位数密码。

只记得密码为67□□8，其中百位和十位的数字记不清了，但知道该密码能够被78整除，也能被67整除。

请完善算法帮忙找出这个密码。

''请不要更改源程序的结构，删除原题里的①、②、③。

填写正确的代码，使程序完善Private Sub Command1_Click()Dim x As LongFor x = ① To 67998 Step 10If (x Mod 67 = 0) And (x Mod 78 = 0) ThenPrint ②End If③End Sub2、“考生文件夹\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 IntegerFor i = 100 To ①a = i \ 100b = (i - a * 100) \ 10c = ②If a * a * a + b * b * b + c * c * c = i ThenPrint CStr(i)③Next iEnd Sub3、打开“考生文件夹\12\工程1.vbp”，完善程序并保存。

实现功能：在Text1中输入一个代表秒数的整数后，单击“计算”按钮后，在Label1、Label2、Label3中显示对应的小时、分钟和秒数。

如在Text1中输入“3672”，Label1、Label2、Label3中分别显示“1”、“1”、“12”，即1小时1分12秒。

信息技术学业水平测试VB套操作题复习及答案

b = Val(Text2.Text)
c = Val(Text3.Text) If a > b Then max = a Else max = b
If c > max Then max = c
Label3.Caption = CStr(max) End Sub
VB操作二打不开
VB操作三
Private Sub Command1_Click() Dim s As Single Dim q As Single
a = i \ 100 b = (i - a * 100) \ 10 c = i Mod 10 If a ^ 3 + b ^ 3 + c ^ 3 = i Then Print i Next i End sub
VB操作一
Private Sub Command1_Click() Dim s(9) As Single
VB操作三
Private Sub Command1_Click() Dim year As Integer year = Val(InputBox("请输入年号:"))
If ((year Mod 4 = 0) And (year Mod 100 <> 0)) Or (year Mod 400 = 0) Then
VB操作一
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 Len(Text1.Text) temp1 = Mid(x, i, 1) temp2 = 9 - temp1

高中计算机学考vb试题及答案

高中计算机学考vb试题及答案一、选择题1. VB 是什么软件？A. Visual StudioB. Visual BasicC. Video BreakdownD. Virtual Box答案：B2. VB 是一种 _____ 语言。

A. 汇编B. 机器C. 面向对象D. 不确定答案：C3. 在 VB 中，下列哪个控件用于显示文本内容？A. ButtonB. TextBoxC. CheckBoxD. ListBox答案：B4. VB 中用于执行特定任务的代码块称为：A. 函数B. 方法C. 程序D. 过程答案：D5. 在 VB 中，用于将用户输入的数据存储在内存中的对象是：A. LabelB. TextBoxC. ComboBoxD. PictureBox答案：B6. 下列哪个选项用于在 VB 中进行循环操作？A. If-Else语句B. For循环C. Switch语句D. Try-Catch语句答案：B7. 在 VB 中，用于判断条件是否成立的代码块是：A. If-Else语句B. For循环语句C. While循环语句D. Switch语句答案：A8. VB 中的数据类型包括：A. Integer、Single、StringB. Integer、Double、BooleanC. Integer、Long、DateD. Integer、String、Boolean答案：B9. VB 中表示“或”操作的运算符是：A. +B. /C. &D. ||答案：C10. VB 中用于进行字符串拼接的运算符是：A. +B. /C. &D. ||答案：C二、填空题1. VB 是一种 ______ 语言。

答案：面向对象2. VB 是由 ______ 公司开发的。

答案：Microsoft3. VB 中每个控件都有一个 ______ 。

答案：事件4. VB 中用于将数据显示在窗体上的控件是 ______ 。

山东高中信息技术学业水平测试VB算法真题

ﻩNexti
ﻩPriｎtp
ﻩEｎd Sub答案:_＿___＿__＿_＿_________＿＿_＿
５．表一是某种绘图软件的部分指令，如要根据表中的指令画出图一的图形,请根据分析填空：
6.写出程序结果:(8分，每空4分）
ﻩPrｉvatｅSｕbForm_Aｃｔivaｔｅ()
ﻩDｉm pＡs Iｎteger,i As Iｎteger
8、下列哪一个不是用于程序设计的软件（)
A、BASICB、Ｃ语言ﻩC、WorｄﻩﻩD、Ｐascal
9、下列可以作为合作变量名的是(）
A、a7B、7ａﻩﻩC、ａ－3Ｄ、8
10、编程求1＋2+3＋.．．．.．．.+１000的和，该题设计最适合使用的控制结构为( )。
ﻩA、顺序结构ﻩB、分支结构C、循环结构ﻩD、选择结构
EnｄSｕb
运行结果:___＿_＿＿_____＿____＿
５、计算1+1／2+……＋1／50的值。
ＰrｉｖatｅSuｂForm_actiｖａte（）
Dimｉ,sas iｎteger
s=0
Foｒｉ＝1to＿________＿_____
ｓ=___＿_______
Nexti
Pｒint “Ｓ=”；s
ＥndＳub
Next i
Ｐｒintch
EndＳｕbﻩﻩ
答案:____＿_＿____＿_______＿__＿_
４．写出程序结果：
PriｖａｔｅＳubＣoｍmand1_Cｌick()
DimpAs Inｔeger,ｉＡsIntｅｇer,ｎAsＩntｅger
p=0：n=5
Ｆori=1Toｎ
ﻩp＝p+i*2
ﻩﻩIf p＞=１0 Then ExitＦor

高中信息技术会考软件正式考试,最后两道vb大题题库(由会考软件数据库内提取)含答案

Content----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "信息"Text2.Text = "社会"Text3.text = text2+text1</Program>答案社会信息----------------------------------------------下面代码运行后，文本框Text1中显示的内容是什么？----------------------------------------------Text1.Text = "vb"Text2.Text = Text1.TextText1.Text = "程序设计"</Program>答案程序设计----------------------------------------------下面程序代码运行时，分别输入数值2和4，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a * b</Program>答案8----------------------------------------------下面程序代码运行时，分别输入数值20和4，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a / b</Program>答案5----------------------------------------------下面程序代码运行时，分别输入数值7和4，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a \ b</Program>答案1----------------------------------------------下面程序代码运行时，分别输入数值23和4，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a \ b</Program>答案5----------------------------------------------下面程序代码运行时，分别输入数值7和2，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a ^ b</Program>答案49----------------------------------------------下面程序代码运行时，分别输入数值2和3，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a ^ b答案8----------------------------------------------下面程序代码运行时，分别输入数值7和2，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a \ b答案3----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "北京"Text2.Text = "中国"Text3.text = text2+text1答案中国北京----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "吉林"Text2.Text = "中国"答案中国吉林----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "制造"Text2.Text = "中国"Text3.text = text2+text1答案中国制造----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "北京"Text2.Text = "中国"Text3.text = text1+text2答案北京中国----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "绿色"Text2.Text = "奥运"Text3.text = text2+text1答案奥运绿色----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "大学"Text2.Text = "清华"答案清华大学----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "北京"Text2.Text = "大学"Text3.text = text2+text1答案大学北京----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "工作原理"Text2.Text = "计算机"Text3.text = text2+text1答案计算机工作原理----------------------------------------------下面代码运行后，文本框Text3中显示的内容是什么？----------------------------------------------Text1.Text = "系统"Text2.Text = "计算机"Text3.text = text2+text1答案计算机系统----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 100 To 89 Step -4s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 25 To 70 Step 20s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 10 To -10 Step -4if i>0 then s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 10 To -10 Step -4if i<0 then s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 10 To -20 Step -6if i>0 then s = s + iNext i答案2----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 0 To 10 Step 2if i<>0 then s = s + iNext i答案5----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 0 To 10 Step 2if i=0 then s = s + iNext i答案1----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 0 To 10 Step 2if i > 5 then s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 0 To 10 Step 2if i< 8 then s = s + iNext i答案4----------------------------------------------当执行下面程序后，变量s的值是多少？----------------------------------------------Dim s As DoubleDim i As Double s = 15 For i = -0.6 To -1.9 Step -0.8s = s - 9Next i Print s答案-3----------------------------------------------当执行下面程序后，变量s的值是多少？----------------------------------------------Dim s As DoubleDim i As Double s = 100 For i = -0.6 To -1.9 Step -0.8s = s / 10Next i Print s答案1----------------------------------------------当执行下面程序后，变量s的值是多少？----------------------------------------------Dim s As DoubleDim i As Double s = 50 For i = -0.6 To -1.9 Step -1s = (s - 10) / 2Next i Print s答案5----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 0 To 10 Step 5if i< 18 then s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 10 To -10 Step -4if i>3 then s = s + iNext i答案2----------------------------------------------下面程序代码运行时，分别输入数值2和4，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a * b答案8----------------------------------------------执行下面的程序后，在对话框中输入整数14后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1if (x-5)/3>3 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数14后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1if (x-5)/3<>3 then y=2 Print y答案1----------------------------------------------执行下面程序后，输出的结果是多少？----------------------------------------------Dim x As IntegerDim n As IntegerDim k As Integer n = 14 For k = 1 To n Step 7x = x + kNext k Print x答案9----------------------------------------------下面代码运行后，文本框Text2中显示的内容是什么？----------------------------------------------Text1.Text = "信息"Text2.Text = Text1.TextText1.Text = "社会"信息----------------------------------------------下面代码运行后，文本框Text2中显示的内容是什么？----------------------------------------------Text1.Text = "信息技术会考"Text2.Text = Text1.TextText1.Text = "高中"答案信息技术会考----------------------------------------------下面代码运行后，文本框Text1中显示的内容是什么？----------------------------------------------Text1.Text = "信息技术会考"Text2.Text = Text1.TextText1.Text = "高中"答案高中----------------------------------------------下面代码运行后，文本框Text1中显示的内容是什么？----------------------------------------------Text1.Text = "吉林省"Text2.Text = Text1.TextText1.Text = "普通高中"答案普通高中----------------------------------------------下面代码运行后，文本框Text2中显示的内容是什么？----------------------------------------------Text1.Text = "吉林省"Text2.Text = Text1.TextText1.Text = "普通高中"吉林省----------------------------------------------下面代码运行后，文本框Text2中显示的内容是什么？----------------------------------------------Text1.Text = "zhongguo"Text2.Text = Text1.TextText1.Text = "china"答案zhongguo----------------------------------------------下面代码运行后，文本框Text1中显示的内容是什么？----------------------------------------------Text1.Text = "zhongguo"Text2.Text = Text1.TextText1.Text = "china"答案china----------------------------------------------下面代码运行后，文本框Text1中显示的内容是什么？----------------------------------------------Text1.Text = "2008"Text2.Text = Text1.TextText1.Text = "北京奥运"答案北京奥运----------------------------------------------下面代码运行后，文本框Text2中显示的内容是什么？----------------------------------------------Text1.Text = "2008"Text2.Text = Text1.TextText1.Text = "北京奥运"2008----------------------------------------------下面代码运行后，文本框Text1中显示的内容是什么？----------------------------------------------Text1.Text = "信息"Text2.Text = Text1.TextText1.Text = "社会"答案社会----------------------------------------------下面程序代码运行时，分别输入数值23和45，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案68----------------------------------------------下面程序代码运行时，分别输入数值15和6，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案21----------------------------------------------下面程序代码运行时，分别输入数值230和405，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案635----------------------------------------------下面程序代码运行时，分别输入数值-9和8，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案-1----------------------------------------------下面程序代码运行时，分别输入数值-9和-9，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案-18----------------------------------------------下面程序代码运行时，分别输入数值63和-45，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案18----------------------------------------------下面程序代码运行时，分别输入数值-23和-45，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案-68----------------------------------------------下面程序代码运行时，分别输入数值23和-45，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案-22----------------------------------------------下面程序代码运行时，分别输入数值1234和4321，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案5555----------------------------------------------下面程序代码运行时，分别输入数值12和43，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案55----------------------------------------------下面程序代码运行时，分别输入数值19和40，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案59----------------------------------------------下面程序代码运行时，分别输入数值79和8，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案87----------------------------------------------下面程序代码运行时，分别输入数值50和50，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案100----------------------------------------------下面程序代码运行时，分别输入数值7和8，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案15----------------------------------------------下面程序代码运行时，分别输入数值123和456，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案579----------------------------------------------下面程序代码运行时，分别输入数值79和-8，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案71----------------------------------------------下面程序代码运行时，分别输入数值-15和-6，则输出结果什么？----------------------------------------------Dim x As IntegerDim y As Integer x = Val(Text1.Text)y = Val(Text2.Text) Print x + y答案-21----------------------------------------------执行下面的程序后，在对话框中输入整数12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1if (x-5)/9>1 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数20后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1if (x-5)/9>1 then y=2 Print y答案2----------------------------------------------执行下面的程序后，在对话框中输入整数16后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1if (x-5)/3>3 then y=2 Print y答案2----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 1 To 10 Step 3s = s + iNext i答案4----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 3 To 20 Step 5s = s + iNext i答案4----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 26 To 40 Step 3s = s + iNext i答案5----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 1 To 10 Step 5s = s + iNext i答案2----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 10 To 1 Step -3s = s + iNext i答案4----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 9 To 19 Step 3s = s + iNext i答案4----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 20 To 10 Step -2s = s + iNext i答案6----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 99 To 120 Step 9s = s + iNext i答案3----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = 1 To -10 Step -3s = s + iNext i答案4----------------------------------------------在下面的这段程序中，s=s+i语句执行的次数是多少？----------------------------------------------Dim i As IntegerDim s As Integer For i = -1 To -13 Step -3s = s + iNext i答案5----------------------------------------------执行下面的程序后，在对话框中输入整数12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x>0 then y=x/3+9 Print y答案13----------------------------------------------执行下面的程序后，在对话框中输入整数8后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x-10>0 then y=x/3+9 Print y答案10----------------------------------------------执行下面的程序后，在对话框中输入整数24后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x-10>0 then y=x/3+9 Print y答案17----------------------------------------------执行下面的程序后，在对话框中输入整数10后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x-10<>0 then y=x/3+9 Print y答案10----------------------------------------------执行下面的程序后，在对话框中输入整数2后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x-10<0 then y=x^3 Print y答案8----------------------------------------------执行下面程序后，变量a的值是什么？----------------------------------------------Dim a As StringDim b As StringDim c As String a = "wine"b = "water"c = aa = bb = c答案water----------------------------------------------执行下面程序后，变量b的值果是什么？----------------------------------------------Dim a As StringDim b As StringDim c As String a = "wine"b = "water"c = aa = bb = c答案wine----------------------------------------------下面程序代码运行时，分别输入数值35和46，则输出结果什么？----------------------------------------------Dim a As IntegerDim b As Integer a = Val(InputBox("请输入a的值"))b = Val(InputBox("请输入b的值")) Print a + b答案81----------------------------------------------执行下面的程序后，在对话框中输入整数35后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值")) y=1 if x<>0 then y=2*x+x/5 Print y答案77----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 56 To 70 Step 8x = x + i \ 5Next i Print x答案73----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 1 To 10 Step 3x = x + i \ 5Next i Print x答案53----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 10 For i = 2 To 10 Step 3x = x + i \ 5Next i Print x答案12----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = -1 To 10 Step 3 x = x + i \ 5Next i Print x答案52----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 0 To 10 Step 5 x = x + i / 5Next i Print x答案53----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 0 To 9 Step 3 x = x + i / 3Next i Print x答案56----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 1 To 10 Step 3 x = x + iNext i Print x答案72----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 15 For i = 1 To 10 Step 4 x = x + i \ 5Next i Print x答案17----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 1 To 5 Step 3 x = x + i * 2Next i Print x答案60----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 1 For i = 1 To 8 Step 3 x = x + i * 3Next i Print x答案37----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 1 For i = 1 To 10 Step 3 x = x + iNext i Print x答案23----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer x = 50 For i = 10 To 20 Step 5 x = x + i - 5Next i Print x答案80----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer For i = 1 To 10 Step 3x = x + i \ 5Next i Print x答案3----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer For i = 10 To 20 Step 4x = x + i \ 5Next i Print x答案7----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer For i = 18 To 10 Step -3x = x + i \ 5Next i Print x答案8----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer For i = 5 To 10 Step 3x = x + i \ 5Next i Print x答案2----------------------------------------------执行下面的程序后，x的值为多少？----------------------------------------------Dim x As IntegerDim i As Integer For i = 10 To 1 Step -3x = x + i \ 5Next i Print x答案3----------------------------------------------执行下面的程序后，在对话框中输入整数1后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值")) y=1 if (x-5)/3>0 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数1后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1 if (x+5)/2>3 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数8后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x/3>3 then y=20 Print y答案10----------------------------------------------执行下面的程序后，在对话框中输入整数15后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=111 if x/3>3 then y=222 Print y答案222----------------------------------------------执行下面的程序后，在对话框中输入整数12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值")) y=1 if x<>0 then y=2 Print y答案2----------------------------------------------执行下面的程序后，在对话框中输入整数1后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值")) y=1 if x<0 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数0后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值")) y=1 if x<>0 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数-9后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值")) y=1 if x<0 then y=2 Print y答案2----------------------------------------------执行下面的程序后，在对话框中输入整数12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1 if x=0 then y=2 Print y答案1----------------------------------------------执行下面的程序后，在对话框中输入整数12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=10 if x>0 then y=20 Print y答案20----------------------------------------------执行下面的程序后，在对话框中输入整数-12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=12 if x<0 then y=-12 Print y答案-12----------------------------------------------执行下面的程序后，在对话框中输入整数12后，窗体上显示的结果是多少？----------------------------------------------Dim x As IntegerDim y As Integer x=val(inputbox("输入x的值"))y=1 if x<>0 then y=0 Print y。

VB考试高中试题及答案

VB考试高中试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个不是基本数据类型？A. IntegerB. StringC. ObjectD. Float答案：C2. 下列哪个语句用于在VB中声明一个变量？A. DimB. DeclareC. SetD. Let答案：A3. 在VB中，以下哪个是正确的循环结构？A. ForB. WhileC. IfD. All of the above答案：D4. VB中，哪个函数用于将字符串转换为数字？A. Str()B. Val()C. CInt()D. CStr()答案：B5. 以下哪个是VB中的事件？A. FunctionB. SubC. EventD. Property答案：C二、填空题（每题2分，共20分）1. 在VB中，使用________关键字可以定义一个类。

答案：Class2. VB中的________属性用于获取或设置控件的文本。

答案：Text3. 要实现一个按钮的点击事件，需要在代码中编写________过程。

答案：Click4. VB中的________函数可以用于获取当前日期。

答案：Date5. 使用________语句可以结束一个循环。

答案：Exit For（或Exit Do）三、简答题（每题10分，共30分）1. 简述VB中数组的定义和使用。

答案：在VB中，数组是一种可以存储多个元素的数据结构。

数组可以通过Dim语句定义，例如Dim myArray(1 To 10) As Integer。

这定义了一个包含10个整数的数组。

数组的索引从0开始，因此myArray(0)是第一个元素。

使用数组可以方便地存储和操作一系列相关数据。

2. 解释VB中的面向对象编程概念。

答案：面向对象编程（OOP）是一种编程范式，它使用“对象”来设计软件。

在VB中，对象是具有属性和方法的数据结构。

属性是对象的状态信息，而方法是对象的行为。

通过类来定义对象的结构，然后使用New关键字创建对象的实例。

信息技术高中会考VB模块操作题题库演示教学

信息技术高中会考V B 模块操作题题库信息技术高中会考VB模块操作题题库第1题打开“Y:\4619”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求1+4+7+……+40的值。

第2题打开“Y:\4620”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求1到300之间偶数的个数。

第3题打开“Y:\4621”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求1到100之间所有整数的和。

第4题打开“Y:\4622”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求100到200之间奇数的和。

第5题打开“Y:\4623”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求2到10之间所有偶数的积。

第6题打开“Y:\4624”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求5+10+15+…+85的和。

第7题打开“Y:\4625”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求1到500之间能被7整除的数的个数。

第8题打开“Y:\4626”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求2×12×22×32×42×52的积。

第9题打开“Y:\4627”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求2+5+8+11+……+50的值。

第10题新建一个VB工程，按下表的要求添加控件，并设置其属性。

将操作结果保存在“Y:\4674”文件夹下，窗体文件名为：“Form1.frm”，工程文件名称为：“工程1.vbp”。

高中信息技术学业水平考试VB程序复习题

2016年高中信息技术学业水平考试VB程序复习题一、顺序结构程序1.启动VB，打开工程文件“c:\MyExam\VB91.vbp”，完成如下算法设计: [12 分]2013年6月，小李同学参加了一场考试，其中有一道题目是：已知长方体的长为8，宽为5，高为23，求长方体的体积V，小李同学编写出了如下的不完整程序。

请将程序缺失部分“___”补充完整，并将“___”字符删除，正确运行程序后，保存文件并退出VB。

Function func( )Dim A As SingleDim B As SingleDim H As SingleDim V As SingleA=8:B=5:H=23V=________func=”长方体的体积V=” & VEnd Function2. 已知圆柱的底面半径R为6，高H为11，下列程序的功能是计算圆柱的体积V （∏的值取3.14）。

请将程序缺失部分“___”补充完整。

Function func( )Dim R As Single,H As Single,V As Single R=6H=11V=________func=”圆柱体的体积V=” & VEnd Function3.已知圆的半径r是3，计算圆的面积s（∏的值取3.14），小李同学编写出了如下的不完整程序。

请将程序缺失部分“___”补充完整。

Function func( )Dim r As SingleDim s As Singler=3s=________func=”圆的面积s=” & sEnd Function4. 2013年6月，小李同学参加了一场考试，其中有一道题目是：已知变量a的值为1，变量b的值为2，交换变量a、b的值。

小李同学编写出了如下的不完整程序。

请将程序缺失部分“___”补充完整。

Function func( )Dim a As Integer,b As IntegerDim t As Integera=1:b=2t=a:a=bb=________func=”a=” & a & ”b=” & bEnd Function5. 已知变量x的值是4698，下列程序的功能是求x的各位数字之和s，其中a存放的是千位数字，b存放的是百位数字，c存放的是十位数字，d存放的是个位数字。

高二信息技术会考vb操作题知识点

高二信息技术会考vb操作题知识点信息技术作为一门重要的学科，已经成为了现代社会中不可或缺的一部分。

而在高二信息技术会考中，VB操作题是一项重要内容。

掌握VB操作题的知识点对于高二学生来说尤为关键。

本文将介绍高二信息技术会考VB操作题的知识点，以帮助学生更好地备考。

一、VB操作题的基本概念及特点VB操作题即使用Visual Basic编程语言完成的题目，它具有以下基本特点：1.1 题目要求：VB操作题涉及到程序设计和问题解决，要求学生根据给出的题目要求，使用VB语言编写相应的程序代码，并能实现问题求解。

1.2 题目形式：VB操作题可以是开放性的问题，也可以是给定的具体问题。

学生需要根据题目要求，设计出符合题目要求的程序代码。

1.3 程序设计思路：学生在解答VB操作题时，需要先明确题目的需求，然后分析问题，设计出解决问题的程序思路，并用VB语言编写程序代码，最后运行程序进行验证。

二、VB操作题常见知识点2.1 变量与数据类型：在VB操作题中，学生需要熟悉VB语言中的变量的概念和使用方法，以及各种常见的数据类型，如整型、浮点型、字符型等。

学生需要根据题目需求，选择合适的数据类型，以便在程序中存储和处理数据。

2.2 运算符和表达式：VB操作题中常常涉及运算符和表达式的使用，学生需要熟悉各种运算符的优先级和使用方法，能够根据题目要求，正确地运用运算符和表达式进行计算。

2.3 条件语句和循环语句：条件语句和循环语句是VB操作题中常用的控制结构。

学生需要理解条件语句和循环语句的基本概念和使用方法，并能够根据题目要求，设计出符合题目要求的条件和循环结构。

2.4 数组：数组是VB操作题中常用的数据结构。

学生需要熟悉数组的定义和使用方法，能够根据题目要求，正确地使用数组进行数据的存储和读取。

2.5 函数和子程序：函数和子程序是VB操作题中用于实现程序模块化和代码重用的重要手段。

学生需要理解函数和子程序的概念和使用方法，并根据题目要求，设计出合适的函数和子程序，以便实现程序的模块化和代码的重用。

高中信息技术VB专项题(学考)

高中信息技术VB专项题（学考）VB专题题DimiAInteger,AIntegerDimaAInteger,bAInteger,cAInteger,dAInteger=0Fori=1000To9999①'取出个位数字b=(iMod100)\\10'取出十位数字c=i\\100Mod10'取出百位数字d=i\\1000'取出千位数字Ifa^4+b^4+c^4+d^4=iThenLit1.AddItemi=②EndIfNe某tLabel2.Caption=″四叶玫瑰数共有″+Str()+″个″EndSub(2)程序中的语句“b=(iMod100)\\10”和下列哪些项功能相同(多选)。

A.b=i\\10Mod10C.b=iMod100\\10B.b=int(i/10)Mod10D.b=Mid(i,3,1)第1页VB专题题图1图2在以下ViualBaic程序的画线①②处填入合适的语句,实现上述功能。

Dima(1To10)AIntegera(i)=Int(Rnd()某900+100)Lit1.AddItem①Ne某tiEndSubFori=②Ifa(i)Mod2=1ThenLit2.AddItema(i)EleLit1.AddItema(i)EndIfNe某tiEndSub图1第2页VB专题题图2DimASingle,某ASingle,nAInteger,iAIntegerRandomizeLit1.Clear=①n=Val(Te某t2.Te某t)Fori=1To②'通过循环语句产生n-1个红包的随机值某=Int((Rnd()某/(n-i)+0.005)某100)/100Lit1.AddItemStr(某)=③Ne某ti 某=Int((+0.005)某100)/100'产生最后一个红包Lit1.AddItemStr(某)EndSub第3页VB专题题Fori=1ToLen(a)c=Mid(a,i,1)If②Thenc=Chr(Ac(c)-32)EndIfb=b&cNe某tiTe某t2.Te某t=bEndSub(2)由程序可知,小写字母比大写字母的ASCII编码值大5、多数高次方程不存在求根公式,因此求精确根非常困难,甚至不可能,从而寻找方程的近似根就显得特别重要。

高中信息技术VB专项题(学考)

1.“四叶玫瑰数”是指一个四位自然数各位上数字的四次方之和等于该四位数本身的数。

如自然数8208=84+24+84”,那它就是一个“四叶玫瑰数”。

现用VB编写一个程序,实现如下功能:单击“查找”按钮Command1,在列表框List1中显示所有“四叶玫瑰数”,并在标签Label2中显示找到的个数,运行界面如下图所示:(1)为实现上述功能,请在画线处填入正确的代码。

Private Sub Command1_Click()Dim i As Integer, s As Integer&Dim a As Integer, b As Integer, c As Integer, d As Integers = 0For i = 1 000 To 9 999①'取出个位数字b = (i Mod 100)\10 '取出十位数字…c = i \ 100 Mod 10 '取出百位数字d = i \ 1 000 '取出千位数字If a ^ 4+ b ^ 4 + c ^ 4 + d ^ 4 = i Thenis =②）End IfNext= ″四叶玫瑰数共有″+ Str(s) + ″个″End Sub(2)程序中的语句“b = (i Mod 100) \ 10”和下列哪些项功能相同(多选)。

%=i\10 Mod 10 =int(i/10) Mod 10= i Mod 100\10 =Mid(i,3,1)2、用VB设计一个奇数迁移的程序,具体要求是:单击“产生”按钮Command1,清空两个列表框中的内容,并产生10个3位自然数放入左边列表框List1中,如图1所示。

单击“奇数迁移”按钮Command2,将列表框List1中的所有奇数迁移到列表框List2中,如图2所示。

图1 图2)在以下Visual Basic程序的画线①②处填入合适的语句,实现上述功能。

Dim a(1 To 10) As IntegerPrivate Sub Command1_Click()(RandomizeFor i = 1 To 10a(i) = Int(Rnd() * 900 + 100)①Next i)End SubPrivate Sub Command2_Click()For i =②^If a(i) Mod 2 = 1 Thena(i)Elsea(i)End IfNext iEnd Sub3、小贝用VB6语言编写了一个拼手气红包程序,实现的功能是:在文本框Text1中输入发放红包的总金额s,在文本框Text2中输入发放红包的个数n,单击“发放红包”按钮Command1,为n个红包随机分配金额,并在列表框List1中显示分配后的这些金额。

高中信息技术学业水平测试 VB操作题

Vb算法程序题汇总目录1、输入5个数并排序（选择排序）2、判读输入的三条边能否构成三角形3、图形打印（倒三角）4、判断是否为闰年5、产生随机数6、输入消费金额，计算出实收金额7、输入用电量，计算出输出电费8、求出100以内某数的阶乘9、程序改错，求100以内奇数之和10、输入学生成绩，显示相应等级（selectcase结构）11、图形打印（三角形）12、用字符串函数Ucase()和转换函数Asc()填空13、对数组赋值并求和14、利用函数，把abcd变成BCD15、输入10个数，求最大值最小值和平均值16、输入公里数，计算车费17、已知两边和夹角，求三角形面积18、输入学生成绩，显示相应等级（selectcase结构）19、学生成绩转换（selectcase结构）20、求100以内能够被19整除的个数1、完善程序代码实现当单击"输入并排序"按钮后，从键盘输入5个数，保存在数组中，并显示在窗体上，然后把这5'个数按照从小到大的顺序排列并显示在窗体上。

PrivateSubCommand1_Click()DimxAsLongDimnAsInteger,iAsInteger,sAsLongDima(1To5)AsSingleFori=1To5a(i)=Val(InputBox("请在输入第"+Str(i)+"/5个数"))Printa(i);NextiPrintFori=1To___①__Min=a(i):m=iForx=i+1To5If___②___ThenMin=a(x):m=xNextxk=a(i):____③___:a(m)=kNextiPrint"从小到大排序后的数据为："Fori=1To5Printa(i);NextiEndSub2、完善程序代码实现:输入三角形的三条边长，首先判断给出的三条边能否构成三角形（三角形的两边之和大于第三边），如可以，则计算并输出该三角形的面积；否则输出"不能构成三角形"。

高中信息技术学业水平测试(会考)信息技术科目Vb界面练习

3、设置窗体的标题栏显示内容为“登陆”，窗体的width属性为7200，height属性为5050
4、为按钮1编写单击事件代码，要求单击“登陆”按钮后，标签控件内容变为“班级姓名座位号”。如“100*班张三33号”
Vb界面练习二
1、新建一工程
2、添加相应的控件，两个文本框控件（text1和text2）；两个标签控件（label1和label2）；两个命令按钮控件（command1和command2）
4）在"简历"右侧画一文本框Text2,高为1500,宽为4335,设为多行文本输入,并有垂直滚动条;
5）保存文件.
3）插入一个命令按扭,标题为"单击进入",字体为黑体,小三号,按钮宽度2000。
4）保存结果。
Vb界面练习七
1）设窗体Form1的名称改为"Ct1";
2）在Ct1窗体上画两个标签Label1,Label2,标题分别为"姓名","简历",字体为楷体三号字;
3）在"姓名"右侧画一文本框Text1,清空内容;
3、设置各控件的相关属性，设置后界面如图所示
4、密码输入时在屏幕上以“*”代替;
提示：Text2控件的PassWordChar属性设置为“*”,作用：设置文本utton为false，minbutton为false）
Vb界面练习三
Label2
Vb界面练习四
Vb界面练习五
1）将窗体标题设为"课程选择";
2）在窗体上画一个名称为Label1标签,标题为"学号",字体为宋体,小二号;
3）在"学号"右侧画一个名称为Text1的文本框,宽为2300,高为555;

信息技术高中会考VB模块操作题题库

信息技术高中会考VB模块操作题题库第1题打开“Y:\4619”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求1+4+7+……+40的值。

第2题打开“Y:\4620”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求1到300之间偶数的个数。

第3题打开“Y:\4621”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求1到100之间所有整数的和。

第4题打开“Y:\4622”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求100到200之间奇数的和。

第5题打开“Y:\4623”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求2到10之间所有偶数的积。

第6题打开“Y:\4624”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求5+10+15+…+85的和。

第7题打开“Y:\4625”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求1到500之间能被7整除的数的个数。

第8题打开“Y:\4626”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求2×12×22×32×42×52的积。

第9题打开“Y:\4627”文件夹中的文件：“d1.vbp”，进行以下操作并保存。

在VB代码窗口指定位置修改完善程序代码，实现求2+5+8+11+……+50的值。

第10题新建一个VB工程，按下表的要求添加控件，并设置其属性。

将操作结果保存在“Y:\4674”文件夹下，窗体文件名为：“Form1.frm”，工程文件名称为：“工程1.vbp”。

高中信息技术会考(VB部分)练习

高中信息技术会考VB复习题一、单选题1. 计算机程序的三种结构是顺序结构、、选择结构。

A．模块结构B．循环结构C．多重循环结构D．IF块结构2. 是指用户操作引发或由系统引发，能被对象所识别并做出响应的动作。

A．任务B．事件C．控件D．过程3. 在VB中，窗口坐标系的原点在，x轴向右为正，y轴向下为正。

A．窗口左上角B．窗口右下角C．窗口正中间D．窗口右上角4. 在VB应用程序设计中，通常应对编写程序代码。

A．所有对象B．窗体C．Timer D．有事件的对象5. 在面向对象程序设计中，用来描述对象的特征信息。

A．事件B．方法C．代码D．属性6. 在VB编程中，如果需要返回鼠标的当前位置，或了解按下的是鼠标哪个键及需要配合键盘上的Shift、Ctrl、Alt键时，应该使用事件。

A．Click B．Change C．MouseDown D．KeyPress7. 在VB应用程序设计中，如果想让Timer控件每秒钟响应一次，应该将其Inerval属性设置为。

A．1 B．60 C．100 D．10008. 下列过程中，是程序开始运行时，窗体一加载就运行的程序段。

A．Form_Load B．Form_ClickC．Form_MouseDown D．Form_KeyPress9. 的Visual Basic表达式是。

A．(-b+b^2-4ac)/2a B．(-b+sqr(b^2-4*a*c))/(2*a)C．(-b+sqr(b^2-4ac))/(2a) D．(-b+sqr(b^2-4ac))/2a10. 在VB系统中，代表内存单元，是命了名的存储空间。

A．变量B．常量C．函数D．字节11. 语句用于声明变量，并定义变量的数据类型，给变量分配存储空间。

A．Sub B．Dim C．Call D．End12. 在VB程序设计语言中，语句的功能是使系统产生的随机数真正随机化。

A．Rnd B．Circle C．Randomize D．Dim13. 关系表达式的值为。

高中信息技术学业水平测试-VB操作题

算法程序题汇总目录1、输入5个数并排序（选择排序）2、判读输入的三条边能否构成三角形3、图形打印（倒三角）4、判断是否为闰年5、产生随机数6、输入消费金额，计算出实收金额7、输入用电量，计算出输出电费8、求出100以内某数的阶乘9、程序改错，求100以内奇数之和10、输入学生成绩，显示相应等级（结构）11、图形打印（三角形）12、用字符串函数()和转换函数()填空13、对数组赋值并求和14、利用函数，把变成15、输入10个数，求最大值最小值和平均值16、输入公里数，计算车费17、已知两边和夹角，求三角形面积18、输入学生成绩，显示相应等级（结构）19、学生成绩转换（结构）20、求100以内能够被19整除的个数1、完善程序代码实现当单击"输入并排序"按钮后，从键盘输入5个数，保存在数组中，并显示在窗体上，然后把这5'个数按照从小到大的顺序排列并显示在窗体上。

1()xn , i , sa(1 5)i = 1 5a(i) = (("请在输入第" + (i) + "/5个数"))a(i);ii = 1 ①= a(i): m = ix = i + 1 5②= a(x): m = xxk = a(i): ③: a(m) = ki"从小到大排序后的数据为："i = 1 5a(i);i2、完善程序代码实现:输入三角形的三条边长，首先判断给出的三条边能否构成三角形（三角形的两边之和大于第三边），如可以，则计算并输出该三角形的面积；否则输出"不能构成三角形"。

1()a, b, c, q, sa = (1)b = (2)c = (3)q = (a + b + c) / 2(a + b) <= c (a + c) <= b ①(b + c) <= a"不能构成三角形"s = ②(q * (q - a) * (q - b) * (q - c))"三角形的面积是" & s③3、删除①②③及下划线，填上正确的代码，画出如下所示的图形，请不要更改原程序结构。

信息技术学业水平测试VB操作复习题目含答案

End sub
信息技学水平 VB操作复目含答案
VB操作一
Private Sub Command1_Click() Dim s(9) As Single For i = 0 To 9 s(i) = Val(InputBox("请输入一个数")) Next i For i = 9 To 0 Step -1 Print s(i) Next i
②
a=①
③
s=②
b=③
Next k
Print s
End Sub
信息技学水平 VB操作复
目含答案
a = a+b s = s+b/a b = a+b
Private Sub Command1_Click() Dim i As Integer Dim s As Integer i=1 s=0 Do While i <= 99 s=s+① i=② Loop Print "s=" & ③
目含答案
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 9 For j = i+1 to 10 If a(i) > a(j) Then a(0) = a(i) a(i) = a(j) a(j) =a(0) End If Next j Next i For i = 1 To 10 Print CStr(a(i)) Next i
t = Val(①)
If ② Then
Label1.Caption = "超重！不能参赛！" Else