《vb第五套模拟题及答案-.pdf》由会员分享，可在线阅读，更多相关《vb第五套模拟题及答案-.pdf（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.exe 2VB 窗体设计器的主要功能是（）A建立用户界面B编写源程序代码C添加图D显示文字3同时改变一个活动控件的高度和宽度，正确的操作是（）A 拖拉控件 4
2、 个角上的某个小方块B 只能拖拉位于控件右下角的小方块C 只能拖拉位于控件左下角的小方块D 不能同时改变控件的高度和宽度4下列变量命名正确的是（）Amyfile Bvb 1 Cpage 2 Dcmd.1 5以下关于变量类型说明符的使用正确的是（）ADim a%:a=9000 BDim a:a=2000%CDim a:a#=”OK”DDim a:a&=True 6DataTime 是一个 Data 类型的变量，以下赋值语句中错误的是（）ADataTime=#5/14/01#BDataTime=#September 1,2001#CDataTime=#12:15:00 AM#D”8/8/99”7语
3、句 Print Sgn(-62)+Abs(-62)+Int(-62)的输出结果是（）A-36 B1 C-1 D-72 8窗体上有一组合框Combo1，并将下列项“Chardonnay”、“FunBlanc”、“Gewrzt”和“Zinfande”放置到组合框中，当窗体加载时的代码如下：Private Sub Form_Load()Combo1.AddItem Chardonnay Combo1.AddItem FunBlanc Combo1.AddItem Gewrzt Combo1.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=3 CTxt1.MultiLine=False DTxt1.MultiLine=False T
5、xt1.ScrollBars=0 Txt1.ScrollBars=3 10执行下面的语句后，所产生的信息框的标题是（）a=MsgBox(AAAA,BBBB,5)ABBBB B空CAAAA D出错，不能产生信息框11为了了取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是（）AControlBox BMinButton CEnabled DMaxButton 12当拖动滚动条中的滚动块时，将触发滚动条的事件是（）AMove B Change CScoll DSetFocus 13下列可以把当前目录下的图形文件pic1.jpg 装入图片框Picture1 中的语句是（）A pic
6、ture=”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)”15文件列表框的Pattern属性的作用是（）A 显示当前驱动
7、器或指定驱动器上的目录结构B 显示当前驱动器或指定驱动器上的某目录下的文件名C 显示某一类型的文件D 显示该路径下的文件16.要改变新建对象的缺省名称，应使用属性_。AFont B.ForeColor C.Name D.Height 17.下列属于字符常量的是_。A.Abs(x)B.”100”C.val(“100”)D.10000/100 18下列语句错误的是（）AIf a=3 And b=2 Then BIf a=1 Then c=3 c=2 End If Elseif a=2 C=3 End If CIf a=1 Then DIf a=1 Then c=2 c=2 Elseif a=2 T
8、hen 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。能实现上述功能的程序段是（）APrivate Sub Command1_Click()BPrivate Sub
9、Command1_Click()a=Text1.Text+Text2.Text a=Val(Text1.Text+Text2.Text)Label1.Caption=Str(a)Label1.Caption=Str(a)End Sub End Sub CPrivate Sub Command1_Click()DPrivate Sub Command1_Click()a=Val(Text1.Text)+Val(Text2.Text)val(a)=Text1.Text+Text2.Text Label1.Caption=Str(a)Label1.Caption=Str(a)End Sub End
10、Sub 20在窗体中添加一个命令按钮（Name 属性为 Command1），然后编写如下代码：Private Sub Command1_Click()s=0 For k=1 To 3 If k=1 Then x=1 ElseIf k=2 Then x=2 ElseIf k=3 Then x=3 Else x=4 End If Print x;s=s+x Next k Print s End Sub 程序运行后，单击命令按钮，输出结果是（）A3 3 3 9 B1 2 1 6 C1 1 1 3 D1 2 3 6 21在窗体中添加一个命令按钮（Name 属性为 Command1），然后编写如下代码：
11、Private Sub Command1_Click()Dim k,n,m As Integer n=5 m=1 k=1 Do While k 5 11以下程序的功能是：求1+2+100,请将下列程序补充完整。Dim s As Integer,n As Integer s=0 for n=1 to 100 s=s+_ next _ Print s 12该程序用户界面如图，由一个标签（Label1）、一个命令按钮（Command1）和两个复选框（Check1、Check2）组成。程序运行后，用户选中粗体复选框时“字体改变！”的字体变成粗体，用户选中斜体复选框时，“字体改变！”几个字的字体变成斜体
12、。若取消选中，则恢复选字体；按结束按钮，则退出。请将下列程序补充完整。Private Sub Check1_Click()If Check1.value=_ Then Label1.Font_=True Else Label1.FontItalic=False End If End Sub Private Sub Check2_Click()If Check2.value=1 Then Label1.FontBold=True Else 第 6页（共7 页）Label1.Font_=False End If End Sub Private Sub Command1_Click()end End
13、 Sub 四、编程题（每题10 分，共 20 分）1.从键盘上输入两个正整数，求最大公约数。注：程序写在命令按钮Command1 的 Click 事件中。2.计算 sum=1/2!+1/3!+1/4!+1/n!，要求用自定义函数计算n！，同时 n 由输入对话框进行输入。注：程序写在窗体Form 的 Click 事件中。第 7 页（共7 页）参考答案一、选择题（每题 2 分，共 50分）1 2 3 4 5 6 7 8 9 10 D A A A A D C C B A 11 12 13 14 15 16 17 18 19 20 D C C A C C B B C D 21 22 23 24 25
14、B A B D B 二、是非题（每题 1 分，共 10分）1 2 3 4 5 6 7 8 9 10 三、填空题（每空 1 分，共 20分）1 事件驱动2 设计运行中断3 属性4 ityo5 enabled6 组合框/combobox7 Const8 Left top height width9 25+32=5710 1511 n n12 1 Italic Bold四、编程题（每题10 分，共 20 分）1.参考程序如下：Private Sub Command1_Click()Dim n%,m%,r%m=Val(InputBox(m=)n=Val(InputBox(n=)If 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 Loop Print 最大公约数=,n End Sub 2.参考程序如下：Private Sub Form_Click()Dim n%,sum#n=Val(InputBox(n=)sum=0 For i=2 To n sum=sum+1/fa(i)Next i Print sum=;sum End Sub Function fa(ByVal n As Integer)f=1 For i=1 To n f=f*i Next i fa=f End Function