VB六套试卷 VB第二套(黄晓因)

1、装订线学 院： 专 业： 学 号： 姓 名： 教学班号： 线封密云南农业大学计算机公共课vb第2套模拟题本试题满分100分，考试时间120分钟。题 号一二三四五六七八总分得 分阅卷人一、 判断正误题（每题1分，共10分）1.VB应用程序是采用事件驱动的方式来运行的。2.Label中的AutoSize属性用于使Label控件中的显示的文字自动折行。3.VB中的属性是一个对象所具有的特性，不同的对象具有不同的属性。4.VB中的窗体也是一种对象，可以在窗体上放其它的VB对象。5.焦点是接收用户鼠标或键盘输入的能力，所有控件都具有接收焦点的能力。6.在VB程序中，在使用变量前不需要进行变量声明，用户可

2、直接使用VB的变量。7.任何字母的组合都可以作为VB的变量名。8.在VB中，语句Let x=5与语句x=5等效，都是给变量x赋一个值5。9.在VB中，如数组的元素个数相同，可将一个数组的所有元素一次复制给另一个数组。例如：Dim a(3), b(3)a=b 第1页（共 页）10.在VB的程序中，ForNext语句与DoLoop语句都可构成循环结构，其中ForNext语句更适用于循环次数不定的循环程序。二、 单项选择（每题2分，共50分）1VB开发环境中，可以使用下面 (1) 键激活VB帮助系统。(A)F1(C)F2(B)F3(D)F42VB集成开发环境的帮助库为 (2) 。(A)WinHelp

3、(C)Windows Help(B)MSDN(D)CHM3要把一个命令按钮设置成无效,应设置按钮的 (3) 属性值。(A)Visible(C)Default(B)Enabled(D)Cancel4为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个性设置为True,这个属性是: (4) 。(A)Value(C)Enabled(B)Cancel(D)Default5要使文本框获得输入焦点,则应采用文本框控件的 (5) 方法。(A)GotFocus (B)LostFocus (C)keypress (D)SetFocus6要想改变一个窗体的标题内容,则应设置 (6) 属性的值。(A

4、)Name (B)FontName (C)Caption (D)Text7用 (7) 属性可唯一标志控件数组中的某一个控件。A、Name B、Index C、Caption D、TabIndex第2页（共 页）8.下面给出的符号中,不能作为Visual Basic的变量名的是 (8) 。(A)abed (B)4A12 (C)AA_123 (D)BB%9.下面表达式中,其值为0的是 (9) (A)4/5 (B)5Mod 4 (C)45 (D)4Mod 510.在Visual Basic中,执行下面四个赋值语句时出现错误的是 (10) (A)x=SGN(O) (B)Y=sqr(O) (C)z=LO

5、G(O) (D)x=SIN(O)11.设变量a=2,b=3,c=4,d=5,则表达式not a>b and b2<c*d or a+b>c-d的值为 (11) (A)True (B)False (C)-1 （D）112.下面能够作为Visual Basic的表达式的是 (12) (A) 4*sin() (B)b2-4ac(C)-b+sqr(dlt)/(2*a*c) (D)exp(x)+ABS(Y)13下面程序执行时,当在窗体上单击左键时的输出结果是: (13) Private Sub Form-Click()Dim i As Integer,j As Integer,s As

6、 SingleFor i=6 To 5 Step-1s =0#For j=i To 4 Step -1s =s +i*jNext jNext iPrint sEnd Sub(A)90 (B)45 (C)135 (D)60第3页（共 页）14分别执行以下语句：x=InputBox("aaa","bbb")y=MsgBox("ccc",0,"ddd")输入对话框窗口和消息对话框的标题信息分别为: (14) (A)aaa和ccc (B) aaa和ddd (C) bbb和ccc (D) bbb和ddd15语句Print &

7、quot;44+66="44+66的输出结果为 (15) (A)"44+66="110 (B) 44+66=110(C) "44+66="44+66 (D) "44+66=",44+6616下列语句中,不正确的打印语句是: (16) (A)Print a=3+5 (B)Print "a=;3+5"(C)Print "a=3+5" (D)Print a=;3+517单击滚动条的滚动箭头时,产生的事件是: (17) (A)Click (B)Scroll (C)Change (D)Move1

8、8为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件),则应将其Interval属性值设置为: (18) (A)5 (B)500 (C)300 (D)500019要获得当前驱动器应使用驱动器列表框的 (19) 属性。(A)Path (B)Drive (C)Dir (D)Pattern20要使组合框设置成只能从中选择而不能输人数据的组合框(下拉式列表框),则应将其Style属性设置为: (20) (A)0 (B)1 (C)2 (D)3*密封线内不要答题*题 第4页（共 页）21设窗体的Click事件过程代码如下:Private Sub Form-Click()Dim k As Integ

9、er,a As Integerk=1If k<=1 Then a =2*kIf k<=2 Then a =2*k十1If k<=3Then a =kPrint k,aEnd Sub则当程序运行时,在窗体上单击鼠标时的输出结果是: (21) (A)1 2 (B)1 3 (C)1 1 (D)3 122.以下哪个程序段的执行结果为"OK”. (22) (A) (B)Dim y As Integer Dim y As Integer y=10 y=20 Select Case y Select Case yCase 11 To 1 Case Is>20,Is<2

10、0Print "OK “ Print "OK”End Select End Select (C) (D)Dim y As Integer Dim y As Integer y=6 y=10Select Case y Select Case yCase Is>6,1,2 to 5 Case 1,3,Is>6Print "OK” Print "OK”End Select End Select 23.对于下面结构的循环语句Do Until条件循环体loop正确的描述是: (23) (A) 如果"条件"是一个为0的常数,则不执行循

11、环体(B) 如果"条件"是一个为0的常数,则至少执行一次循环体(C) 如果"条件"是一个不为0的常数,则至少执行一次循环体(D)不论条件是否为"真",至少要执行一次循环体第5页（共 页）24.设有以下程序段：Dim i As Integer, j As Integeri=1Do While i <4i=i+lFor j=5 To 1 Step -1Print i*jNext jloop则其中的语句Print i*j 的执行次数是:(A)15 (B)16 (C)17 (D)2025在窗体上画一个命令按钮(将其名称定为Command

12、1),编写其Click事件过程代码:Private Sub Command1-Click()Dim m(1To 10)As Integer,k As IntegerFor k=1To 10M(k)=11-KNext kFor k=1 To 10Print m(m(k);Next kEnd Sub程序运行时,单击命令按钮时,程序的输出结果是:(A)10 9 8 7 6 5 4 3 2 1 (B)1 3 5 7 9 2 4 6 8 10(C)2 4 6 8 10 1 3 5 7 9 (D)1 2 3 4 5 6 7 8 9 10第6页（共 页）三、 填空题（每空2分，共20分）1与数学表达式1x1

13、00对应的Visual Basic表达式是 (1) 。2设变量a是一个实数,能对a值的第4位小数进行四舍五入的表达式是：(2)。3表达式#2006-06-10#-31的值为 (3) 。4表达式Abs(-34)+Sqr(100)*Int(-3.4)的值为 (4) 。5当程序运行时,在窗体上单击鼠标时,下面事件过程的执行结果为 (5) Private Sub Form-Click()Dim a(1To 20)As IntegerDim k As IntegerFor k=l To 20a(k)=k*kNext kPrint a(k)End Sub6在窗体上画一个命令按钮(将其名称定为Command

14、1),编写其Click代码:Option Base lPrivate Sub Command1-click（）Dim x As VariantDim s As Integer,j As Integers =0: j=1x=Array(1,2,3,4,5)For i = 4 To 1 Step-1s =s +x(i)*jj=j*10Next iPrint sEnd Sub程序运行时,单击命令按钮时,程序的输出结果是 (6) 第7页（共 页）7在窗体上加一个文本框(其名称为Text1),编写如下事件过程:Private Sub Text1-keyDown(keyCode As Integer,Sh

15、ift As Integer)Print Chr( keyCode -3);End Sub则程序运行后,如果Text1文本框中输入EFG,则在窗体上输出内容为 (7)。8所有的VB中的程序从结构上可被分为三类，即顺序，分支和 (8) 。9下面程序功能为打印mn矩阵的转置矩阵，请填写程序中缺少的语句。Option Base 1Private Sub Form-Click()Dim m As Integer,n As Integer,i As Integer,j As IntegerDim a(),b(),tm=10n=10ReDim a(m,n)ReDim b(n,m)For i=1 To mF

16、or j=1 To na(i,j)=Rnd (9) Next iFor i=1 to m For j=1 to m Print _ (10) Next j: Print: Next iEnd Sub*密封线内不要答题*题 第8页（共 页）四、 编程题（每题10分，共20分）1 编写一个程序，输入一个年份,判断它是否为闰年。闰年的条件是:年号能被4整除但不能被100整除,或者能被400整除的年份。2 四支球队采用淘汰赛制进行比赛，AB为一组，CD为一组，AB中的胜者与CD中的胜者争夺冠军，负者争夺第三名。编写一个程序，模拟100次比赛过程，并输出100次中A、B、C、D四队获得冠军的概率。采用随

17、机函数模拟比赛。例如A、B两队进行比赛时，A队获胜的概率是0.65，B队胜的概率是0.35，当随机数为0-0.35时，判定B队胜，否则判定A队胜。ABCD四队两两比赛获胜的概率如下表。BCDAA队获胜概率0.65，B队获胜概率0.35A队获胜概率0.7，C队获胜概率0.3A队获胜概率0.4，D队获胜概率0.6BB队获胜概率0.55，C队获胜概率0.45B队获胜概率0.3，D队获胜概率0.7CC队获胜概率0.3，D队获胜概率0.7第9页（共 页）参考答案姓名：学号：专业：总分：一、 判断正误题（每题1分，共10分）得分：题号答案题号答案题号答案题号答案题号答案12×345×6

18、7×89×10×二、 单项选择（每题2分，共50分）得分：题号答案题号答案题号答案题号答案题号答案1A6C11A16D21C2B7A12D17C22D3C8B13B18D23B4D9C14D19B24A5D10C15B20C25D三、 填空题（每空2分，共20分）得分：1x>=1 and x<=1002round(a,4)3#2006-05-11#4-65错误，下标越界612347BCD第9页（共 页）8顺序，分支，循环9Next j10A(j,i)四、 编程题（每题10分，共20分）得分：1.Private Sub Form-Click()Dim y

19、 As Integery=Int(Val(InputBox("输入年号","输人") 输入年份，2分If(y Mod 4=0 And y Mod 100<>0)Or (y Mod 400=0)Then 判断是否是闰年，6分Print y;"是闰年" 输出结果2分Else Print y;"不是闰年"End if End Sub2.Private Sub Command1_Click()sa = 0: sb = 0: sc = 0: sd = 0For i = 1 To 1000 ab = Rnd: cd = Rnd If ab > 0.35 Then If cd > 0.3 Then 'AB两队比赛，