浙江高中信息技术选考VB数组习题
浙江省五年(2015-2019)高中学考、高考选考信息技术真题分类汇编18 VB(选考)填空题(解析版)
浙江省五年（2015-2019）高中学考、高考选考信息技术真题分类汇编专题18VB（选考）填空题（解析版）1.（2019年4月）给定m个区间和1个数组（有n个元素），现要求根据各区间限定的取值范围，将该数组依次分割成m + 1个段。
具体分割方法如下：●第1段是从数组首个元素开始、元素值都属于第1区间的最长连续元素段。
如果首个元素不属于第1区间，则第1段元素个数为0;●第1段分割后的剩余元素，用同样的方法来依次分割第2段、第3段、…、第m段；●第m段分割后的剩余元素分割到第m + 1段(剩余段）。
若第p(1≤p≤m-1)段末尾连续元素的值也同时属于第p+1区间，则这块连续元素称为第P段“重叠块”，该段其余部分称为第P段“非重叠块”。
由于不存在第m+1区间，这里特别规定：第m段的全部元素都分割到第m段“非重叠块”，第m段“重叠块”的元素个数为0。
一个数组分段示例如下图。
图中数组第1个元素10不属于第1区间[0,5]，因此第1段的元素个数为0。
10和20属于第2区间，而33不属于第2区间，因此第2段只包含10和20两个元素。
第3段末尾连续3个元素的值也同时属于第4区间。
因此，第3段“非重叠块”包含33、58、46，第3段“重叠块”包含55、62、69。
（1）给定2个区间依次为[110,50]、[30,80],数组各元素为“12,44,34,45,66,50，45,70”，则第1段“重叠块”中的元素个数为个。
（2）小李根据上述描述，设计了一个统计各段“非重叠块”、“重叠块”和剩余段中元素个数的算法。
算法的VB程序如下，请在划线处填入合适的代码。
Const n = 18, m = 6Dim a(1To n) As IntegerDim b(1To2 * m) As Integer'b(1)、b(2)为第1区间的下限和上限,b(3)、b(4)为第2区间的下限和上限，...Dim c (1To2*m + 1) As Integer'数组用于保存统计结果：'c(1)、c(2)分别存储第1段“非重叠块”和“重叠块”的元素个数'c(3)、c(4)分别存储第2段“非重叠块”和“重叠块”的元素个数'c(2m-1)存储第m段“非重叠块”元素个数，c(2m)存储第m段“重叠块”元素个数(值为0) 'c(2m + l)存储剩余段元素个数Private Sub Command1 _Click()Dim i As Integer，p As Integer，L As Integer，LL As Integer'读取n个数据并保存在数组a中.代码略'读取m个区间的下限和上限并保存在数组b中，代码略For i = 1To2 * m+1c(i) = 0Next ii = 1: p = 1L = 0 :LL = 0Do WhileIf IsIn (i,p) ThenIf IsIn (i, p + 1) ThenLL=LL+ 1ElseLL=0End Ifi = i + 1Elsec(2*p -1) = Lc(2*p )= LLL = 0 :LL = 0p = p + 1End IfLoopIf i <= n Thenc(2 * p- 1)=n - i + 1Elsec(2*p - 1) = Lc(2*p) = LLEnd If‘输出统计结果，代码略End Sub。
浙江省高中信息技术选考加试题VB专项练习题二及答案
浙江省高中信息技术选考加试题VB专项练习题二一、选择题：本大题13小题，第小题2分，共26分。
在每小题给出的四个选项中，只有一个是符合题目要求的。
1.在VB中，用变量p存储货物编码（如"0188901190"，其中每二位数字都代表相应的含义），则合适的数据类型应定义为：（A）Single （B）Long （C）String （D）Boolean2.下列VB表达式中计算结果为4的是：（A）len(“a1234”)（B）Sqr(4)（C）Fix(3.6)（D）Abs(Int(4.2))3.编写小型VB程序时，下面选项可省的是：①布局界面②编写事件处理代码③通过属性窗口设置控件属性④在事件处理过程中必须加入设置控件属性的代码⑤调试、运行程序⑥给每行程序代码增加程序注释（A）②③④（B）①④⑤（C）②⑤⑥（D）④⑥4.将数学表达式sin30o+3x2写成VB表达式，正确的是：（A）Sin(30)+3x2（B）Sin30+3x2（C）sin(30*3.1416/180)+3*x^2（D）Sin（30o）+3*x^25.下列可作为VB变量名的是：（A）const（B）not（C）edu93（D）Zj2011#6.某VB程序代码如下：Private Sub Command1_Click()Dim s(5) As Integers(0) = 10For i = 1 To 5s(i) = s(i - 1) Mod 3Next iPrint s(1)Print s(5)End Sub则程序运行后的输出结果是：（A）1 5（B）0 2（C）0 7（D）1 17.如果a=5，b=4，执行“if a>b then x=5 else y=4”后，变量x和y的值改变的是：（A）x和y都发生改变（B）x改变，y不变（C）x不变，y改变（D）x和y都没改变8.VB表达式int(rnd(-5))+val("0580")的值是：（A）580（B）-50580（C）575（D）05809.某VB程序代码如下：Private Sub Command1_Click()Text1.Text = Text2.TextEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenText2.Text = Text1.TextEnd IfEnd Sub如果在文本框text1和text2中分别输入6和12，然后单击命令按钮Command1，则文本框text1和text2分别显示的内容是：（A）6 6（B）12 12（C）12 6（D）6 1210.标签控件Label的常用属性是：（A）text（B）caption（C）form（D）name11.有如下VB程序段Private Sub Command1_Click()For i = 1 To 3 step 2x = Mid("330903", 1, 2)Next iPrint xEnd Sub该程序执行后，窗体上显示的值是：（A）33（B）09（C）03（D）9012.小王同学在调试VB程序时，会出现下图错误提示信息的是：（A）Function sina(n) As Integer .......End Function （B）Private Sub abc(a, b) as double .......End Sub（C）Private Sub Command1_click() .......End Sub （D）Private Sub Command1_click() Private Sub Command1_click() .......End Sub13.求二个数的最大公约数和最小公倍数的VB程序如下：Private Sub command1_click()m = Val(Text1.Text)n = Val(Text2.Text)a = mb = nDor = Abs(m - n)m = nn = rLoop While m <> nPrint rPrint a * b / rEnd Sub该程序运行后，如果在文本框text1中输入5，在文本框text2中输入22，则输出结果是：（A）5 22 （B）5 22 （C）22 22 （D）1 110二、综合题：本大题5小题，其中第14题2分，第15题4分，第17题4分，第18题5分，共19分。
浙江省五年(2015-2019)高中学考、高考选考信息技术真题分类汇编14 VB(选考)选择题(一)(解析版)
浙江省五年（2015-2019）高中学考、高考选考信息技术真题分类汇编专题14 VB（选考）选择题（一）（解析版）1.（2019年4月）有如下VB程序段：flag=True : i = 1Do While i <= 6x = Int(Rnd * 100) + 1If flag or x > 50Thena(i) = xflag = Not flagi = i + 1End IfLoop执行该程序段后,在下列选项中,a(1)〜a(6)各元素值不可能是（）A. 52, 95, 46, 74, 77, 83B. 50, 55, 46, 70, 21, 97C. 62, 78, 57, 61, 69, 50D. 31, 54, 48, 72, 50, 82【答案】C【解析】本题考查循环过程中变量的变化规律。
通过flag = Not flag语句得知，Flag的值是True和False 交替出现的，当i的值为奇数时，flag为True；当i的值为偶数时，flag为False，只有x>50成立才会给数组a赋值，即数组a偶数位（a(2)、a(4)、a(6)）上的值肯定大于50。
C选项a(6)=50不能出现。
2.（2018年11月）有如下VB程序段：For i = 1To6a(i) = Int(Rnd * 10) + 1Next iFor i = 1To5If i Mod2 = 1And a(i) > a(i + 1) Thent = a(i): a(i) = a(i + 1): a(i + 1) = tElsea(i) = a(i) + 1End IfNext i执行程序后，a数组各元素可能是（）A. 11, 11, 7, 9, 3, 9B. 6, 2, 8, 10, 5, 9C. 6, 9, 3, 7, 8, 12D. 3, 9, 0, 8, 2, 7【答案】A【解析】a数组初值范围为[1,10]，经过处理数组中每个元素都有可能会执行a(i) = a(i) + 1，所以数组a范围为[1,11]，由此可以排除选项C和D。
浙江高考信息技术学考VB类型和运算专题一
VB专题一一、基本数据类型1、下表是VB基本数据类型表，请补充数据类型名。
数据类型名说明性质整数型-32768~32767范围内的任何整数长整数型-2 147 483 648~2 147 483 647范围内的任何整数Single 单精度实数实数，有效数字约为6-7位Double 双精度实数范围比单精度更大，有效数字约为14-15位字符串型一段文字与符号Boolean 逻辑型判断的结果：起值为真（True）或假（False）Date 日期型日期和时间2、在VB中，如果要定义变量p用于存储某学校学生总数，那么变量p的数据类型是（A）String （B）Integer （C）Boolean （D）Date3、在VB中，用变量存储考试的平均得分（保留2位小数），则变量的数据类型应说明为（A）Integer （B）Long （C）Single （D）Date4、用变量mycode存储书籍名称(如“三国演义”)，则变量mycode的数据类型应为（A）Integer （B）Single （C）String （D）Date5、在Visual Basic中，语句Dim x As Boolean所说明的变量x属于（A）整数型（B）逻辑型（C）字符串型（D）单精度实数型二、常量、变量及其定义1、下列可以作为VB变量名的是（A）3A （B）X_Y （C）x+y （D）If2、在VB中，用数组a存储50位同学一次信息技术考试分数，合适的数组定义语句是（A）Dim a(1 To 50) As Single （B）Dim a(1 To 50) As Boolean（C）Dim a(1 , 20) As Integer （D）Dim a(1 , 10) As Long3、在VB中，定义符号常量s，其值为"三国"，下列语句正确的是（A）Dim s = "三国" （B）Dim s "三国"（C）Const s = "三国" （D）Const s "三国"4、以下正确表达式VB数组元素的是（A）x12 （B）x[12] （C）x(12) （D）X{12}5、在VB中，下列属于字符串常量的是（A）Abs(100) （B）"100" （C）Val("100") （D）1/2三、标准函数1、下表是VB标准函数表，请补充函数返回值。
历年浙江信息技术选择题整理之VB基本表达式及常用函数DOC
“在一个算法的步骤序列中，执行完一个处理步骤后，顺序执行紧跟着的下一个处理步骤。
”这种算法模式称为（A）顺序模式（B）选择模式（C）循环模式（D）树型模一、变量或数组变量的定义考点：1.变量名命名规则：必须以字母、汉字、数字或下划线组成，但不能以数字开头不能使用VB中的关键字，如IF、Then、Loop，不与函数名同名，如Int、Len等2.变量类型：整数型、长整型、单精度、双精度、字符串、布尔型、日期型、字符型3.数组变量定义及类型在Visual Basic中，下列能作为变量名的是A. MyB. IfC. a+yD. 2nd在Visual Basic中，以下可作为合法变量名的是（）A. Count_2sB. Text@123C. ChrD. 2ab在Visual Basic中，用变量code存储数据“HN2012”，下列说明语句正确的是A. Dim code As IntegerB. Dim code As SingleC. Dim code As StringD. Dim code As Boolea在Visual Basic程序中要用到存储范围为-150000～150000的某一整数变量，则该变量的类型应该定义为（A）Integer （B）Long（C）Single （D）Boolea在Visual Basic中，定义字符串常量a的正确语句是（A）Const a As Integer（B）Const a= "hello" As String（C）Dim a As String（D）Const a = "hello”在Visual Basic中，语句Dim a(1 To 10) As String所定义的数组元素个数是（A） 1 （B） 9 （C） 10（D）11在Visual Basic中，要定义一个由50个元素构成的一维整型数组cp，下列语句正确的是（A）Const cp(1 to 50) As Integer（B）Dim cp(1 To 50) As Integer（C）Const cp(1 To 5) As Integer（D）Dim cp As Intege二、赋值语句和表达式（学会将代数表达式改写成VB代码中的表达式）在Visual Basic中，如果要在标签Lab上显示文字“注意事项”，则下列语句正确的是（A）Label.Caption = "注意事项" （B）Lab.Text = "注意事项"（C）Lab.Caption = "注意事项" （D）Label.Width = "注意事项在VB中，将窗体标题“Form1”改为“中华美食”需设置的属性是（）A．Name B．Caption C．Font D．Visible在Visual Basic 中，语句Command1.Font="隶体"中的“Command1”是（ ）A. 对象名B. 属性名C. 属性值D. 窗体名在Visual Basic 中，语句List_11.AddItem "hello"中的“AddItem ”是（A ）对象名 （B ）方法名 （C ）属性值 （D ）事件在VB 中，x=1，y=－1,则表达式x=y 的值为A ．1B ．-1C ．TrueD ．False下列Visual Basic 表达式中，值最大的是（A ）3 Mod 7 （B ）3 / 7 （C ）3 \ 7 （D ）7 Mod 3在Visual Basic 中，表达式13 \ 5 Mod 4的值是（A ） 1 （B ） 2 （C ） 3 （D ）4下列VB 表达式的值最大的是（ ）A ．10 Mod 5B ．5 Mod 10C ．10 / 5D ．5 / 10设X=5678,能得到其百位上数字“6”的正确表达式是( ）A ．X Mod 100B ．X\100 Mod 10C ．X\100 Mod 100D ．X\10 Mod 10将数学表达式写成Visual Basic 表达式，正确的是A. Int(Abs(ab – c * c)B. Sqr(Abs(ab – c * 2)C. Int(Abs(a * b – c * c)D. Sqr(Abs(a * b – c * c)将数学表达式152++y y 写成Visual Basic 表达式，正确的是（A ）y * y + 5 y + 1 （B ）y ^ 2 + 5 * y + 1（C ）y * y + 5 * y （D ）Abs(y ^ 2 + 5 * y + 1)三、逻辑表达式（条件表达式）下列能表示“x 与y 都小于10”的Visual Basic 逻辑表达式是A. (x < 10) And (y < 10)B. x < 10 , y < 10C. (x < 10) Or (y < 10)D. X < 10 : y < 10下列能表示“x>100或者y>80”的visual Basic 逻辑表达式是A. (x>100) and (y>80)B. x > 100, y < 80C. (x > 100) or (y > 80)D. x > 100: y > 80下列Visual Basic表达式的值为True的是（）A．1=2 B．"78"〉"79"C．Len("78")＝Len("中国") D．Mid("abcdef", 2, 3) = "abc"四、标准函数使用在Visual Basic中，有整型变量a = 5，b＝13,要在标签控件中显示结果为18，则执行下列语句能正确显示结果的是（）A．Label1.caption = Str（a+b）B．Text1.text=Len（a）+Val(b)Ｃ.Text1.text= Sqr(a+b) D．Label1.caption = Str（a）+Str（b）计算表达式Val("10") + Len("2AB")的值是（）A.12B.13C. 102D. 102AB在Visual Basic中，表达式Abs(－3.6) * Sqr(100)的值是A. 36B. 360C. －36D. －360下列Visual Basic表达式的值等于56的是（A）Mid("1234567", 5, 3) （B）Len("55") + 1（C）Sqr(56) （D）Abs(-55) +1字符串变量st的值为“ZheJiangTongXiang”，下列VB表达式的值为“TongXiang”的是( ) A．Mid(st,9,8) B．Mid(st,9,4)+ "Xiang"C．Mid(st,13,5) D. "Tong" +Mid(st,13,5)产生[1，40] 范围内某一随机整数的表达式是（A）Rnd * 40（B）Int(Rnd * 40)（C）Int(Rnd * 40) + 1（D）Int(Rnd * 39) +1在VB中，下列函数返回值最大的是A．Sqr(9) B．Abs(-3.2) C．int(3.2) D．Len("3.2")已知字符A～Z的ASCII码值分别对应65～90。
浙江信息技术高考题分类 第二单元 VB程序 (第一部分 VB软件)
4. （2008年10月浙江省高考）VB语句Text1.Text="Hello!"用于在文本框中显示字符串，该语句中的“Text1”是A.属性值B.对象名C.属性名D.类名11. （2008年10月浙江省高考）程序运行界面如第11题图所示。
要求在文本框Text1中输入字符串，单击“统计”按钮Command1后，在标签Label2中显示所输入字符串长度。
需要编写的VB事件处理过程的名称为mand1_ClickB.Text1_ClickC.Form_Clickbel2_Click第11题图3．（2009年3月浙江省高考）VB语句Label1.Caption="结果"用于在标签中显示字符串，该语句中的“Caption”是A．属性名B．对象名C．属性值D．类名10．（2009年3月浙江省高考）下列关于对象的描述中，错误．．的是A．对象的属性用于描述对象的状态B．对象的属性与方法可以有多个C．对象事件的发生会驱动该对象相应事件处理过程的执行D．对象的属性值只能在属性窗口中设置11．（2009年3月浙江省高考）在VB集成环境下编制了含一个窗体的VB应用程序并保存在磁盘上，运行测试后编译成可执行程序，整个过程中肯定会产生的文件类型是A．．vbp、．frm、．exe B．．vbp、．exe、．txtC．．txt、．exe、．frm D．．frm、．txt、．vbp12．（2009年3月浙江省高考）窗体装载事件过程可以对程序进行初始化。
VB窗体装载事件过程的名称是A．Command1_Click B．Form_ClickC．Form_Load D．Form_DblClick7．（2009年9月浙江省高考）在VB窗体中有一个对象．该对象的属性窗口如第7题图所示。
下列说法中不正确的是A ．Interval 为属性名B ．1680为属性值C ．该对象的名称为Timer1D ．根据“Timer1 Timer ”可判断窗体名为Timer11．（2010年3月浙江省高考）右图是VB 控件工具箱的部分截图，其中“标签”控 件工具是( )A ．1B ．2C ．3D ．412．（2010年3月浙江省高考）小李在设计VB 程序时所使用复选框对象的属性窗口如下图所示，他想编制该复选框单击事件的处理过程，则该事件处理过程名是( )A ．CheckBox_ClickB ．加粗_ClickC ．Check1_ClickD ．复选框_Click第7题图11（2010年9月浙江省高考）某VB程序的一个事件过程如下：Private Sub Command1_Click ( )Dim a As Integera = Val ( Text1．Text )Text1．Text = Str ( Sqr ( a ) )End Sub程序运行时，单击命令按钮Command1后弹出如图所示的错误信息提示。
浙江省五年(2015-2019)高中学考、高考选考信息技术真题分类汇编17 VB(选考)改错题(解析版)
浙江省五年（2015-2019）高中学考、高考选考信息技术真题分类汇编专题17VB（选考）改错题（解析版）1.（2019年4月）小明基于冒泡排序思想设计了一个改进的排序算法。
该算法先用冒泡法将数组a中奇数位置的元素、偶数位置的元素分别进行排序，然后再进行后续处理。
算法的VB程序段如下.但加框处代码有错，请改正。
'待排序数据存储在数组a中（a(l)〜a(n)),要求升序排列For i = 1To (n - 1) \ 2For j = 1To n- i * 2If Then’ (1)t = a(j) : a(j) = a(j + 2) : a(j + 2) = tEnd IfNext jNext iFor i = 1To n \ 2j = 2 * i - 1If a(j) > a(j + 1) Then t = a(j) : a(j) = a(j + 1) : a(j + 1) = tNext iFor i Step2’ (2)t = a(i) : j = i - 1Do While t <a(j)a(j + 1) = a(j) ：j = j - 1Loopa(j + 1) = tNext i【答案】（1）a(j) > a(j + 2) （2）3To n【解析】本题考查冒泡排序程序实现。
分别对奇数位和偶数为进行排序，排序后根据交换语句易知第一空答案为a(j) > a(j + 2)此操作使奇数位大于前面的元素此时当i为偶数时，在a(1)、a(2)…a(i)，可以确保a(i)是最大的也就是说a(2)肯定大于a(1)，a⑷肯定比a(1)、a(2)、a(3)都大。
接下来进行插入排序，只需要对奇数位进行插入排序即可奇数位插入排序，i=1时会导致出现a(0)下标越界，所以i从3开始，即第二空答案为3To n。
2.（2018年11月）数组a中存储的是左右交替上升的n个正整数，如下表所示：有错，请改正。
浙江省高中信息技术选考加试题VB专项练习题十一及答案
浙江省高中信息技术选考加试题VB专项练习题十一一、选择题：本大题13小题，第小题2分，共26分。
在每小题给出的四个选项中，只有一个是符合题目要求的。
1.下列VB语句或函数表达式的数值小于-4的是：（A）Int(-5.6) （B）Abs(-3.6) （C）Cos(-3.6) （D）Len("-3.6")2.要存储如下形式的16个数据，合适的数组定义语句是：1 0 0 00 1 0 00 0 1 00 0 0 1（A）Dim s(16) as integer （B）Dim s(1 to 16) as integer（C）Dim s(1 to 4,1 to 4) as integer （D）Dim s(1 to 16,1 to 16) as integer3.下列可作为VB变量名的是：（A）text（B）Zhoushan! （C）1_dim （D）Caption_14.数学表达式log5写成VB表达式是：（A）log(5) （B）log5 （C）log(5)/log(10) （D）ln(5)5.在VB中定义变量s用于存放学生家庭地址，则正确的定义语句是：（A）Dim s as integer （B）Dim s as string（C）Dim s as single （D）Dim no as boolean6.已知s的逻辑值为false，m的逻辑值为true。
以下VB表达式的结果为false的是：（A）s and m （B）not s and m （C）s or m （D）not s or not m7.某VB程序代码如下：Private Sub Command1_Click()a = 30For i = 1 To 10 Step 2s = s + i \ 3Next iPrint sEnd Sub则程序运行后的a的值分别是：（A）4 （B）7 （C）10 （D）148.为了搜索出1000以内的所有素数，我们可以采用的算法是：（A）枚举算法（B）二分查找（C）解析算法（D）选择搜索9.下列能实现求两个数X和Y中较大数（用变量max保存较大数）的程序段个数是：①if x>=y then max=x else max=y②max=xIf y>max then max=y③if x<y thenT=x: x=y: y=tEnd ifmax=x④if x>=y then max=y else max=x（A）1 （B）2 （C）3 （D）410.在VB中用变量C表示计数器，则计数器的表达式是：（A）C=0 （B）C=1 （C）C+1=C （D）C=C+111.下列控件都有的属性是：（A）name （B）caption （C）text （D）click12.某数组有7个元素，依次是23、35、55、57、76、88、98，若采用二分查找法在该数组中查找数据98，需要查找的次数是：（A）1 （B）2 （C）3 （D）413.某VB程序代码如下：Private Sub Command1_Click()For i = 1 To 10s = s + sina(i)Next iPrint sEnd Sub其中sina是一个自定义函数，则程序运行后的出错信息是：A BC D二、综合题：本大题5小题，其中第14题2分，第15题4分，第17题4分，第18题5分，共19分。
浙江高中技术学考VB基本运算和语句习题
桐乡第一中学《VB基本运算和语句》专题测试班级: 高一（）班学号：姓名：一、选择题（每题3分）1、下列不属于VB基本运算的是（）A.函数运算B.算术运算C.关系运算D.逻辑运算2、在Visual Basic 中，下列优先级最高的运算符是( )A.*B.\C.<D.Not3、Visual Basic 6.0中编程时，当双击窗体上的某个控件时，所打开的窗口是( )A.工程资源管理器窗口B.代码窗口C.工具箱窗口D.属性窗口4、下列正确的Visual Basic注释语句是( )A. Dim a(10) As Integer 定义一个数组B. Dim a(10) As Integer “定义一个数组C. Dim a(10) As Integer ‘定义一个数组D. Dim a(10) As Integer “定义一个数组”5、数学关系式3≤x<10表示成正确的VB表达式为( )A. 3<=x<10B. 3<=x AND <10C. x>=3 OR x<10D. 3<=x AND x<106、下面正确的赋值语句是( )A. y=x+30B. pi*r*r=yC. x+y=30D. x=3y7、表达式ASC("F")的类型是( )A.算术表达式B. 关系表达式C. 逻辑表达式D.字符表达式8、表达式Int(2.5)、Fix(2.5)、Int(-2.5)、Fix(-2.5)的运算结果分别是( )A. 2、2、-2、-2B. 2、2、-3、-2C. 3、2、-2、-2D. 2、2、-3、-39、如果变量 a=7、b=6、c=4、d=5，则表达式 a<d OR b>c AND c<>d 的值为( )A. YesB. NoC. TrueD. False10.为了给x,y,z三个变量赋初值1，下面正确的赋值语句是( )A. xyz=1B. x=1,y=1,z=1C. x=y=z=1D. x=1∶y=1∶z=111、如果变量a=2,b=3,c=4,d=5，表达式NOT a>b AND NOT d<>c的值是( )A. FalseB. TrueC. 1D. 012、表达式Int(198.555*100+0.5)/100的值为( )A. 198.56B. 199.6C. 198D. 20013、函数Mid("123456789",3,4)的值是( )A. "456"B. "3456"C. 3456D. 45614、以下程序代码能执行的是( )A. If a=1 Then b=0 Else c=0 End IfB. If a=1 Then : B=0: ElseIf C=0 Then : D=0C. If a = 1 Then b = 0 ElseIf c = 0 Then d = 0 End If 15、下列程序段的循环结构执行后，i 的值和y 的值是( )Dim y as Integer, i as integery = 0For i = 1 To 10 Step 2y = y + iNext iA.10、 25B. 10、36C. 11、16D.11、2516、（浙江高考·2009）将数学表达式ln x a b写成VB 表达式，正确的是( ) A ．log(x)/(a+b) B ．log(x)/a+b C ．ln(x)/(a+b) D ．ln(x)/a+b17、（浙江高考·2009）有如下VB 程序段：For i=1 To 1000a=Int(Rnd*100+1)b=Int(Rnd*100+1)x=a+by=a-bc=Sqr(x)d=Sqr(y)Next i 调试时出现如第17题图所示的错误提示，产生此错误的语句是( )A ． d=Sqr(y)B ．y=a-bC ．c=Sqr(x)D ．x=a+b18、（浙江高考·2009）在VB 窗体中有一个对象．该对象的属性窗口如图所示。
浙江省高中信息技术选考加试题VB专项练习题三及答案
浙江省高中信息技术选考加试题VB专项练习题三一、选择题：本大题13小题，第小题2分，共26分。
在每小题给出的四个选项中，只有一个是符合题目要求的。
1.下列问题能用算法解决的是：（A）求出所有偶数的和（B）利用计算机证明任何一个偶数都可以用二个素数的和来表示（C）要求计算机在1年内统计出宇宙中所有星星的数量（D）为了鉴定一篇文章是否抄袭了另外一篇文章，用计算机比较两篇文章的相似度2.下列可作为VB变量名的是：（A）len （B）sqrter （C）93edu （D）dim3.下面语句中的等号“=”作用与其它选项不同的是：（A）if a=b then （B）do while x=y+5（C）if not(F) then x=5 （D）if Mpos+w10=9 then4.将数学表达式ln5+2ab写成VB表达式，正确的是：（A）Log(5)+2ab（B）Ln(5)+2*a*b（C）log(5)+2*a*b （D）Log(5)/log(10)+2ab5.有如下VB程序段x="45"y="25"c=val(x+y)该段程序执行后，变量c的值是：（A）4525 （B）70 （C）25 （D）456.某VB程序代码如下：Private Sub Command1_Click()a = "330903"For i = 1 To Len(a)x = Mid(a, i, 1) + xNext iPrint xEnd Sub则程序运行后的输出结果是：（A）330903 （B）030933 （C）309033 （D）3303097.已知x是一个字符，下面有关VB语句“y=chr(asc(x)+1)”的作用说法正确的是：（A）y代表x后面一个字符（B）y代表x后面一个字符的ASCII码值（C）x代表y后面一个字符（D）x代表y后面一个字符的ASCII码值8.有如下VB程序段用于计算并联电阻的值，假设输入的电阻值都大于10。
浙江省高中信息技术选考加试题VB专项练习题五及答案
浙江省高中信息技术选考加试题VB专项练习题五及答案1.下列有关算法的说法正确的是：A) ①②正确改写：在实际查找中，顺序查找比二分查找更慢且不稳定；选择排序是冒泡排序的改进。
2.下列可作为VB变量名的是：A) www正确改写：www可以作为VB变量名。
3.将数学表达式 y3+3+y/a 写成VB表达式，正确的是：C) Sqr(y^3)+(3+y)/a正确改写：y的三次方根加上（3+y）除以a的结果。
4.VB表达式 Int(-3.5) + Len(Str(3.5)) + Int(Rnd(0)) * 2 的值是：C) 2正确改写：取-3.5的整数部分为-4，将3.5转换为字符串后长度为3，随机数取整为0，乘以2为0，相加为2.5.下列VB函数中，返回值类型一定为整数的是：B) len和fix正确改写：len和fix函数的返回值类型一定为整数。
6.某VB程序代码如下：Private Sub Command1_Click()p = 10s = 1Do While p。
= sp = p + 1s = s + pLoopPrint p,sEnd Sub则程序运行后的输出结果是：C) 1211正确改写：将p初始化为10，s初始化为1，当p大于等于s时，p加1，s加p，直到p小于s为止，输出p和s的值。
7.某VB程序代码如下：Private Sub Command1_Click()Dim x As Integer。
y As Integer。
z As Integery = 10z = 4x = y / zk = Int(y / z)Print x。
kEnd Sub则程序运行后的输出结果是：B) 2 2正确改写：将y初始化为10，z初始化为4，x等于y除以z的结果，k等于y除以z取整的结果，输出x和k的值。
8.某VB程序段代码如下：Private Sub Command1_Click()Dim i As Long。
高中信息技术vb试题及答案
高中信息技术vb试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. IntC. DoubleD. All of the above答案：D2. 下列哪个控件不是VB的标准控件？A. TextBoxB. ComboBoxC. ListBoxD. DataGrid答案：D3. 在VB中，以下哪个关键字用于声明一个变量？A. DimB. SetC. NewD. All of the above答案：A4. VB中的事件处理程序通常被定义为：A. SubB. FunctionC. PropertyD. All of the above答案：A5. 在VB中，以下哪个属性用于设置文本框（TextBox）的只读状态？A. ReadOnlyB. EnabledC. VisibleD. BackColor答案：A6. VB中，以下哪个函数用于将字符串转换为大写？A. UCaseB. LCaseC. StrCompD. Trim答案：A7. 在VB中，以下哪个方法用于打开一个文件？A. OpenB. CloseC. PrintD. Write答案：A8. VB中，以下哪个选项是正确的文件访问模式？A. Open AsB. For InputC. For OutputD. Both B and C答案：D9. 在VB中，以下哪个选项用于声明一个常量？A. DimB. ConstC. Option ExplicitD. Option Base答案：B10. VB中，以下哪个关键字用于创建一个类？A. ClassB. NewC. InheritsD. Implements答案：A二、填空题（每题2分，共20分）1. 在VB中，使用______关键字可以定义一个子程序。
答案：Sub2. 要声明一个全局变量，应该使用关键字______。
答案：Public3. VB中的______函数可以用来获取当前日期。
浙江省高中信息技术选考加试题VB专项练习题十及答案
浙江省高中信息技术选考加试题VB专项练习题十一、选择题：本大题13小题，第小题2分，共26分。
在每小题给出的四个选项中，只有一个是符合题目要求的。
1.下列有关VB程序说法正确的是：（A）程序只有选择、分支、顺序三种基本结构（B）流程图符号的表示必须符合国家标准（C）正确的程序必须有1个或1个以上输入，有1个或1个以上输出（D）用二分查找算法求解二元一次方程的数学解，如果方程无解，则可以没有输出语句2.下列数组定义错误的是：（A）Dim a(1 to 10) as integer （B）Dim a(10) as integer（C）Dim a(1 to 4, 4 to 10) as integer （D）Dim a(20 To 2) As Integer3.将数学表达式z byaxex +++22写成VB表达式，正确的是：（A）x^2+e^2+(a*x+b*y)/z （B）x*x+e*e+(a*x+b*y)/z（C）z byaxex +++22（D）x^2+exp(2)+(a*x+b*y)/z4.VB表达式3*3 \ 5 mod 5的值是：（A）0 （B）1 （C）3 （D）55.VB语句mid("",5)的运行结果是：（A）bbs.y （B） （C） （D）6.VB表达式"ABCD">"abcd"的值是：（A）True （B）False （C）T （D）F7.能表示“两个整数型变量X和Y不能一起为0，但其中一个一定是0”的逻辑表达式是：（A）x*y=0 and (x=0 or y=0) （B）x*y=0 and x+y<>0（C）Not(x=0 and y=0) and (x=0 or y=0) （D）(x=0 or y=0) and (x<>0 or y<>0)8.某VB程序段代码如下：Private Sub Command1_Click()s = 25For i = 1 To 10 Step 3s = s + i Mod 4Next iPrint sEnd Sub则程序运行后s的值是：（A）29 （B）30.5 （C）31 （D）409.下面程序可以实现“当文本框text1中输入任何字符时，文本框text2中能马上同步显示”。
浙江省信息技术学考VB模块基础检测(附参考答案)
VB模块基础检测（高一）班级姓名分数一、选择题（本大题共20小题，每小题3分，共60分）每小题4个选项中只有一个符合题目要求，不选、错选、多选均不得分。
请将选项直接写在各小题相应位置。
1．某算法的自然语言描述与流程图表示分别如下：则流程图中空白处理框①和②处应填入的是（）A．①y ←x2– 1 ②x ←2x – 1B．①y ←x2– 1 ②y ←2x – 1C．①y ←2x – 1 ②y ←x2– 1D．①x ←x2– 1 ②y ←2x – 12．字符串变量a的值为“Hello,world!”，下列VB表达式的值是“world”的是（）A．Len(a)B．Mid(a, 6, 5)C．Mid(a, 7, 4)D．Mid(a, 7, 5)3．产生[-20，20] 范围内某一随机整数的表达式是（）A．Int(Rnd * 41) B．Int(Rnd * 41) - 20C．Int(40 * Rnd) - 20D．Int(-40 * Rnd) + 204．在VB中，若a = 4，b = 3，语句If a > b Then a = a - 2 Else b = b + 1执行后，下列说法正确的是（）A．执行了语句a = a - 2B．先执行a = a - 2，再执行c = b + 1C．执行了语句b = b + 1D．先执行b = b + 1，再执行a = a - 25．数学表达式1 ≤ b ≤ 100写成VB表达式，正确的是（）A．1 <= b <= 100B．1 ≤ b ≤ 100C．1 <= b And b <= 100D．1 <= b Or b <= 1006．在VB代码编辑窗口中，输入了“List1.”后出现了如第6题图所示的信息，其中的“Clear”是List1的（）A．属性名B．事件名C．对象名D．方法7．在VB数组说明语句Dim a(11) As Single中，数组a的元素个数是（）A．0 B．12 C．1 D．118．下列VB表达式的值等于100的是（）A．Val("96") + 4 B．Len("40") + 60 C．Sqr(81) + 19 D．Str(20) + "80" 9．若x为正整数，同时能被5整除，则下列VB表达式的值一定为真的是（）A．x / 5 = 0 B．x Mod 5 = 0 C．Int(x \ 5) = 0 D．5 Mod x = 0第6题图第1步：输入一个实数x第2步：判断x与0的大小关系，若x≥0，则y=x2-1，否则y=2x-1第3步：输出y第4步：结束10．若x、y都是正整数，且关系表达式x \ y = 1为真，则下列VB表达式值一定为真的是（）A．x Mod y = 0B．x < y C．x * y Mod 2 = 0D．x >= y And x < 2 * y11．有如下VB程序段：For i = 1 To 1000a = Int(Rnd * 100 + 1)b = Int(Rnd * 100 + 1)x = a + by = a - bc = Sqr(x)第11题图d = Sqr(y)Next i调试时出现如第11题图所示的错误提示，产生此错误的语句是（）A．x = a + b B．y = a - b C．c = Sqr(x)D．d = Sqr(y)12．有如下VB程序段：m = a(10)For i = 9 To 1 step -1If m > a(i) Then m = a(i)Next i该程序段执行后，变量m中存储的是（）A．a(1)至a(10)中的最大值B．a(1)至a(10)中的最小值C．a(2)至a(10)中的最大值D．a(2)至a(10)中的最小值13．某VB程序段如下：Dim a(1 To 20) As IntegerDim i As Integera(1) = 1For i = 1 To 20a(i) = a(i - 1) * iNext i运行该程序段，首先会出现的错误提示为（）A．下标越界B．子程序或函数未定义C．要求对象D．溢出14．已知文本框对象Text1的Text属性值发生改变时，会驱动下面事件处理过程Private Sub Text1_Change()If Val < 500 Then = + "2"End Sub开始时，在Text1中输入6，Text1最后显示值是（）A．622B．2222C．62D．22615. 某VB程序的代码如下：Private Sub Command1_Click()a=Valb=Vals=a*b=Str(s)End Sub运行程序，单击命令按钮Command1后弹出图中所示出错信息提示，引起该错误的语句是（）A．a=Val B．b=Val C．s=a*b D．=Str(s)16. 下列V B表达式中，值为字符串型的是( )①str(x) ② ③ ④Chr(x) ⑤Asc(x)A．①③⑤B．①②④C．②④⑤D．②③④17．下列能计算Sum = 1 + 2 / 3 + 3 / 5 + …… + 50 / 99的VB程序段是（）A．Sum = 1For i = 1 To 49Sum = Sum + i / (2 * i - 1) Next i B．Sum = 0For i = 1 To 99Sum = i / (2 * i - 1) Next iC．Sum= 0i = 1Do While i <= 50Sum = Sum + i / (2 * i - 1)i = i + 1Loop D．Sum= 0i = 1Do While i <= 50Sum = Sum + i / (2 * i - 1) Loop18．对称字符串的特征是从左到右读和从右到左读完全一样的。
浙江省高中信息技术选考加试题VB专项练习题八及答案
浙江省⾼中信息技术选考加试题VB专项练习题⼋及答案浙江省⾼中信息技术选考加试题VB专项练习题⼋⼀、选择题：本⼤题13⼩题，第⼩题2分，共26分。
在每⼩题给出的四个选项中，只有⼀个是符合题⽬要求的。
1.某VB窗体上有⼀个⽂本框、⼀个命令按钮、⼀个列表框，对象如下表所⽰：对象类型⽂本框命令按钮列表框对象名passtxt checkcmd addlst程序运⾏过程中输⼊⼀些字符后，输⼊位置马上变成“*”号，则该控件是：（A）checkcmd （B）text （C）passtxt （D）addlst2.VB窗体⽂件的扩展名是：（A）frm （B）vbp （C）vbg （D）bas3.数学表达式x2-2|x|+1的VB表达式是：（A）x*x-2*abs(x)+1 （B）x*x-2*int(x)+1（C）sqr(x) -2*abs(x)+1 （D）x^2-2abs(x)+14.数学表达式cos30o写成VB表达式是：（A）cos30 （B）cos(30)（C）cos(30o) （D）cos(30*3.14/180)5.VB语句Form1.Cls的作⽤是：（A）把窗体从程序运⾏界⾯中清除（B）把窗体上打印的信息清除（C）把窗体上的控件清除（D）清除窗体上的控件和打印的信息6.同时定义变量a和b为整形的语句是：（A）Dim a,b as integer （B）Dim a as integer,b as integer（C）Dim a b as integer （D）Dim a as integer,b7.某VB程序代码如下：Private Sub Command1_Click()If 3 > 5 Thena = 10ElseIf (10 Mod 3) = 2 Thena = 15Elsea = 45End IfEnd If则程序运⾏后的a的值分别是：（A）45 （B）15 （C）10 （D）08.某VB程序段代码如下，它的作⽤是计算1*2*3*……*99*100的值：Private Sub Command1_Click()Dim s As Integer ------①s = 1 ------②For i = 1 To 100 ------③s = s * i ------④Next iPrint sEnd Sub程序运⾏后出现“溢出”错误信息，下⾯对于出错原因分析正确的是：（A）把语句①改为dim s as double，原来s的数据类型不适合（B）把语句②改为s=0，这样就不会出现数据溢出错误（C）把语句③改为do……loop 循环结构就不会出现数据溢出错误（D）VB不能⽤于计算1*2*3*……*99*100的值，否则⼀定会出现数据溢出错误9.某VB程序段代码如下，它的功能是查找100到999以内的⽔仙花数（所谓的⽔仙花数是指在三位整数中，百位数、⼗位数、个位数的⽴⽅和等于它本⾝，如153=1^3+5^3+3^3）：Private Sub Command1_Click()Dim i As Integer, s As IntegerDim a As Integer, b As Integer, c As IntegerPrint "100到999所有⽔仙花数：";For i = 100 To 999a = i \ 100b = i \ 10 Mod 10c = i Mod 10___________________________________If s = i ThenPrint i;End Sub划线处应填的语句是：（A）s = i^ 3 （B）s = sqr(a ) + sqr(b) + sqr(c )（C）s = a ^ 3 + b ^ 3 + c ^ 3 （D）a ^ 3 + b ^ 3 + c ^ 3=s 10.在VB中，与函数val⽤法相反的是：（A）chr （B）len （C）mid （D）str11.在窗体上画⼀个⽂本框，然后编写如下事件过程：Private Sub Form_Load()a="5"。
浙江省五年(2015-2019)高中学考、高考选考信息技术真题分类汇编15 VB(选考)选择题(二)(解析版)
浙江省五年（2015-2019）高中学考、高考选考信息技术真题分类汇编专题15 VB（选考）选择题（二）（解析版）1.（2019年4月）有1个升序排列的数组a(a(1)〜a(n)，n>=3)，从左到右相邻两个元素的差值（后一个元素值减去前一个元素值)先由小到大、再由大到小、且相邻两个差值不相等。
为了查找相邻两个元素的最大差值，小李编写的程序段如下：i = 1 : j =nDo While i+ 1< jm = (i + j) \ 2If a(m + 1) -a(m) > a(m) -a(m-1) ThenElseEnd IfLoopLabel1. Caption="相邻两个元素的最大差值是"+ Str(a(j) -a(i))上述程序段两个方框处的语句分别为（）A. ①i=m②j = mB. ①i=m②j=m-1C. ①i=m+1②j=m-1D. ①i=m+1②j=m【答案】A【解析】本题考查对分查找的变形应用。
从左到右相邻两个元素的差值先由小到大、再由大到小，呈现是的波峰状态，分析数组规律得知左边差值大，最大差值肯定在左边；右边差值大，最大差值肯定在右边；因为是两个元素差值代表一组，无论是右边a(m + 1) - a(m)大，还是左边a(m) - a(m - 1)大，下一轮查找都必须包含a(m)，也就是i = m或j = m。
2.（2018年11月）下列VB程序功能为：根据文本框Text1中各字符的大小关系，计算各字符升序排列的序号，并将序号保存在数组y中。
如文本框内容为“2011”，程序运行后y(1)~y(4)各元素的值分别为“4,1,2,3”。
s = Text1.Textn = Len(s)For i = 1To ny(i) = 1Next iFor i = 1To(1)For j = (2) To nIf (3) Theny(j) = y(j) + 1Elsey(i) = y(i) + 1End IfNext jNext i上述程序段3各方框处的表达式分别为（）A.（1）n（2）1（3）Mid(s, j, 1) >= Mid(s, i, 1)B.（1）n（2）1（3）Mid(s, j, 1) > Mid(s, i, 1)C.（1）n-1（2）i+1（3）Mid(s, j, 1) >= Mid(s, i, 1)D.（1）n-1（2）i+1（3）Mid(s, j, 1) > Mid(s, i, 1)【答案】C【解析】结合代码内循环IF语句分析，要计算每个字符的排列的序号（名次），每个字符需要两两比较一次。
浙江高中技术VB循环和数组习题分析及答案
1
2
2
3
3
3
两两之间有4个相等，累加4次，即S=0+1+1+1+1=4
二、阅读程序并填空（4）
Dim a(1 To 6) As Integer n = 6: s = 0 For i = 1 To n \ 2 If a(i) = a(n - i + 1) Then s=s+1 End If Next i （4）假设数组a存储的数据依次为 1、2、6、3、2、1，则程序执行 后变量s的值 关系判断语句a(i) = a(n - i + 1)成立， s累加1 a(i) = a(n - i + 1)代表数组中前后对称的两个元素
1
3
3
1
-9
7
只有一个a(i)的值小于0所以累加1次，即S=0+1=1
二、阅读程序并填空（3）
Dim a(1 To 6) As Integer s=0 For i = 2 To 6 If a(i) = a(i - 1) Then s=s+1 End If Next i （3）假设数组a存储的数据依次为 1、2、2、3、3、3，则程序执行 后变量s的值 关系判断语句a(i) = a(i - 1)成立，即两两相等 s累加1 a(i) 对应的值 a(1) a(2) a(3) a(4) a(5) a(6)
a(i) 对应的值
8
6
2
4
6
3
3
9
12
11
1
显然差值绝对值最大的是a(6)-a(5) ，即k=6
二、阅读程序并填空（7）
Dim a(1 To 5) As Integer Dim b(1 To 5) As Integer n = 5: s = 0 For i = 1 To n If a(i) = b(i) Then s=s+1 End If Next i （7）数组a数据依次为21、2、6、3、2而数组b数据依次 为3、2、5、3、1则上面程序执行后变量s的值 i=2 i=4 a(3) 6 b(3) 5 a(4) 3 b(4) 3 a(5) 2 b(5) 1
浙江省高中信息技术选考加试题VB专项练习题六及答案
浙江省高中信息技术选考加试题VB专项练习题六及答案1.下列可作为VB变量名的是：（A）a\b（B）False（C）cos（D）sum正确答案：AVB变量名只能由字母、数字和下划线组成，且不能以数字开头，因此只有选项A符合要求。
2.在VB语句dim s(9) as integer中，数组s的变量个数和类型是：（A）9整型（B）10整型（C）9单精度型（D）10单精度型正确答案：Adim s(9) as integer定义了一个包含10个元素的整型数组，因此选项A正确。
3.将数学表达式x2≤y+z写成VB表达式，正确的是：sqr(x)≤y+z（B）x2≤y+z（A）（C）x^2<=y+z（D）x^2≤y+z正确答案：DVB中乘方运算符为^，而不是2，因此选项D正确。
4.VB表达式val(mid(str(3.5),2,1))的值是：（A）1（B）2（C）3（D）5正确答案：Bstr(3.5)将3.5转换为字符串"3.5"，mid(str(3.5),2,1)取出字符串中第2个字符，即"."，val(".")的值为0，因此选项B正确。
5.VB语句Text1.text="浙江省"用于在文本框中显示文字“浙江省”，该语句中的"text"是：（A）类名（B）对象名（C）属性名（D）属性值正确答案：CText1是对象名。
text是文本框控件的属性名，因此选项C正确。
6.VB语句fix(rnd*6)+1所产生数的范围(小括号表示边界值不能取到，中括号表示边界值能取到)是：（A）[2，6]（B）(1，5)（C）[1，6]（D）(2，5)正确答案：Crnd函数返回0到1之间的随机数，乘以6后取整，得到0到5之间的整数，加1后得到1到6之间的整数，因此选项C正确。
7.某VB程序代码如下：a = 3b = 4c = 5If a。
高中信息技术vb考试题及答案
高中信息技术vb考试题及答案一、选择题（每题2分，共40分）1. 在Visual Basic中，下列哪个关键字用于声明一个变量？A. FunctionB. DimC. SubD. Const答案：B2. Visual Basic中，哪个函数用于将字符串转换为大写？A. StrCompB. UCaseC. LCaseD. Mid答案：B3. 以下哪个控件用于在Visual Basic中显示文本，但不允许用户编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B4. 在Visual Basic中，哪个属性用于设置文本框（TextBox）的文本？A. CaptionB. TextD. Name答案：B5. 如果要在Visual Basic中创建一个按钮，应该使用哪个控件？A. TextBoxB. CommandButtonC. LabelD. CheckBox答案：B6. 在Visual Basic中，下列哪个循环结构用于重复执行代码块直到满足某个条件？A. ForB. WhileC. DoD. If答案：C7. Visual Basic中，下列哪个函数用于返回一个随机数？A. RandB. IntC. RndD. Sgn答案：C8. 在Visual Basic中，下列哪个属性用于设置或返回一个控件的可见性？A. VisibleB. EnabledC. Caption答案：A9. 以下哪个选项是Visual Basic中声明数组的正确方式？A. Dim numbers(5) As IntegerB. Dim numbers(5) IntegerC. Dim numbers As Integer(5)D. Dim numbers Integer(5)答案：A10. 在Visual Basic中，下列哪个事件用于处理用户点击按钮的事件？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A11. Visual Basic中，哪个控件用于在用户界面中显示图像？A. PictureBoxB. ImageBoxC. LabelD. TextBox答案：A12. 在Visual Basic中，下列哪个属性用于设置或返回一个控件的背景颜色？A. BackColorB. ForeColorC. ColorD. Background答案：A13. 以下哪个选项是Visual Basic中声明函数的正确方式？A. Function MyFunction()B. Sub MyFunction()C. Procedure MyFunction()D. Method MyFunction()答案：A14. 在Visual Basic中，下列哪个控件用于允许用户从预定义的选项列表中选择一个选项？A. ComboBoxB. ListBoxC. CheckBoxD. RadioButton答案：A15. Visual Basic中，下列哪个关键字用于声明一个子程序？A. FunctionB. SubC. ProcedureD. Method答案：B16. 在Visual Basic中，下列哪个属性用于设置或返回一个控件的前景色？A. BackColorB. ForeColorC. ColorD. Background答案：B17. 以下哪个选项是Visual Basic中声明事件处理程序的正确方式？A. On ClickB. Handles ClickC. Event ClickD. Use Click答案：B18. Visual Basic中，哪个函数用于返回当前日期？A. NowB. DateC. TimeD. Today答案：D19. 在Visual Basic中，下列哪个属性用于设置或返回一个控件的宽度？A. WidthB. HeightC. SizeD. Dimension答案：A20. Visual Basic中，下列哪个关键字用于声明一个常量？A. FunctionB. DimC. ConstD. Sub答案：C二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以定义一个常量。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
List2.AddItem i & "数字出现" & ct(i) & "次" Next i End Sub
杜宗飞
s ← s + a(k)= s+a(1)=9
s ← s + a(k)= s+a(5)=9+7=16
文本框Text1显示的内容是 16
Const n = 100 Dim a(1 To 100) As Integer, ct(1 To 6) As Integer Private Sub Form_Load() Dim i As Integer Randomize For i = 1 To n a(i) = Int(Rnd * 6) + 1 _______________ List1.AddItem Str(a(i)) Next i End Sub 小明编写模拟骰子的程序。 Private Sub Command1_Click() 产生n个随机数[1,6]，并 Dim i As Integer 在列表框List1显示。单 For i = 1 To n 击按钮后在输出数字出现 ct(a(i)) = ct(a(i)) + 1 _______________ 的次数。 Next i
a(i) 对应的值
a(1) a(2) a(3) a(4) a(5) 9 6 1 5 7
i=1时：s=0
k=1 For j = 5 To 2 Step -1 If a(j) > a(k) Then k = j Next j s = s + a(k) j=5时， a(5) > a(1) 不成立 j=4时， a(4) > a(1) 不成立 j=3时， a(3) > a(1) 不成立 j=2时， a(2) > a(1) 不成立
i=2时：s=9
k=2 For j = 5 To 3 Step -1 If a(j) > a(k) Then k = j Next j s = s + a(k) j=5时， a(5) > a(2) 成立，则k←5 j=4时， a(4) > a(5) 不成立 j=3时， a(3) > a(5) 不成立
Dim x As String s = "tong123abc" For i = 1 To Len(s) a(i)=Mid(s, i, 1) Next i x = "" For i = 10 To 1 Step -2 x = x + a(i) Next i Text1.Text = x
a(i)
对应的值
x←x+a(8)= "ca"
i=2时
x←x+a(4)= "ca2go"
习题文本框显示的内容
s = 0 For i = 1 To 2 k = i For j = 5 To i + 1 Step -1 If a(j) > a(k) Then k = j Next j s = s + a(k) Next i Text1.Text = Str(s)
a(1)
a(5) 1
a(6) 2
a(7) 3
a(8) a
a(9) b
a(10)
c
i=10，8，6 ，4， 2执行循环，i=0时循环结束
i=10时 i=8时 i=6时 x←x+a(6)= "ca2"
x←x+a(10)= "c"
文本框Text1显示的内容是 ca2go i=4时 x←x+a(4)= "ca2g" i=0时 循环结束！
VB循环与数组
数组的定义
定义：Dim 数组变量名(A1 to A2) As 元素的类型 A1、A2是常量，A1是上界、 A2是下界。 例如： Dim a(1 To 10) As Integer 定义了a(1)、 a(2)…… a(10)十个整数变量
数组应用
Dim i As Integer Dim a(1 To 10) As Integer For i = 1 To 10 a(i) = 2 * i Next i s = a(1) + a(5)
问：S的值是多少？
数组应用
Dim i As Integer Dim a(1 To 10) As Integer For i = 1 To 10 a(i) = i Next I x = 4 y = sqr(x) s = a(x) + a(y) 问：S的值是多少？
循环
Dim a(1 To 10) As String, s As String