资源描述：
《大学08-09VB期末试卷及答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、东莞理工学院（本科）试卷（A卷）2008—2009学年第二学期《高级语言程序设计》试卷开课单位：计算机学院，考试形式：闭卷，允许带入场注意：所有答案均写在答题卡上，做在试卷上无效！一、单项选择题（每小题2分，共60分）1.VB6.0是一种面向______的编程环境。（A）对象（B）过程（C）机器（D）应用2．在程序代码text1.text="VisualBasic"中，text1、text和"VisualBasic"分别代表_______。（A）对象、值、属性（B）对象、方法、属性（C）对象、属性、值（D）属性、对象、值3．要判断在文本框中是否按
2、下Enter键，应在文本框的______事件中判断。（A）Click（B）LostFocus（C）KeyPress（D）GotFocus4.下面________是合法的双精度变量。（A）num!（B）sum%（C）’ABC’（D）mm#5.在一个语句行内写多条语句或将一个语句分成多行书写，需要使用语句分隔符和续行符，它们分别使用符号。（A）：和，（B）：和_（C）_和：（D）_和，6.已知A$=“12345678”，则表达式Val(Left$(A$,4)+Mid$(A$,4,2))的值是_____。（A）123456（B）123445（C）127
3、9（D）1235467.表达式16/4-2^5*8/4MOD52的值为_____。（A）14（B）4（C）20（D）28．语句Ifx=1Theny=1,下列说法正确的是________。（A）x=1和y=1均为赋值语句（B）x=1和y=1均为关系表达式（C）x=1为关系表达式，y=1为赋值语句（D）x=1为赋值语句，y=1为关系表达式9．执行如下程序，输出的结果是_______。Dimx%,y%,s%x=-5:s=int(rnd)+5SelectCasesCaseIs>5第9页共9页y=x+1CaseIs=5y=x+2CaseElsey=x+3
4、EndSelectPrintx,y（A）-5-3（B）-5-4（C）-5-2（D）-5-510．下列程序段运行结果为________。PrivateSubForm_Click()Fori=1to5step2PrintTab(10-i);PrintString(i,right(Str(i),1))NextiEndSub（A）1（B）1（C）1（D）55555333333333333555555555555555111．在窗体上画一个命令按钮，然后编写如下事件过程:PrivateSubCommand1_Click()Doa=val(InputBox(
5、"A的值"))b=val(InputBox("B的值"))x=val(InputBox("x的值"))a=a+b+xLoopwhilex>=0Printa,b,xEndSub运行程序，单击命令按钮，依次输入20、10、5、20、10、-10，则输出结果为_____。（A）2010-10（B）3510-10（C）3010-10（D）5510-1012．下面程序计算的数学式是_______。T=1:S=0ForI=1to19step2T=T*IS=S+TNextIPrintS（A）1+3+5+...+19（B）1!+3!+5!+...+19!（C）1
6、*3*5*...*19（D）1+1*3+1*3*5+...+1*3*5*...1913．如下数组声明语句中，数组a包含元素的个数为________。OptionBase1Dima(3,4,5)AsInteger第9页共9页（A）120（B）75（C）60（D）1314．执行下列程序的结果是_______。PrivateSubCommand1_Click()DimaA=array(1,2,3,4,5,6,7)Fori=Lbound(a)ToUbound(a)a(i)=a(i)*a(i)NextiPrinta(i)EndSub（A）49（B）10（C
7、）100（D）数组下标越界15．下面程序段运行后输出的结果为______。Dimx(),k%,m%x=Array(1,2,3,4,5):m=x(1)Fork=1To4Ifx(k)>mThenm=x(k)Nextkx(2)=mFork=0To4Printx(k);Nextk（A）12345（B）54321（C）12545（D）1214516．在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用________关键字在过程中定义局部变量。（A）Dim（B）Private（C）Public（D）Static17．要想从子过程调
8、用后返回两个参数的值，下面子过程语句满足要求的是__________。（A）Subf(a%,Byvalb%)（B）Subf(ByVala
