VB考试题及答案1

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

A）3.14B）′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＜10B）X＞=1And X＜10C)X＞=1Or x＜10D)X＞=1And＜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+5B）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）168B)12345C)123D)4517.执行语句：Msgbox“北京欢迎您！”,1,“2008”，所产生的消息对话框的标题是B。

A）北京欢迎您！B）2008C）0D）1 18．下面正确的赋值语句是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=0ELSE X=1后,x的值为C。

A)5B)6C)0D)-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）A3B）A2C）A1D）A0 23.下列各项不是Visual Basic的基本数据类型的是A。

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

A）Int(-3.5)-1.5B）Int(-4.5)+0.5C）-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=1000B)OK.Left=1000C)Disp.Left=1000D)以上语句都不对27.以下程序段执行后，整型变量n的值为B。

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

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

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

A）Listl.AddItem”北京奥运会”，2B）Listl.AddItem2，”北京奥运会”C）Listl.AddItem”北京奥运会”，1D）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）111222B）111C）222D）33337.用Select Case语句选择|x|>10情况的语句为：Case C。

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

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

Dim y As IntegerFor i=2To10Step2y=y+iNext iPrint iA）11B）12C）13D）因为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=100To999a=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=1to10For j=1to10a(i,j)=i*jnext jnext iprint a(2,2)+a(3,3)end sub编程题1．编写程序，分别用InputBox函数接收两个整数，在窗体中输出其中的较大数。

(10) 2．S=1+22+32+….+n2，问n最小为多少时S的值大于10000，请编程计算n的值。

（10分）。

3．用循环语句编程输出下列图形（10分）4．利用随机函数模拟产生10名学生的《VB课程》期末考试成绩（0~100），然后将成绩按从大到小的次序排序输出。