1、一、选择题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 拖拉控
2、件 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$ = “GHIJK“Print InStr(s$, “efg“)Print LCase$(s$)A B C D 8DataTime 是一个 Data 类型的变量，以下赋值语句中错误的是（
3、）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 “Chardonnay“Combo1.AddItem “FunBl
4、anc“Combo1.AddItem “Gewrzt“Combo1.AddItem “Zinfande“End 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 =
5、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
6、为了使标签覆盖背景，应把 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在用通用对话框控件建立“打开”
7、或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是 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 每个记录的长度等于
8、（ ）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 =
9、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和 1
10、23，然后单击命令按钮，在标签中显示结果为 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)
11、 + 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 56在窗体中添加一个命令按钮，然后编写如下代码：Function fun(ByVal num As Long) As LongDim k As Longk = 1num = Abs(n
12、um)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 _
13、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 i
14、Label1.Caption = _End Sub9该程序用户界面如图，由一个标签（Label1）、一个命令按钮（Command1）和两个复选框（Check1、Check2）组成。程序运行后，用户选中粗体复选框时“字体改变！”的字体变成粗体，用户选中斜体复选框时，“字体改变！”几个字的字体变成斜体。若取消选中，则恢复选字体；按结束按钮，则退出。请将下列程序补充完整。Private Sub Check1_Click()If Check1.value = _ ThenLabel1.Font._ = TrueElseLabel1.Font.Italic = FalseEnd IfEnd SubPri
15、vate 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
16、#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, StudentPrint “SCORE:“, Class, ScoreClose #1End答案：一、选择题：1-5 DABAA6-10 AADCC11-15 BADBC16-20 CACBB21-25 BCDBA26-30 BDBAA二、填空题：1、 252、ENABLED3、 AUTOSIZE4、 25+32=575、 156、 67、 1/（N*（N+1）8、 UNTIL N209、 TEXT1.TEXT10、M11、 112、ITALIC13、 UNLOAD ME14、 RANDOM15、 GET #1，1，CLAS
