1．退出Visual Basic 的快捷键是______。

A.Ctrl+Q B.Shift+QC.Alt+Q2．窗体设计器是用于设计______。

A．应用程序的界面C．应用程序的代码D. Ctrl+Alt+Q B. 对象的属性D. 窗体的代码3．启动Visual Basic 后,VB为用户建立的第一个窗体是______。

A．Form1 B.FormC．窗体1 D. 窗体4．启动Visual Basic 后,VB为用户新建立的工程的名字是______。

A．窗体1 B. 工程1C．窗体 D. 工程5．工程资源管理器窗口包含的文件类型有______种。

A．1 B.2C．3 D. 46．如果VB环境中缺少某个窗口，一般应从主菜单______的下拉菜单中找到相应的激活命令。

A．编辑C．调试B. 文件D. 视图7．能够通过标准工具栏打开的窗口是______。

A．代码窗口C．属性窗口8．窗体文件的扩展名______。

B. 设计器窗口D. 窗体布局窗口A．.bas B. vbpC．.exe9．工程文件的扩展名______。

A．.com D. frm B. vbpC．.exe D. bas 10．Visual Basic的编程机制是______。

A．面向过程C．事件驱动B. 面向对象D. 可视化（三）练习题使用VB建立一个应用软件的全过程有哪些步骤？。

1．具体过程如下（1）在窗体上建立用户窗口（界面）对象。

（2）分别对对象设置属性。

（3）分别对对象事件的过程编程且完成代码输入。

（4）运行程序和调试程序。

（5）保存程序。

1．2．保存VB文件，至少要保存几个文件？应先保存什么文件？2．至少保存2个文件，先保存窗体文件，后保存工程文件。

工程文件，窗体文件，标准模块文件，类模块文件的文件名的扩展名分别是什么？3．.vbp,.frm,..bas, .3．用代码对窗体中的控件设置属性值，这些代码应该放在什么事件中？．应该放在窗体装入（Form_Load）事件中4．运行程序有几种方法？各是什么？三种：方法一是执行工具栏中的启动按钮；方法二是选取菜单中的“运行/启动”命令；方法三是直接按F5 键。

5．从代码窗口返回到设计窗体窗口（VB 集成开发环境）有几种方法？至少5种方法：点击窗体窗口；选择菜单栏的view\object; shift+F7; 点击资源管理器中的窗体按钮；单击工程资源管理器中的窗体名称（如：form1）。

7．输入代码忘记属性值时怎么办？在代码窗口输入代码时，控件的名称及圆点输入后，系统自动出现属性及方法的下拉列表，可以帮助使用者快速输入。

8．在代码窗口输入代码时，输入控件的名称及圆点后，出现下拉列表后，如何输入方法或属性？输入方法或者属性关键字的首字母进行初选，再用鼠标或者光标键细选，然后双击鼠标左键或者单击空格键。

9．窗体、标签、命令按钮、文本框的默认属性分别是什么？标签、命令按钮、文本框、图形图像框的默认属性分别为：caption、caption、text和picture。

10．在输入代码时，如何从属性列表和方法列表中快速输入属性及方法？可以先输入属性或方法的首字母，然后找到需要的属性及方法并选择，用鼠标双击或击空格键即可完成输入。

第三章VB 语言基础（三）练习题1. VB定义了哪几种数据类型？变量有哪几种数据类型？常量有哪几种数据类型？VB6.0定义了13种数据类型，分别是整数、长整数、单精度浮点型、双精度浮点型、货币型、字节型、变长字符串、定长字符串、布尔型、日期型、对象型、可变类型（数值）、可变类型（字符）。

变量的数据类型有：数值型（整型、长整型、单精度浮点型、双精度浮点型、货币型和字节型）、字符串（变长字符串和定长字符串）、布尔型、日期型、对象型、可变数据类型（数值和字符）。

1.常量的数据类型有：字符串常量、数值常量（整型、长整型、单精度浮点型、双精度浮点型、货币型和字节型）、布尔常量、日期常量。

2.如果希望使用变量x来存放数据765432.123456，应该将变量x声明为何种类型？应该使用双精度数Double类型。

3.VB共有几种表达式？根据什么确定表达式的类型？VB有5种类型的表达式，分别是：算术表达式、字符串表达式、关系表达式、布尔表达式和日期表达式，VB根据表达式的运算符来确定表达式的类型。

1.1.在VB中，对于没有赋值的变量，系统默认值是什么？在VB中，当使用声明语句建立一个变量后，系统自动将数值类型的变量赋初值0，变长的字符串被初始化为一个零长度的字符串（""），而定长的字符串则用空格填充。

Variant变量被初始化为Empty。

将布尔型的变量初始化为False。

6.6.VB算术表达式a/(b+c/(d+e/Sqr(f)))的数学表达式是什么？写成的数学表达式为bac cef8.函数Int(Rnd(0)*10)属于哪个范围内的整数？(0,10)9.顺序结构的特点是什么？顺序结构是一种线性结构，在这种结构中，各操作块按照各自某种顺序依次执行。

10.Rem和单撇号有什么不同？Rem命令及命令后的说明文字要求独占一行，Rem和注释文字间一定要加一个空格，如果非要使用Rem命令将注释语句写在某条语句后，则需在Rem前使用英文“:”号；而单撇号没有上述限制11.试述Tab()和Space()两个函数的区别？Tab()函数是绝对定位函数，总是从左边界开始；Space()函数能从当前输出位置起输出若干空格（形成一段空距）12.试述Int()和Fix()两个函数的区别？Fix(x)函数无论对正数或负数都是去掉小数部分，取整数部分（符号不变），如：Fix(9.1)=Fix(9.9)=9，Fix(-9.1)=Fix(-9.9)=-9；而Int(x)函数返回的是不超过x 的最大整数，如：Int(9.1)=Int(9.9)=9，Int(-9.1)=Int(-9.9)=-10。

（5）练习题1．将一个一维数组a(9)中各元素值按行的顺序放入二维数组b(3×3)。

Private Sub Command2_Click()Dim Sum As Single,Count As Integer, Val As SingleSum = 0Count = -1V al = 1W hile Val<>0Val = InputBox("请输入一个数:" & Chr(13)&Chr(10) & "输入0结束程序!")Sum = Sum+ValCount = Count+1WendIf Count <>0ThenPrint "While-Wend 循环:","共输入了"; Count; "个数","平均值为:"; Sum / CountEnd IfEnd Sub2．用随机数函数产生10 个40内的整数，使用选择排序法从小到大排序Private Sub Form_Click()Dim N as Integer,Sum as Single,Term as SingleN = 1Sum = 0DoTerm = 1 /(N*N)Sum = Sum+TermN = N + 2Loop Until Term<0.0001Print "运算结果为:"; SumPrint "最后一项的值为:"; TermEnd Sub3．生成下列二维数组，且按下列格式输出。

3 4 5 67 8 9 1011 12 13 1415 16 17 18Sub Command1_Click()Print Tab(18);"双循环的结果"For i = 1To10Print Tab(25-i);For j = 1To2*i - 1Print "*";Next jPrintNext iEnd Sub4．将一个一维数组反序放置。

例如：a=(67,89,76,98,66),Private 反序放置后，a=(66,98,76,89,67) Private Sub Command1_Click() Dim ACount As Integer, BCount As Integer,Dim CCount As Integer, QCount As IntegerDim CH As String* 1AA ount = 0BB ount = 0CC ount = 0QCount = 0For I = 1To30CH = InputBox("请输入一个字符!"&Chr(13) &Chr(10) + "连续输入三个字符Q,可结束程序","字符统计")CH = UCase(CH)If CH = "Q"Then QCount = QCount +1Else QCount = 0If QCount=3ThenMsgBox "连续输入了三个字符Q,结束输入", , "注意"Exit ForEnd IfSelect Case CHCase "A"ACount = ACount+1Case "B"BCount = BCount+1Case "C"CCount = CCount+1End SelectNext IText1.Text=ACount: Text2.Text = BCount: Text3.Text = CCountEnd Sub5．有一个m×n矩阵，找出最大元素值及其最大元素值所在的行、列位置。

Private Sub Form_Click()Dim N As Integer,I As IntegerN = InputBox("请输入一个数正整数N：")factorial=1Sum = 0For I = 1To Nfactorial= factorial *ISum = Sum+ factorialNext IPrint "小于自然数"; N; "的自然数阶乘之和为：", SumEnd Sub6．将矩阵m(n,n)主对角线和次对角线上的元素置为1，其余元素置为0。

Private Sub Form_Click()a= 0b= 1Print a, b,For i = 1To9a= a + bb= a + bPrint a, b,If i Mod 2=1Then PrintNext iEnd Sub运行结果见图：7．Private Sub Form_Click()For i = 1To9For j = 1To iPrint Tab(11*(j- 1)); j; "*";i;"="; Str(i * j);Next jPrintNext iEnd Sub运行结果如下图所示：7．将一个二维数组a（m,n）按行顺序将每个元素放入一个一维数组b(m×n)。