第一套vb试题(练习一带答案)

第一套vb 试题
1.下列叙述中正确的是(C)
A.只有窗体才是Visual Basic 中的对象
B.只有控件才是Visual Basic 中的对象
C.窗体和控件都是Visual Basic中的对象
D.窗体和控件都不是Visual Basic
2.确定一个控件在窗体上的位置的属性是(D)
A.Width 或Height
B.Width 和Height
C.Top 或Left
D.Top 和Left
3、为了同时改变一个活动控件的高度和宽度，正确的操作是(A)
A.拖拉控件4个角上的某个小方块
B.只能拖拉位于控件右下角的小方块
C.只能拖拉位于控件左下角的小方块
D.不能同时改变控件的高度和宽度
4、用户在屏幕上画出应用程序界面，并设置好对象的属性，系统便可以自动生成程序代码，这称为： ( A )
A、面向对象的程序设计
B、结构化程序设计
C、事件驱动的编程机制
D、可视化程序设计
5、VB6 共有三个版本，按功能从弱到强的顺序排列应是( C )
A、学习版、专业版和工程版
B、学习版、工程版和专业版
C、学习版、专业版和企业版
D、学习版、企业版和专业版
6、VB 集成开发环境有三种工作状态，不属于三种工作状态之一的是( B )
A、设计状态
B、编写代码状态
C、运行状态
D、中断状态
7、工程文件的扩展名是( B)
.frm B、.vbp C、.bas D、.frx
8、窗体文件的扩展名是( A)
.frm B 、.vbp C、.bas D、.frx
9、VB 集成开发环境可以( D )
A 、编辑、调试、运行程序，但不能生成执行程序
B 、编辑、生成可执行程序、运行程序，但不能调试程序
C、编辑、调试、生成可执行程序，但不能运行程序
D 、编辑、调试、运行程序，也能生成执行程序
10、标准模块文件的扩展名是( C)
.frm B 、.vbp C、.bas D、.vbg
11、用于获得字符串S从第5个字符开始的3个字符的函数是(A )。

A．Mid(S,5,3) B.Middle(S,5,3) C.Right(S,5,3) D.Left(S,5,3)
12、用于从字符串左边截取字符的函数是( D)。

A、Ltrim( )
B、Trim( )
C、Instr( )
D、Left( )
13、用于去掉字符串左右两边的空格的函数是(
B)。

A 、Ltrim( ) B、Trim( ) C、Left( ) D、Instr( )
14.假定窗体的名称(Name 属性)为Forml，则把窗体的标题设置为“VB Test ”的语句
为(B)
A.Form1 = "VB Test"
B.Caption ="VB Test"
C.Form1．Text = "VB Test"
="VB Test"
15 下列说法中正确的是：为了保存一个Visual Basic 应用程序，应当(D)
A. 只保存窗体模块文件(.frm)
B. 只保存工程文件(.vbp)
C.分别保存工程文件和标准模块文件(.bas)
D.分别保存工程文件、窗体文件和标准模块
文件
16、要使一个标签框对象能够显示所需要的文本，应设置该对象的那一个属性的值？
( A)
A. Caption
B. Text
C. Name
D.AutoSize
17、要使一个命令按钮称为图形式命令按钮，应设置该队象的哪一个属性值？(B)
A.Picture
B.Style
C.DownPicture
D.DisabledPicture
18、为使计时器对象每隔 5 秒钟产生一个时钟事件( Timer 事件)，则其Interval 属性值应设置为(D)
A.5
B.300
C.500
D.5000
19、一个标准的VB应用程序至少要包含一个(C)对象。

A.文本框
B.标签框
C.窗体
D.命令按钮
20、要使一个文本框对象能够显示多行文字，应设置该对象的(B)属性值为True.
A.Text
B.MultiLine
C.Style
D.Visible
21、双击窗体中的对象后，VB 将显示的窗口是( C )
A、工具箱
B、项目(工程)窗口
C、代码窗口
D、属性窗口
22、下述先项中，属性VB 的程序设计方法是( B )
A、面向对象、顺序驱动
B、面向对象、事件驱动
C、面向过程、事件驱动
D、面向过程、顺序驱动
23、下面是窗体的四个属性，在界面设计时，改变属性值看不到窗体变化的是( D )
A 、Top
B 、Width
C 、Left
D 、Enabled
24、下面四个选项，不是事件的是( B )
A 、Load
B 、Enabled C、Unload D 、DblClick
25、用来设置窗体背景图片的属性是( B )
A 、Moveable
B 、Picture C、ForeColor D 、WindowState
26、在VB6 中的每一个对象都具有自己的属性、___C ____ 和方法。

A、控件
B、函数
C、事件
D、公用过程
27．计算结果为0的表达式是( B )。

A ．Int(3.4)+Int(-3.8) B.Int(3.4)+Fix(-3.8)
C．Fix(3.4)+Fix(-2.8) D.Fix(3.4)+Int(-3.8)
28•假设A=3，B=7，C=2，则表达式NOT ( BA 的值是(B)
A.True
B.False
C. 表达式错误
D. 不确定
29.在表达式y = InputBox ( a, b, c )中，a,b,c分别为输入函数对话框的(B) ( A)(C)。

A.标题
B.提示
C.预设值
D.帮助文件名
30.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click() a = InputBox("Enter the First integer") b =
InputBox("Enter the Second integer") Print b + a
End Sub
456 和123，则输出结果是(D)
A.579
B.123
C.456
D.123456
31.在窗体上画一个命令按钮，然后编写如下事件过
程：Private Sub Command1_Click()
Dim a, b As Integer
a = InputBox("Enter the First integer")
b = InputBox("Enter the Second integer")
Print b + a
End Sub
456 和123，则输出结果是(A)
A.579
B.123
C.456
D.123456
32.执行下面的语句后，所产生的信息框的标题是
a=MsgBox("AAAA" ，，"BBBB" ，"" ，5)(A) A.BBBB B. 空
C.AAAA
D. 出错，不能产生信息框
33.假定x 的值为5，则在执行以下语句时，其输出结果为
"Result" 的Select Case 语句是(C)
A. Select Case x
Case 10 To 1
Print "Result"
End Select
B.Select Case x
Case Is > 5, Is v 5
Print "Result"
End Select
C.Select Case x
Case Is > 5, 1, 3 To 10
Print "Result"
End Select
D.Select Case x
Case 1, 3, Is > 5
Print "Result"
End Select
34.假定有以下循环结构
Do Until 条件
循环体
Loop
(B)
A.如果"条件"是一个为0的常数，则一次循环体也不执行
B.如果"条件"是一个为0的常数，则无限次执行循环体
C.如果"条件"是一个不为0的常数，则至少执行一次循环体
D.不论"条件"是否为"真"，至少要执行一次循环体
35.以下程序段的输出结果为
x=1
y=4
Do Until y > 4
x=x*y y=y+1
Loop
Print x (B)
A. 1
B.4
C.8
D.20
36.执行下面的程序段后，x 的值为
x=5
For i = 1 To 20 Step 2
x=x+i\5
Next i (A)
A.21
B.22
C.23
D.24
37.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do Until x = -1
a=InputBox(" 请输入 A 的值")
a=Val(a)
b=InputBox(" 请输入 B 的值")
b=Val(b)
x=InputBox(" 请输入x 的值")
x = Val(x) a=a+b+x
Loop Print a
End Sub 5、4、3、2、1、果为(A)
A. 2
B.3
C.14
D.15
-1，则输出结
38.阅读下面的程序段：
39.退出For 循环可使用的语句为( A )。

A、Exit For
B、End For
C、Exit Do
D、End Do
40.退出Do, Loop 循环可使用的语句为( C )。

A、Exit For
B、End For
C、Exit Do
D、End Do
41.退出函数过程可使用的语句为( D )。

A、Exit sub
B、End sub
C、End Function
D、Exit Function
42.退出sub 过程可使用的语句为( A )。

A 、Exit sub B、End sub C、End Function D 、Exit Function
43.在窗体上画一个文本框(其Name 属性为Text1) ，然后编写如下事件过程：Private Sub
Form_Load()
Text1.Text= "" Text1.SetFocus For i=1 To 10 Sum = Sum + i
Next i Text1.Text = Sum End Sub
(C)
A.在文本框Textl中输出55
B.在文本框Textl中输出0
C.出错
D.在文本框Textl中输出不定值
44.在窗体上画两个文本框(其Name 属性分别为Text1 和Text2) 和一个命令按钮(其Name 属性为Command1) ，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do While x < 50
x=(x+2)*(x+3) n=n+1
Loop
Text1.Text = Str(n)
Text2.Text = Str(x)
End Sub
(B)
A. 1 和0
B.2 和72
C.3 和50
D.4 和168
45.在窗体上画一个命令按钮，名称为Command1 。

然后编写如下程序：
Private Sub Command1_Click()
For I= 1 To 4
For J = 0 To I
Print Chr(65 + I);
Next J
Print
Next I
End Sub
(A)
A.BB
CCC
DDDD
EEEEE
B. A
BB
CCC
DDDD
C. B
CC
DDD
EEEE
D.AA
BBB
CCCC
DDDDD
46.在窗体上画两个名称分别为Label1 和Label2 的标签，然后编写如下事件过程Private Sub
Form_Click()
x= -5:s= -5
Select Case s
Case Is > 0
y=x+1
Case Is >= 0
y=x+2
Case Else
y=x+3
End Select
Label 1.Caption = x Label2.Caption = y
End Sub
Label1 和Label2 中显示的内容分别是(A)
A.-5 和-2
B.-5 和-4
C.-5 和-3
D.-5 和-5
33. 下列VB 程序语句正确的是(D).
A.If A > B Then T=A: A=B: B=T
B. If A > B Then T=A; A=B; B=T
C. If A>=B Then T=A A=B B=T
D. If A>=B Then T=A: A=B: B=T
47.下列程序段执行后输出的结果是(C)
n=10
For k=n To 1
x = k A2
Next k
Print x
A.-2
B.-1
C.1
D.0
48 下列程序段执行后输出的结果是(A)
i=0
For k=10 To 19 Step 3
i=i+1
Next k
Print i
A. 4
B. 5
C. 3
D. 6
49 下列程序段执行后输出的结果是(B) x=int (Rnd+4)
Slect Case x
Case 5
Print "优秀"K
Case 4
Print "良好"
Case 3
Print "及格"
Case Else
Print "不及格"
End Select
A. 优秀
B. 良好
C. 及格
D. 不及格
50.在窗体上画一个命令按钮(其Name 属性为Command1) ，然后编写如下代码：Option
Base 1
Private Sub Command1_Click()
Dim a
a = Array(1, 2, 3, 4)
j=1
For i = 4 To 1 Step -1 s = s + a(i)*j j =j * 10
Next i
Print s
End Sub
(D)
A.4321
B.12
C.34
D.1234
51.定窗体标题条显示内容的属性是(C)
A.Text
C.Caption
D.BackStyle
52．要求从文本框中输入密码时在文本框中只显示* 号，则应用在此文本框的属性窗口中设置( A )
A ．Passwordchar 属性值为* B. Caption 属性值为*
C. PasswordChar属性值为真
D. Text属性值为*
53决定窗体有无控制菜单的属性是(A)
A.ControlBox
B.MinButton
C.Enabled
D.MaxButton
54使文本框获得焦点的方法是(C)
A.Change
B.GotFocus
C.SetFocus
D.LostFocus'
55下列可以把当前目录下的图形文件pic1.jpg 装入图片框Picture1 中的语句为 ( C)
A.Picture = "pic1.jpg"
B.Picture.Handle = "pic1 .jpg"
C.Picture 1.Picture = LoadPicture("pic 1.jpg")
D.Picture = LoadPicture("pic 1.jpg")
56决定标签内显示内容的属性是(D)
A.Text
C.Alignment
D.Caption
57假定在图片框Picture1 中装入了一个图形，为了清除该图形(注意，清除图形，而不
是删除图片框)，应采用的正确方法是(B)
A.选择图片框，然后按Del 键
B.执行语句Picture1.picture=LoadPicture("")
C .执行语句Picture1.picture=""
D.选择图片框，在属性窗口中选择Picture属性条，然后按回车键
58.比较图片框(PictureBox)和图像框(Image)的使用，正确的描述是( A )。

A .当图片框(PictureBox )的AutoSize自属性为False时，只在装入图元文件 (*.wmf ) 时，图形才能自动调整大小以适应图片框的尺寸
B .当图像框(Image)的Stretch属性为True时，图像框会自动改变大小以适应图形的大小，使图形充满图像框
C．两类控件都可以设置AutoSize 属性，以保证装入的图形可以自动改变大小
D．两类控件都可以设置Stretch 属性，使得图形根据物件的实际大小进行拉伸调整，保证显示图形的所有部分
59 删除列表框中指定的项目所使用的方法为(D)
A.Move
B.Remove
C.Clear
D.RemoveItem
60.若要向列表框添加列表项，可使用的方法是( A )。

A 、AddItem
B 、Remove C、Clear D 、Add
61 当拖动滚动条中的滚动块时，将触发的滚动条的事件是(C)
A.Move
B.Change
C.Scoll
D.SetFocus
62．滚动条控件的LargeChange 属性所设置的是( B )
A ．滚动条中滚动块的最大移动范围
B ．单击滚动条和滚动箭头之间的区域时，滚动条控件value 属性值的改变量
C •滚动条中滚动块的最大移动位置
D ．滚动条控件无该属性
63 用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是(C)
A.List
B.ListIndex
C.Text
D.ListCount
64.设置一个单选按钮(OptionButton )所代表选项的选中状态，应当在属性窗口中改变的属性是( D )
A . Caption
B . Name C. Text D. Value
65.在窗体(Name属性为Forml)上画两个文本框(其Name属性分别为Textl和Text2)和一个命令
按钮(Name属性为Commandl)，然后编写如下两个事件过程：
Private Sub Command1_Click() a = Text1.Text + Text2.Text Print a
End Sub
Private Sub Form_Load()
Text 1.Text = ""
Text2.Text = ""
End Sub
(Text1)和第二个文本框(Text2)中分别输入123和321，然后单击命令按钮，则输出结果为(C)
A.444
B.321123
C.123321
D.132231
66.当利用Line 方法进行添加图形时，以下正确的说法是( B )
A. 有7种不同的线型，而且不管线宽多少都可以绘制虚线/点划线/点线
B . 可利用Line 方法添加矩形，如Line(300,300)-(2000,2000),BF
C.使用Line(100,100)-(1000,1200) 和Line(100,100)-Step(900,1100) 将绘制两条相同位置的直线
D . 可利用Line 方法添加矩形，如Line(300,300)-(2300,2300),B+F
67.下面不是VB 的文件类控件是(B)
A 、DriveListBox 控件
B 、InputBox
C、FileListBox 控件
D、DirListBox 控件
68.在Visual Basic 应用程序中(B)
A .过程的定义可以嵌套，但过程的调用不能嵌套
B .过程的定义不可以嵌套，但过程的调用可以嵌套
C .过程的定义和过程的调用均可以嵌套
D.过程的定义和过程的调用均不能嵌套
69要求以只读方式打开顺序文件“c:\ FileUser.txt ”，以便进行读取数据的操作。

以下
能够正确打开文件的命令是（A）
A.Ope n"c: \ FileUser. txt" for In put Access Read As #1
B.Ope n"c: \ FileUser. txt" for Output Access Read As #1
C.Open"c:\FileUser.txt" for Input As #1
D.Open"c: \ FileUser. txt" for Output As#1_
70使用Do while 循环从打开的文件中逐条读取记录。

以下能够正确读取数据的程序段是（C）
A.Open "c:\File1.txt" For Input As #1
Do While Not EOF（）
Line Input #1, strLine
Loop
B.Open "c:\File1.txt" For Input As #1
Do While Not EOF（#1）
Line Input #1, strLine
J J
Loop
C.FileNo=FreeFile
Open FileNo For Input As #1
Do While Not EOF（FileNo）
Line Input #1, strLine
J J
Loop
D.FileNo=FreeFile
Open FileNo For Input As #1
Do While Not EOF（# FileNo）
Line Input #1, strLine
J J
Loop
1 ．属性窗口大体上可分为 4 个部分，这 4 个部分分别是（对象框）、（属性显示方式）、（属性列表）和（属性解释）。

2．Visual Basic 中的工具栏有两种形式，分别为（固定）形式和（浮动）形式。

3．VB 集成开发环境中，它的工作状态显示在（标题栏）的方括号内。

4．VB6 的主窗口由标题栏、菜单栏和（工具栏）组成。

5．在VB6 集成开发环境中，可以编辑程序代码，但不能修改用户界面的工作状态是（中断模式）。

6．在用Visual Basic 开发应用程序时，一般需要（新建工程）、（设计用户界面）、（设
置对象属性）、（编写代码）和（运行调试并保存工程）等几步。

7．控件和窗体的Name 属性只能通过（属性窗口）设置，不能在（运行）期间设置。

8．代码窗口分为左右两栏，左边一栏称为（对象框），右边一栏称为（过程框（过程／事件框））。

9．为了在输入程序时能自动进行语法检查，必须执行（工具）菜单中的（选项）
命令打开（编辑器）对话框，然后选择“编辑器”选项卡中的（自动语法检查）选项。

10．Visual Basic 应用程序通常由三类模块组成，即（窗体模块）、（标准模块）和（类模块）。

11.VB 的数值型数据有（整数类型）、
（实数类型）、（字节类型）。

12.当程序运行后用鼠标双击对象时触发的事件是__DbClick（） _
13.当程序运行后用鼠标单击对象时触发的事件是__Click（） ___ 。

14 当程序运行后Tab 键使一个对象获得焦点时触发的事件是__Gotfocus（）
15 VB6 识别对象靠的是对象的___Name ___________ 属性。

16.执行以下语句后，输出结果是（ABCD ）、
（HIJK ）。

s="ABCDEFGHIJK" v CR>
print left（s , 4） v CR> print right（s ， 4）v CR>
17.执行以下语句后，输出结果是（CDEF）、（11）。

s="ABCDEFGHIJK" vCR>
print mid（s ， 3， 4）v CR>
print len（s） v CR>
18.在Visual Basic 中，字符串常量要用（双引号）括起来，日期／时间型常量要用（#）括起来。

19.为了使标签能自动调整大小以显示全部文本内容，应把标签的（AutoSize ）属
性设置为True。

20.要想在文本框中显示垂直滚动条，必须把（ScrollBars ）属性设置为2，同时还应
把（MultiLine ）属性设置为True。

21.假定有一个文本框，其名称为Textl,为了使该文本框具有焦点，应执行的语句是
（Text1.SetFocus）。

22.假定有一个名为pic2.gif 的图形文件，要在运行期间把该文件装入一个图片框（名称为Picture"，应执行的语句为
Picture1.Picture = LoadPicture（"pic2.gif"））。

23.VB 中若要产生一消息框，可用__MsgBox___ 函数来实现。

24.为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须把该图像框
的（Stretch）属性设置为True。

25.窗体、图片框或图像框中的图形通过对象的（Picture）属性设置
26.VB 的“计时器”控件用于_计时___,时间间隔以___毫秒 ______ 为单位。

27.计时器事件之间的间隔通过（Interval ）属性设置。

28.有时候需要暂时关闭计时器，这可以通过（Enabled）属性来实现。

29.VB 的“滚动条”控件分为两种（水平滚动条）和（垂直滚动条）。

它们都有最小值和最大值。

其取值范围是（小于等于max 且大于等于min）。

30.组合框有 3 种不同的类型，这3种类型是下拉式组合框、简单组合框、下拉式列表框，分别通过把Style 属性设置为0 、1 、 2 来实现。

31.在 3 种不同类型的组合框中，只能选择而不能输入数据的组合框是下拉式列表框
32.逻辑运算的运算符有：___not _____ 、_and_、__or___
33.常用内部函数用于将数值型转换为字符串型的函数是（str（）），用于将ASCII码转化为字符的函数是__ chr（）__ ，用于求字符串长度的函数是__ Len（）__。

34.由Array 函数建立的数组必须是Variant 类型。

35.为了选择多个控件，可以按住（Shift 或Ctrl）键，然后单击每个控件。

36.VB 中通用过程的参数传送有__值传递___和_地址传递___。

37.VB 的ADO 称为（ActiveX 数据对象），它用（Adodc 控件）读取Access 数据库中的数据。

38.在过程定义中出现的变量名叫做（形式参数），而在调用过程时传送给过程的常数、变量、表达式或数组叫做（实际参数）
39.在VE中若要让某对对象获取焦点，则可通过_SetFocus_方法来实现。

40•在模块文件中的声明部分用_Dim_或_Private_定义的变量为模块级变量。

41.For循环中，当步长大于零时，初始值_小于等于—终止值，当步长小于零时，初始
值_大于等于—终止值，不指明步长时，默认步长是__1―
1.框架的作用是什么？如何在框架中建立控件？
1 ）在工具箱中选中要添加到容器中的控件，然后直接在框架上画控件2）复制要添加到框架中的控件，然后选中框架，粘
贴
2.为数组赋值有几种方法？
InputBox 函数赋值、Array 函数赋值
3.选项按钮和复选框有什么区别？
在同一组中，单选按钮只能选择一个，复选框可同时选择其中的多个。

4.什么是关系运算？举例说明。

3〉 5 等
5.Visual Basic
6.0 的MsgBox 函数有什么作用？
MsgBox 函数会在屏幕上显示一个对话框，提示同户进行选择，然后系统根据选择确定其后的操作
6.用Adodc 控件访问数据库，要用到哪个属性？
ConnectString 和RecorderSource
7.VB 的文件系统控件是哪几个?
DriveListBox, DirListBox, FileListBox
8.VB的数据访问对象有哪几种？其中DAO和ADO分别用什么控件来访问数据库
（1）数据访问对象（DAO）（data控件访问数据库）
（2）远程数据对象（RDO）。

（3）ActiveX 数据访问对象（ADO 控件访问数据库）
9.如何在记录集内移动、插入、删除、更新操作？
MoveFirst ,MoveLast ,MovePrevious,
MoveNext 。

插入：AddNew ；删除：delete
Update
1．以下程序段的功能是什么。

x= 8.6
y = Int（x + 0.5）
Print y
x 四舍五入后取整
2.下面一段程序有什么作用？
Private Sub Command1_Click（）
t = 1 For i = 3 To 10 t = t * i Next i Print Print "3*4*5*6*7*8*9*10="; t End Sub
3 乘到10 的积。

3.下面程序有什么作用。

Dim n As Integer Dim t As Double Private Sub Form_Click() t = 1 n
= InputBox(" 输入N 的值：") For i = 1 To n t = t * i Next i Print t End Sub n!
4.下列程序的功能是什么？Dim n, n1, n2, n3, n4 As Integer Dim A, T As Single
Private Sub Command1_Click()
n = 0: n1 = 0: n2 = 0: n3 = 0: n4 = 0: A = 0: T = 0 msg = "输入分数(-1 结束)" msgtitle =
" 输入数据" start:
x = InputBox(msg, msgtitle) If x < 0 Or x > 100 Then GoTo finish Else T = T + x n = n + 1
If x < 60 Then n1 = n1 + 1 ElseIf x < 75 Then n2 = n2 + 1 ElseIf x < 90 Then n3 = n3 + 1
Else n4 = n4 + 1 End If A = T / n
End If
GoTo start
finish:
End Sub
Private Sub Command2_Click()
Text1.Text = Str(n4)
Text2.Text = Str(n3)
Text3.Text = Str(n2)
Text4.Text = Str(n1)
Text5.Text = Str(A)
End Sub
Private Sub Command3_Click()
End
End Sub
1.程序运行后，单击命令按钮，在输入对话框中输入234，运行结果是什么？
Function fun(By Val num As Long) As Long
Dim k As Long
k=1
num= Abs(num)
Do While num
k = k *(num Mod 10)
num= num\ 10
Loop fun = k
End Function
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n = InputBox(" 请输入一个数")
n = CLng(n) r = fun(n) Print r
End Sub
24 。

2.在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，输出结果是什么？
Private Sub Command1_Click()
a=0
For i = 1 To 2
For j = 1 To 4
If j Mod 2 <> 0 Then
a=a+1
End If
a=a+1
Next j
Next i
Print a
End Sub
12。

3.在窗体上画一个命令按钮(其Name 属性为Command1) ，然后编写如下代码，程序运行后，单击命令按钮，输出结果是什么？
Option Base 1
Private Sub Command1_Click()
Dim a
a = Array(1, 2, 3, 4)
j=1
For i = 4 To 1 Step -1 s = s + a(i)*j j =j * 10
Next i
Print s
End Sub
1234
4.在窗体上画一个命令按钮(其Name 属性为Command1) ，然后编写如下代码，程序运行后，单击命令按钮，输出结果是什么？
Private Sub Command1_Click()
Dim a(5, 5)
For i = 1 To 3
For j = 1 To 4
a(i, j) = i * j
Next j
Next i
For n= 1 To 2
For M = 1 To 3
Print a(M, n);
Next M
Next n
End Sub 1 2 3 2 4 6
5.假定有下面的过程：
Function Func(a As Integer, b As Integer) As Integer Static m As Integer, i As Integer m=0 i=2 i=i+m+1
m=i+a+b
Func=m End Function
然后编写如下事件过程，程序运行后，单击命令按钮，输出结果是什么？
Private Sub Command1_Click()
Dim k As Integer,m As Integer
Dim p As Integer
k=4
m=1 p=Func(k,m)
Print p;
p = Func(k, m)
Print p
End Sub
8 8
1.在窗体上的文本框中输入字符串。

当单击“保存” 按钮时，首先检查文本框中是否有字符串。

如果没有，给出提示；否则，把文本框中的小写字母变成大写字母后，将整个字符串保存到一个名为FileString.txt 的文件中。

Private Sub cmdSave_Click()
If txtString.Text = "" Then MsgBox" 请输入字符串！" Exit Sub
End If
strText = UCase(txtString. Text)
Ope n"d:、FileStri ng.txt" For Output As #1
Print #1, strText
Close
MsgBox" 保存完毕！"
End Sub
2.设有一个学生基本情况记录文件Student.txt,其中保存学生的学号、姓名、性别、年龄、
专业等信息。

编写一个程序，将Student.txt 文件中学生的学号和姓名保存到另一个新建的文件中。

窗体上有一个"保存”(控件名称为cmdSave)按钮。

在工程文件的标准模块中声明两
自定义类型：
Type Student
Number As Integer
Name As String * 6
Sex As String * 1
Age As Integer
Major As String * 10
End Type
Type student 1
Number1 As Integer
Name 1 As String * 6
End Type
Private Sub cmdSave_Cliek()
Dim s1 As Student
Open "d:\Student.txt" For Random As #1 Len = Len(s1)
Open "d:\Student1.txt" For Random As #2 Len = Len(s2)
Do While Not EOF(1)
Get#1,, s1 s2.Number1 = s 1.Number 1 =
Put #2,, s2
Loop
Close
End Sub
3.磁盘上有File1.txt 和File2.txt 两个文件。

要求将两个文件中的数据读出，并保存到一个
新的文件中。

窗体上有"保存数据” (控件名称为cmdSave )和"读取数据”(控件名称为cmdRead)两个命令按钮。

Private strAll As String
Private Sub cmdSave_Click()
Ope n "d: \ FileNew.txt" For Output As #1
Print #1, strAll
Close
End Sub
Private Sub cmdRead_Click()
strAll = ""
Open "d:\File1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, strFile strAll = strAll + strFile + vbCrLf
Loop
Close #1
Open "d:\File2.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, strFile
strAll = strAll + strFile + vbCrLf
Loop
Close #1
End Sub。