vb第五套模拟题及答案.doc

《vb第五套模拟题及答案.doc》由会员分享，可在线阅读，更多相关《vb第五套模拟题及答案.doc（9页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、装订线学 院： 专 业： 学 号： 姓 名： 教学班号： 线封密云南农业大学计算机公共课VB第五套模拟题本试题满分100分，考试时间120分钟。题 号一二三四五六七八总分得 分阅卷人一、选择题（每题2分，共50分）1在正确的安装VB后，可以通过多种方式启动VB，在以下方式中不能启动VB的是（ ）A 通过“开始”菜单中的“程序”命令B 通过“我的电脑”找到VB6.exe，双击该文件名C 通过“开始”菜单中的“运行”命令D 进入DOS方式，执行VB6.exe2VB窗体设计器的主要功能是（ ）A建立用户界面 B编写源程序代码 C添加图 D显示文字3同时改变一个活动控件的高度和宽度，正确的操作是（ ）

2、A 拖拉控件4个角上的某个小方块B 只能拖拉位于控件右下角的小方块C 只能拖拉位于控件左下角的小方块D 不能同时改变控件的高度和宽度4下列变量命名正确的是（ ）Amyfile Bvb 1 Cpage 2 Dcmd.15以下关于变量类型说明符的使用正确的是（ ）ADim a% : a=9000 BDim a : a=2000%CDim a : a#=”OK” DDim a : a&=True6DataTime是一个Data类型的变量，以下赋值语句中错误的是（）ADataTime=#5/14/01# BDataTime=#September 1,2001#CDataTime=#12:15:00 A

3、M# D”8/8/99”7语句Print Sgn(-62)+Abs(-62)+Int(-62)的输出结果是（ ）A-36 B1 C-1 D-728窗体上有一组合框Combo1，并将下列项“Chardonnay”、“FunBlanc”、“Gewrzt”和“Zinfande”放置到组合框中，当窗体加载时的代码如下：Private Sub Form_Load()Combo1.AddItem ChardonnayCombo1.AddItem FunBlancCombo1.AddItem GewrztCombo1.AddItem Zinfande第1页（共 7 页）End Sub要在文本框Text1中显

4、示列表中的第三个项目的正确语句是（ ）AText1.Text=Combo1.List(0) BText1.Text=Combo1.List(1)CText1.Text=Combo1.List(2) DText1.Text=Combo1.List(3)9假定窗体上有一个文本框，名为Txt1，为了使该文本框的内容能够换行，并且具有水平的垂直滚动条，正确的属性设置为（ ）ATxt1.MultiLine = True BTxt1.MultiLine = True Txt1.ScrollBars = 0 Txt1.ScrollBars = 3CTxt1.MultiLine = False DTxt1.M

5、ultiLine = False Txt1.ScrollBars = 0 Txt1.ScrollBars = 310执行下面的语句后，所产生的信息框的标题是（ ）a = MsgBox(AAAA, BBBB, , 5)ABBBB B空 CAAAA D出错，不能产生信息框11为了了取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是（ ）AControlBox BMinButton CEnabled DMaxButton12当拖动滚动条中的滚动块时，将触发滚动条的事件是（ ）AMove BChange CScoll DSetFocus13下列可以把当前目录下的图形文件pic1.jp

6、g装入图片框Picture1中的语句是（ ）A picture=”pic1.jpg”B Picture1.Handle=” pic1.jpg”C Picture1.Picture=LoadPicture(” pic1.jpg”)D Picture=LoadPicture(” pic1.jpg”)14在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是doc文件，则正确的描述格式是（ ）A”text(.doc)|(*.doc)” B”文本文件(.doc)|(*.doc)”C”text(.doc)|(*.doc)” D” text(.doc)(*.doc)

7、”15文件列表框的Pattern属性的作用是（ ）A 显示当前驱动器或指定驱动器上的目录结构B 显示当前驱动器或指定驱动器上的某目录下的文件名C 显示某一类型的文件 D 显示该路径下的文件16. 要改变新建对象的缺省名称，应使用属性_。AFont B. ForeColor C. Name D. Height17. 下列属于字符常量的是_。A. Abs(x) B. ”100”C. val(“100”) D. 10000/10018下列语句错误的是（ ）AIf a = 3 And b = 2 Then BIf a = 1 Then c = 3 c = 2 End If Elseif a=2 C=3

8、 End IfCIf a =1 Then DIf a = 1 Then c = 2 c = 2 Elseif a=2 Then C=3 End If 19在窗体中添加两个文本框（Name属性分别为Text1和Text2）、一个命令按钮（Name属性为第2页（共 7 页）Command1）和一个标签（Name属性为Label1）。编写如下程序：Private Sub Form_Load()Text1.Text = Text2.Text = End Sub要求程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和123，然后单击命令按钮，在标签中显示结果为246。能

9、实现上述功能的程序段是（）APrivate Sub Command1_Click() BPrivate Sub Command1_Click() a = Text1.Text + Text2.Text a = Val(Text1.Text + Text2.Text) Label1.Caption = Str(a) Label1.Caption = Str(a) End Sub End SubCPrivate Sub Command1_Click() DPrivate Sub Command1_Click() a = Val(Text1.Text) + Val(Text2.Text) val(a

10、) = Text1.Text + Text2.Text Label1.Caption = Str(a) Label1.Caption = Str(a) End Sub End Sub20在窗体中添加一个命令按钮（Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()s = 0For k = 1 To 3If k = 1 Thenx = 1ElseIf k = 2 Thenx = 2ElseIf k = 3 Thenx = 3Elsex = 4End IfPrint x;s = s + xNext kPrint sEnd Sub程序运行后，单

11、击命令按钮，输出结果是（ ）A3 3 3 9 B1 2 1 6 C1 1 1 3 D1 2 3 621在窗体中添加一个命令按钮（Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()Dim k, n, m As Integern = 5m = 1k = 1Do While k 511以下程序的功能是：求1+2+100, 请将下列程序补充完整。Dim s As Integer, n As Integers =0for n=1 to 100s = s +_next _Print s12该程序用户界面如图，由一个标签（Label1）、一个命令按钮

12、（Command1）和两个复选框（Check1、Check2）组成。程序运行后，用户选中粗体复选框时“字体改变！”的字体变成粗体，用户选中斜体复选框时，“字体改变！”几个字的字体变成斜体。若取消选中，则恢复选字体；按结束按钮，则退出。请将下列程序补充完整。Private Sub Check1_Click()If Check1.value = _ ThenLabel1.Font_ = TrueElseLabel1.FontItalic = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.value = 1 ThenLabel1.Font

13、Bold = TrueElse第6页（共 7 页）Label1.Font_ = FalseEnd IfEnd SubPrivate Sub Command1_Click()endEnd Sub四、编程题（每题10分，共20分）1. 从键盘上输入两个正整数，求最大公约数。注：程序写在命令按钮Command1的Click事件中。2. 计算sum=1/2!+1/3!+1/4!+1/n!，要求用自定义函数计算n！，同时n由输入对话框进行输入。注：程序写在窗体Form的Click事件中。第7页（共 7 页）参考答案一、 选择题（每题2分，共50分）12345678910DAAAADCCBA1112131

14、4151617181920DCCACCBBCD2122232425BABDB二、 是非题（每题1分，共10分）12345678910三、 填空题（每空1分，共20分）1事件驱动2设计 运行 中断3属性4ityo5enabled6组合框/combobox7Const8Left top height width925+32=57101511n n121 Italic Bold四、编程题（每题10分，共20分）1. 参考程序如下： Private Sub Command1_Click()Dim n%, m%, r%m = Val(InputBox(m=)n = Val(InputBox(n=)If

15、m n Then t = m: m = n: n = t r = m Mod n Do While (r 0) m = n n = r r = m Mod n LoopPrint 最大公约数=, nEnd Sub2. 参考程序如下：Private Sub Form_Click()Dim n%, sum#n = Val(InputBox(n=)sum = 0For i = 2 To nsum = sum + 1 / fa(i)Next iPrint sum=; sumEnd SubFunction fa(ByVal n As Integer)f = 1For i = 1 To n f = f * iNext ifa = fEnd Function