VB程序设计110期中试卷.doc

Visual Basic高考模拟试卷（三）Visual Basic 模拟试卷（三）班级: _ 学号： 姓名： 一、选择题（每题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、数学关系式3x10表示成正确的VB表达式为( )A. 3=x10 B. 3=x AND =3 OR x10 D. 3=x AND x106、下面正确的赋值语句是( )A. y=x+30 B. pi*r*r=y C. x+y=30 D. 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、-2 B. 2、2、-3、-2 C. 3、2、-2、-2 D. 2、2、-3、-39、如果变量 a=7、b=6、c=4、d=5，则表达式 ac AND cd 的值为( )A. Yes B. No C. True D. False 10.为了给x,y,z三个变量赋初值1，下面正确的赋值语句是( )A. xyz=1B. x=1,y=1,z=1 C. x=y=z=1 D. x=1y=1z=111、如果变量a=2,b=3,c=4,d=5，表达式NOT ab AND NOT dc的值是( )A. False B. True C. 1 D. 012、表达式Int(198.555*100+0.5)/100的值为( )A. 198.56 B. 199.6 C. 198 D. 20013、函数Mid(123456789,3,4)的值是( )A. 456 B. 3456 C. 3456 D. 456 14、以下程序代码能执行的是( )A.If a=1 Then b=0 Else c=0 End IfB.If a=1 Then : B=0: ElseIf C=0 Then : D=0D. If a = 1 Then b = 0 Else If c = 0 d = 0 End IfC.If a = 1 Then b = 0 ElseIf c = 0 Then d = 0 End If15、下列程序段的循环结构执行后，i的值和y的值是( )Dim y as Integer, i as integery = 0 For i = 1 To 10 Step 2 y = y + iNext iA.10、 25 B. 10、36 C. 11、16 D.11、2516、将数学表达式写成VB表达式，正确的是( )Alog(x)/(a+b) Blog(x)/a+b Cln(x)/(a+b) Dln(x)/a+b17、有如下VB程序段：For i=1 To 1000 a=Int(Rnd*100+1) b=Int(Rnd*100+1) x=a+b y=a-b c=Sqr(x)第17题图 d=Sqr(y) Next i 调试时出现如第17题图所示的错误提示，产生此错误的语句是( ) A d=Sqr(y) By=a-b Cc=Sqr(x) Dx=a+b18、（浙江高考2009）在VB窗体中有一个对象该对象的属性窗口如图所示。下列说法中不正确的是( ) A1680为属性值 B根据“Timer1 Timer”可判断窗体名为Timer C该对象的名称为Timer1第18题图 DInterval为属性名19、在条件语句If x=1 Then y=2中，下列说法正确是( )A. x=1和y=2均为赋值语句 B. x=1和y=2均为关系表达式 C. x=1为关系表达式，y=2为赋值语句 D. x=1为赋值语句，y=2为关系表达式20、下列程序中 s = s + j 语句共执行了多少次，最终s的值为多少？( )Dim s As Integer，i As Integer, j As IntegerFor i = 1 To 10 Step 2 For j = 1 To 5 Step 2 s = s + j Next jNext iA. 12、36 B. 12、20 C. 10、20 D. 15、452、 综合题：21、下列VB程序运行时，在文本框Text1中输人数据6，在文本框Text2中输入数据9，单击命令按钮Command1后，文本框Text1中显示的内容是 ，文本框Text2中显示的内容是 。（每空2分） Private Sub Command1_C1ick () Dim As Integer, b As Integer a=Val(Text1.Text) b=Val(Text2.Text) a=a*b : b=a/b : a=a/b Text1.Text=Str(a) Text2.Text=Str(b)End Sub22、填写下面各程序段执行之后对应变量的值（涉及的变量均已定义）（每空3分）X=5 For i = 1 to 10 Step 2 X = X + i5 Next I变量X的值为 s5For i3 to 5 i=i+1 s=s+1Next i变量s的值为 Dim x(3,5) as integerFor i=1 to 3 For j=1 to 5 x(i,j)=i+j Next jNext i变量x(3,4)的值为 Dim ch as Stringch = Ach = Chr( Asc(ch)+1 )字符变量ch的值为 A=75If A60 Then i = 1If A70 Then i = 2变量i的值为 A=75If A90 then i = 1ElseIf A80 Then i = 2ElseIf A70 Then i = 3ElseIf A60 Then i = 4End If变量i的值为 a = 100 b = 20 a = a + b b = a - b a = a - b变量a的值为 x = 6y = 3If x y Then t = x x = y y = tEnd If23、（本题3分）阅读下面的程序段(程序涉及的变量均已定义) 该程序的实现的功能是： 24、下面窗体模块（如图所示）的功能是：用随机函数产生50个不大于1000的整数存入一维数组a中，并找出这组数中最大数和最小数，分别存储在变量max和min中。在横线上填上适当内容。（每空4分）Private Sub Command1_Click() Dim i As Integer, max As Integer, min As Integer Const n = 50 Dim a(1 To n) As Integer 定义数组a,大小为50个元素 Randomize For i = 1 To n a(i) = Int(Rnd * 1000 + 1) 随机产生整数，并赋给数组a(i) Next i max = a(1) min = a(1) For i = 2 To n If Then max = a(i) If Then min = a(i) Next i第24题图 Text1.Text = Str(max) Text2.Text = End SubVB基本运算和语句专题测试参考答案一、 选择题（每题3分）题号123456