浙江省高中信息技术选考加试题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分。

14.下列VB程序运行时，在文本框Text1中输入2，单击命令按钮Command1后，文本框Text2的内容是。

Private Sub Command1_Click()Dim r As Single, s As SingleText2.Width = 1300Text2.Height = 495r = Val(Text1.Text)Text2.Text = Str(3.1416 * r * r)End Sub15.一位同学在网上游览某虚拟公园，共游览了七个虚拟景点。

假设每个虚拟景点门票为5元虚拟币，并在游览这个景点中花掉了当时他手中虚拟币的一半。

七个虚拟景点游览完后，他还剩下80元虚拟币，问最初他共有多少虚拟币。

实现此功能的程序代码段如下，根据题意补充完成下列程序。

Private Sub Command1_Click()Dim i As IntegerDim x As IntegerDim a(1 To 7) As Integerx = 80a(7) = 2 * x + 5For i = ①a(i) = ②NextText1.Text = Str(a(1))End Sub①________________ ②______________16.某同学在学习数学时，根据恒定式（n＋1) ³=n³+3n³+3n+1, 推导得到1²+2²+3²+....+n²=n(n+1)(2n+1)/6，为了验证自己的推导，做了如下的程序，将N的值输入到文本框text1中，将1²+2²+3²+....+n²的运算结果放在穷举算法文本框（text2）中，将n(n+1)(2n+1)/6的结果放在解析算法（text3）中，根据程序界面请完成代码：Private Sub Command1_Click()Dim n As Long, s1 As Long, s2 As Long, i As Integern = Val(Text1.Text)s1 = 0s2 = 0For i = 1 To ns1 = s1 + i ^ 2Next is2 = ①Text2.Text = Str(s1)②= Str(s2)If s1 = s2 ThenLabel4.Caption = "恭喜你，你的推导完全正确！"ElseLabel4.Caption = "你的推导有误，请重新检查。

"End If End Sub① ②17.下列VB 程序的功能是将二进制数转换为十进制数。

二进制转化为十进制可以采用位权展开的方法，例如：10012342(29)2120212121(11101)=⨯+⨯+⨯+⨯+⨯= 。

程序运行时，在文本框Text1中输入一个二进制数，单击计算按钮（Command1）后，文本框Text2中显示对应的十进制数。

程序的运行界面如图所示。

请在划线上填入合适的代码。

Function sq2(n As Integer) As Long'函数返回2的n 次方 Dim i As Integer ① For i = 1 To n sq2 = sq2 * 2 Next iEnd FunctionPrivate Sub Command1_Click()Dim s1 As String, length As Integer, ch As String, x As IntegerDim sum As Long, i As Integer, t As Integers1 = Text1.Text length = Len(s1) sum = 0For i = 1 To length t = ② ch = Mid(s1, t, 1)x = Val(ch)sum = sum + x * sq2(i - 1) Next iText2.Text = Str(sum) End Sub18.下列程序的功能是：模拟电子词典翻译单词的过程。

电子词典里面有个字典库，通过查找字典库，找到相应的单词，然后输出字典库里面该单词对应的中文意思。

下列程序中数组a用来存储英文单词，数组b用来存储中文意思，第i个单词保存在a(i)中，相对应的中文翻译保存在b(i)中。

程序界面如下图所示，左边列表框列出所有单词和中文翻译，在右边文本框Text1中输入一个单词，单击“翻译”按钮（Command1），程序就进行查找，如果找到就在标签Label3中输出该单词对应的中文翻译，否则就输出“没有找到该单词！”。

（1）虚线内程序段所采用的查找算法名称是。

（2）程序加框处代码有错，请改正。

Const n = 30Dim a(1 To n) As StringPrivate Sub Form_Load()' 此过程用于将单词和中文翻译存储在'数组a和数组b中' 对数组a按升序进行排序，代码略End SubFunction search(key As String) As IntegerDim i as Integer,j as Integeri = 1: j = nDo While i <= jm = (i + j) \ 2If a(m) = key Thensearch = m: Exit FunctionElseIf key < a(m) Thenj = m - 1Elsei = m + 1End IfLoopsearch = 0 '没查找到End FunctionPrivate Sub Command1_Click()Dim key As String, k As Integerkey = Text1.Textk = searchIf (k <> 0) ThenLabel1.Caption = a(k)ElseLabel1.Caption = "没有找到该单词！"End IfEnd Sub14. 12.566415. ①6 To 1 Step -1②a(i + 1) * 2 + 516. ①n * (n + 1) * (2 * n + 1) / 6②Text3.Text或Text317. ①sq2 = 1 ②length - i + 118.（1）对分查找（2）①search(key) ②b(k)。