1．下列不是VB常量的是 B 。

A）3.14 B）′Name ′ C)#10/18/2007# D)True 2．确定控件在窗体上位置的属性是 C 。

A）Width 和Height B）Width 和Top C）Top 和Left D）Top 和Height3．数学表达式1≤X＜10表示成正确的VB表达式为 B 。

A）1≤X＜10 B）X＞=1 And X＜10C) X＞=1 Or x＜10 D) X＞=1 And ＜104. 下面的__ B ___语句可以实现：先在窗体上输出大写字母A，然后在同一行的第10列输出小写字母b。

A）Print "A";Tab(9);"b" B）Print "A";Spc(8);"b"C）Print "A";Space(10);"b" D）Print "A";Tab(8);"b"5. 下列控件中，不能改变大小的控件是 D 。

A）TextBox B）Label C）Frame D）Timer 6．Visual Basic过程的编写是在 D 中进行的。

A）窗体窗口B）工程资源管理器窗口C）属性窗口D）代码编辑窗口7. 在Visual Basic中，声明全局变量应该用 D 关键字。

A）Dim B）Private C）Static D）Public 8. 在Visual Basic表达式中，运算符的运算顺序为 A 。

A）算术运算符—>字符串运算符—>关系运算符—>逻辑运算符B）逻辑运算符—>关系运算符—>字符串运算符—>算术运算符C）字符串运算符—>算术运算符—>关系运算符—>逻辑运算符D）关系运算符—>逻辑运算符—>算术运算符—>字符串运算符9. 下列属于非法调用的函数是 A 。

A）sqr(-5) B)Sgn(-5) C)Exp(-5) D)Int(-5) 10. 下列能够正确输出”a=8”形式的语句是 B 。

A）print a=3+5 B）pirnt “a=”;3+5C）print “a=3+5”D）print a=;3+511. 下列符号中，可以用作VB变量名的是 C 。

A）x.y.z B)3xyz C)x_yz D)Integer 12. 可以删除字符串两端空格的函数是 A 。

A）Trim B）Rtrim C）Ltrim D）Mid 13. 函数Int(Rnd*80)+1是在 D 范围内产生随机整数。

A）[0，80] B）[0，79] C）[1，79] D）[1，80]14. 下列四个字符串进行比较，最大的是 D 。

A）"9977 " B）"CD45 " C）"Cinema " D）"text "15. 要使文本框可以显示多行文本，需设置 A 属性为True。

A）MultiLine B）Enabled C）MaxLength D）Locked 16．已知f=“12345678”，则表达式val(Left(f,3))+val(Mid(f,4,2))的值是 A 。

A）168 B)12345 C)123 D)4517. 执行语句：Msgbox “北京欢迎您！”,1,“2008”，所产生的消息对话框的标题是B 。

A）北京欢迎您！B）2008 C）0 D）118．下面正确的赋值语句是 C 。

A）y=3x B)3*x=y C)y=3*x D)x+y=1019. 设a=6,则执行IF IIF(a>5,-1,0) THEN X=0 ELSE X=1后,x的值为 C 。

A) 5 B) 6 C) 0 D) -120. 在Visual Basic中，表达式y1+z2=a*Sin(b*x+c)+k的类型是 B 。

A）算术表达式B）关系表达式C）逻辑表达式D）字符表达式21. 如果变量a=50、b="ABC "、c="abc "、d=10，则表达式a < d Or b > c And b < > c的值是B 。

A）True B）False C）Yes D）No 22. 若Dim b(3) As Integer ,则Ucase(Chr(97) & UBound(b))的结果是 A 。

A）A3 B）A2 C）A1 D）A0 23. 下列各项不是Visual Basic的基本数据类型的是 A 。

A）Char B）String C）Integer D）Double 24. 下列表达式中，表达式 A 的运算结果与其它3个不同。

A）Int(-3.5)-1.5 B）Int(-4.5)+0.5 C）-Abs(-4.5) D）Fix(-4.5)-0.525. 对于窗体Form1，执行了Form1.Left=Form1.Left+100语句后，则该窗体 DA）上移B）下移C）左移D）右移26. .对于窗体Forml,若将其名称属性设置为Disp,Caption属性设置为OK，则下列正确的语句是 C 。

A）Forml.Left=1000 B)OK.Left=1000C) Disp.Left=1000 D)以上语句都不对27. 以下程序段执行后，整型变量n的值为 B 。

y =2008n = y \ 4 + y \ 400 – y \ 100A）486 B）487 C）507 D）467 28. 如果每0.1秒产生一个计时器事件，那么时钟控件的Interval属性应设为 C 。

A）1 B）10 C）100 D）100029. 如果a=1，b=-1，则语句Print (a = 1) And (b = -1)的输出结果是 B 。

A）False B）True C）1 D）-130. 将数据项“北京奥运会”添加到列表框Listl中成为第2项，应使用 C 语句。

A）Listl.AddItem”北京奥运会”，2 B）Listl.AddItem2，”北京奥运会”C）Listl.AddItem”北京奥运会”，1 D）Listl.AddItem1，”北京奥运会”31. 若要使标签框的大小自动与所显示的文本相适应，则可通过设置 A 属性的值为True来实现。

A）AutoSize B）Alignment C）Appearance D）Visible 32. 表示滚动条控件取值范围最大值的属性是 A 。

A）Max B)LargeChange C)Value D)Min33. 窗体上有一个列表框控件List1，其中含有若干列表项，则 D 能表示当前被选中的列表项内容。

A）List1.List B）List1.ListIndex C）List1.Index D）List1.Text 34. 要清除PictureBox控件中的图形，可用 A 语句。

A）picture1.picture=Loadpicture（）B）picture1.picture =””C）picture1.picture=Loadpicture(“”) D）Kill picture1.picture35. 执行语句Open "Text.dat " for Input As #1，对文件Text. dat中的数据能够执行的操作是C 。

A）只能写，不能读B）即可以读，也可以写C）只能读，不能写D）不能读，不能写36. 执行下列语句：A=InputBox(“请输入第一个数”)B= InputBox(“请输入第二个数”)Print A+B当输入为111和222时，输出结果为 A 。

A）111222 B）111 C）222 D）33337. 用Select Case语句选择|x|>10情况的语句为：Case C 。

A）Not (-10 To 10) B）-10 To 10C）Is<-10,Is>10 D）Abs(x)>1038. 以下程序段运行后，输出结果是 D 。

For i=1 To 3For j=1 To iIf j Mod 2=0 ThenElsePrint”＄”;End IfNext jPrintNext iA)＄B) @ C) @ D) ＄＄＄@@ @＄＄@＄＄＄@@@ @＄@ ＄@＄39. 下列程序段的循环结构执行后，i的输出值是 B 。

Dim y As IntegerFor i=2 To 10 Step 2y=y+iNext iPrint iA）11 B）12C）13 D）因为y初值不知道，所以不确定40. 下面分别是求两个数中的大数的程序段，不正确的是 D 。

A）Max=IIf(x>y,x,y) B）If x>y Then Max=x Else Max=yC）Max=x D）If y>=x Then Max=yIf y>=x Then Max=y Max=x填空题1．VB工程文件的扩展名为.vbp，窗体文件的扩展名为*.frm 。

2．若要将窗体Forml隐藏起来，调用语句为form1.hide 。

3．Visual Basic的三种工作模式是设计、运行和中断。

4．在调用过程时参数传递的两种方式是按值和按地址。

5．下面程序的功能是找出100到999之间所有的“水仙花数”，请用正确的内容填空。

所谓“水仙花数”是指一个三位数，其各位数字的立方和等于该数本身，例如153=13+53+33，故153是“水仙花数”。

Private Sub Form Click( )Dim p As IntegerFor n =100 To 999a= int(n/100)b=Int((n-a*100)/10)c=n Mod10p=a^3+b^3+c^3If p=n ThenPrint n; 是“水仙花数”End IfNext nPrint”@”;End Sub6．以下程序实现每次单击按钮Command1时，标签Label1在窗体Form1中向右移动100个标准单位；当标签移出窗体右边界时，再次单击Command1，标签Label1回到窗体的左边界。

Private Sub Command1_Click()If Label1.Left > Form1.Width thenLabel1.left=0ElseLabel1.left=label1.left+100End IfEnd Sub7．执行下面过程后，窗体上显示的是13 。

Private Sub Form_Click()Dim a(10,10) as IntegerDim i as Integer，j as IntegerFor i=1 to 10For j=1 to 10a(i,j)=i*jnext jnext iprint a(2,2)+a(3,3)end sub编程题1．编写程序，分别用InputBox函数接收两个整数，在窗体中输出其中的较大数。