VB冲刺模拟试卷三.doc

一、选择题1在正确的安装VB后，可以通过多种方式启动VB，在以下方式中不能启动VB的是（ ）A 通过“开始”菜单中的“程序”命令B 通过“我的电脑”找到VB6.exe，双击该文件名C 通过“开始”菜单中的“运行”命令D 进入DOS方式，执行VB6.exe2VB窗体设计器的主要功能是（ ）A建立用户界面 B编写源程序代码 C添加图 D显示文字3下列不能打开工具箱窗口的操作是（ ）A 招待“视图”菜单中的“工具箱”命令B 按Alt+F8键C 单击工具栏上的“工具箱”按钮D 按Alt+V，然后按Alt+X键4同时改变一个活动控件的高度和宽度，正确的操作是（ ）A 拖拉控件4个角上的某个小方块B 只能拖拉位于控件右下角的小方块C 只能拖拉位于控件左下角的小方块D 不能同时改变控件的高度和宽度5下列变量命名正确的是（ ）Amyfile Bvb 1 Cpage 2 Dcmd.16以下关于变量类型说明符的使用正确的是（ ）ADim a:a%=90000 BDim a:a=2000%CDim a:a#=”OK” DDim a:a&=True7执行以下语句后，输出的结果是（ ）s$ = GHIJKPrint InStr(s$, efg)Print LCase$(s$)A B C D 8DataTime是一个Data类型的变量，以下赋值语句中错误的是（ ）ADataTime=#5/14/01# BDataTime=#September 1,2001#CDataTime=#12:15:00 AM# D”8/8/99”9语句Print Sgn(-62)+Abs(-62)+Int(-62)的输出结果是（ ）A-36 B1 C-1 D-7210窗体上有一组合框Combo1，并将下列项“Chardonnay”、“FunBlanc”、“Gewrzt”和“Zinfande”放置到组合框中，当窗体加载时的代码如下：Private Sub Form_Load()Combo1.AddItem ChardonnayCombo1.AddItem FunBlancCombo1.AddItem GewrztCombo1.AddItem ZinfandeEnd Sub要在文本框Text1中显示列表中的第三个项目的正确语句是（ ）AText1.Text=Combo1.List(0) BText1.Text=Combo1.List(1)BText1.Text=Combo1.List(2) DText1.Text=Combo1.List(3)11假定窗体上有一个文本框，名为Txt1，为了使该文本框的内容能够换行，并且具有水平的垂直滚动条，正确的属性设置为（ ）ATxt1.MultiLine = True BTxt1.MultiLine = True Txt1.ScrollBars = 0 Txt1.ScrollBars = 3CTxt1.MultiLine = False DTxt1.MultiLine = FalseTxt1.ScrollBars = 0 Txt1.ScrollBars = 312执行下面的语句后，所产生的信息框的标题是（ ）a = MsgBox(AAAA, BBBB, , 5)ABBBB B空 CAAAA D出错，不能产生信息框13为了了取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是（ ）AControlBox BMinButton CEnabled DMaxButton14为了使标签覆盖背景，应把BackStyle属性设置为（ ）A0 B1 CTrue DFalse15当拖动滚动条中的滚动块时，将触发滚动条的事件是（ ）AMove BChange CScoll DSetFocus16下列可以把当前目录下的图形文件pic1.jpg装入图片框Picture1中的语句是（ ）A picture=”pic1.jpg”B Picture1.Handle=” pic1.jpg”C Picture1.Picture=LoadPicture(” pic1.jpg”)D Picture=LoadPicture(” pic1.jpg”)17在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是doc文件，则正确的描述格式是（ ）A”text(.doc)|(*.doc)” B”文本文件(.doc)|(*.doc)”C”text(.doc)|(*.doc)” D” text(.doc)(*.doc)”18文件列表框的Pattern属性的作用是（ ）A 显示当前驱动器或指定驱动器上的目录结构B 显示当前驱动器或指定驱动器上的某目录下的文件名C 显示某一类型的文件 D显示该路径下的文件19有如下语句：Open “f1.dat” For Random As #1 Len =15，表示文件f1.dat每个记录的长度等于（ ）A15个字符 B15个字节C或小于15个字符 D或小于15个字节20若有如下定义：Dim fs As New FileSystemObject, f As File现在要引用C盘根目录下存放的文件text.txt，可以使用的代码是（ ）Af=fs.GetFile(“c:text.txt”) BSet f=fs.GetFile(“c:text.txt”)Cf=fs.GetFile(“text.txt”) DSet f=fs.GetFile(“text.txt”)21下列语句错误的是（ ）AIf a = 3 And b = 2 Then BIf a = 1 Thenc = 3 c = 2Elseif a=2 C=3End If End IfCIf a =1 Then DIf a = 1 Then c = 2c = 2Elseif a=2 ThenC=3 End If 22在窗体中添加两个文本框（Name属性分别为Text1和Text2）、一个命令按钮（Name属性为Command1）和一个标签（Name属性为Label1）。编写如下程序：Private Sub Form_Load()Text1.Text = Text2.Text = End Sub要求程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和123，然后单击命令按钮，在标签中显示结果为246。能实现上述功能的程序段是（ ）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) = Text1.Text + Text2.TextLabel1.Caption = Str(a) Label1.Caption = Str(a)End Sub End Sub23在窗体中添加一个命令按钮（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程序运行后，单击命令按钮，输出结果是（ ）A3 3 3 9 B1 2 1 6 C1 1 1 3 D1 2 3 624在窗体中添加一个命令按钮（Name属性为Command1），然后编写如下代码：Private Sub Command1_Click()Dim k, n, m As Integern = 5m = 1k = 1Do While k 56在窗体中添加一个命令按钮，然后编写如下代码：Function fun(ByVal num As Long) As LongDim k As Longk = 1num = Abs(num)Do While numk = k * (num Mod 10)num = num 10Loopfun = kEnd FunctionPrivate Sub Command1_Click()Dim n As LongDim r As Longn = InputBox(请输入一个数)n = CLng(n)r = fun(n)Print rEnd Sub程序运行后，单击命令按钮，在输入对话框中输入23，输出结果为_。7以下程序的功能是：求 请将下列程序补充完整。Dim s As Double, n As Integers =0n = 1Dos = s +_n = n + 1Loop _Print s8在窗体中添加一个命令按钮Command1、一个文本框Text1和一个标签Label1，在命令挖中编写下列程序。程序的功能是在文本框中输入一篇巩短文，统计短文中的单词的个数，在标签中显示，假定每个单词中不包含英文字母以外的其他符号。请将下列程序补充完整。Private Sub Command1_Click()x = _n = Len(x)m = 0For i = 1 To ny = UCase(Mid(x, i, 1)If y = A And y = Z ThenIf p = 0 Then m = m + 1: p = 1Elsep = 0End IfNext iLabel1.Caption = _End Sub9该程序用户界面如图，由一个标签（Label1）、一个命令按钮（Command1）和两个复选框（Check1、Check2）组成。程序运行后，用户选中粗体复选框时“字体改变！”的字体变成粗体，用户选中斜体复选框时，“字体改变！”几个字的字体变成斜体。若取消选中，则恢复选字体；按结束按钮，则退出。请将下列程序补充完整。Private Sub Check1_Click()If Check1.value = _ ThenLabel1.Font._ = TrueElseLabel1.Font.Italic = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.value = 1 ThenLabel1.Font.Bold = TrueElseLabel1.Font._ = FalseEnd IfEnd SubPrivate Sub Command1_Click()_End Sub10建立随机文件TEST.DAT，存放学生的姓名和部分，然后把该文件中的数据读出来显示。请将下列程序补充完整。Type RecordStudent As String * 20Score As SingleEnd TypeDim Class As RecordOpen Test.dat For _ As #1 Len = Len(Class)Class.Student = LiuMin: Class.Score = 596Put #1, 1, ClassClose #1Open Test.dat For Random As #1 Len = Len(Class)_Print STUDENT:, Class, StudentP