下载文档原格式
浙江省五年（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专项练习题二一、选择题：本大题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（选考）选择题（一）（解析版）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专题一一、基本数据类型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标准函数表，请补充函数返回值。
“在一个算法的步骤序列中，执行完一个处理步骤后，顺序执行紧跟着的下一个处理步骤。
”这种算法模式称为（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。
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）高中学考、高考选考信息技术真题分类汇编专题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专项练习题十一一、选择题：本大题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基本运算和语句》专题测试班级: 高一（）班学号：姓名：一、选择题（每题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专项练习题三一、选择题：本大题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。
