j=1
For i=4 to 1 Step -1 s=s+a(i)*j j=j*10 Next i Print s End Sub
运行上面的程序，单击命令按钮，其输出结果是_______。
A) 4321 B) 12 C) 34 D) 1234
(4) 在窗体上添加一个命令按钮（其Name属性为Command1），然后编写如下代码： Option Base 1
Private Sub Command1_Click() Dim a(4,4) For i=1 to 4 For j=1 to 4 a(i,j)=(i-1)*3+j Next j Next i For i=3 to 4 For j=3 to 4 Print a(j,i); Next j Print Next i End Sub
运行上面的程序，单击命令按钮，其输出结果是_______。
A) 6 9 7 10 B) 7 10 8 11 C) 8 11 9 12 D) 9 12
10 13
(5) 若要将窗体卸载，实现的方法为（ ）。
A) Unload B) Load C) Show D) Hide
(6) 窗体的背景颜色由（ ）属性设置。
A) BorderStyle
B) BackColo C) ForeColor D) FillStyle
二、填空题
1、 控件数组的名字由_______属性指定，而数组中的每个元素由_______属性指定。 2、 由Array函数建立的数组的名字必须是_______类型。
3、 在窗体上添加一个命令按钮（其Name属性为Command1），然后编写如下代码： Private Sub Command1_Click() Dim M(10) As Integer For k=1 to 10 M(k)=12-k Next k
x=6
Print M(2+M(x)) End Sub
运行程序后，单击命令按钮，输出结果是_______。
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
程序运行后，单击命令按钮，输出结果是_______。 5、 确定一个窗体大小的属性是_______和_______。 6、 改变一个窗体的标题内容，则应该设置_______属性的值。
三、编程题
1、 2、设有如下两组数据：
A：2，8，7，6，4，28，70，25 B：79，27，32，41，57，66，78，80
编写一个程序，把上面两组数据分别读入两个数组中，然后把两个数组中对应下标元素相加，即2+79，8+27，…，25+80，并把相应的结果放入第3个数组中，最后输出第3 个数组的值。 2、 编写程序，建立并输出一个10×10的矩阵，该矩阵对角线元素为1，其余元素均为0。
作业7
一、选择题
1. 决定窗体标题栏显示内容的属性是：（ ）
(A)text (B)name (C)Caption (D)BackStyle
2. 当窗体最小化时为一个图标，设置这个图标属性是（ ）
(A)MouseIcon (B)Icon (C)Picture (D)MousePointer
3. 为了取消窗体的最大化功能，需要把它的一个属性设置为false，这个属性是（ ）
(A)ControlBox (B)MinButton (C)Enabled (D)MaxButton
4. 为了使命令按钮的Picture、DownPicture、DisablePicture属性生效，必须把它的Style的属性设置为（ ）
(A)0 (B)1 (C)True (D)False 5. 决定窗体有无控制菜单的属性是（ ）
(A)ControlBox (B)MinButton (C)Enabled (D)MaxButton
6. 为了使文本框同时具有水平和垂直滚动条，应先把Multiline属性设置为True，然后再把ScrollBars属
性设置为（ ） (A)0 (B)1 (C)2 (D)3
7. 使文本框获得焦点的方法是（ ）
(A)Change (B)GetFuocus (C)SetFocus (D)LostFocus 8. 决定标签内显示内容的属性是（ ）
(A)Text (B)Name (C)Alignment (D)Caption 9. 删除列表框中指定项目所使用的方法是 （ ）
(A)Move (B)Remove (C)Clear (D)RemoveItem
10. 用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是( )
(A)List (B)ListItem (C)Text (D)ListCount 11. 以下选项中，不属于单选按钮属性的是（ ）。
(A) Enabled B: Caption C: Name D: Min 12. 当滚动条中的滑块位置变化时，将触发其（ ）事件。
(A) LostFocus B: SetFocus C: Change D: GetFocus
二、填空题
1. 假定有一个文本框Text1，为了使该文本框具有焦点，应执行的语句是_______________。
2. 假定当前文件夹下有一个名为Pic1.gif的图形文件，要在运行期间，把该文件装入一个图片框Picture1，
应执行的语句为：______________________________________。 3. 窗体、图片框或图像框中的图形通过对象的_______________属性设置。 4. 计时器事件之间的间隔通过________________属性设置。
5. 在3种不同类型的组合框中，只能选择不能输入的是_________________。
6. 当焦点进入文本Text1框时，要自动选定文本框内开始的５个字符，则需要代码＿＿＿和＿＿＿＿＿
＿来实现。 三、实训
1. 编写程序，用文本框检查口令输入。在窗体上建立1个文本框、1个图片框和3个命令按钮，把文本
框的PasswordChar属性设置为“*”，把3个命令按钮的标题分别设置为“开始”、“检查口令”和“结束”。程序运行后，单击第一个命令按钮，清除文本框中的信息，并把光标移到文本框中，接着在文本框中输入口令，然后单击第2个按钮，检查输入的口令是否正确。如果正确，则在图片框中显
示一个图形，否则显示一个信息框，要求重新输入，此时将调用第1个按钮的Click事件过程，再一次在文本框中输入口令，直到输入正确的口令为止。如果单击“结束”按钮，则结束程序。
2. 编写程序，根据身高计算标准体重，计算公式如下：
男标准体重(kg)＝身高－100 女标准体重(kg)＝身高－105 要求如下：
(1) 单行按钮“男”的Value＝ True
(2) 单击“计算”按钮，根据输入的身高和性别计算相应性别的标准体重，并显示在文本框中； (3) 单击“结束”按钮，结束程序运行。
(4) 以Myfrm2和Myprj2分别将窗体和工程保存在软件的根目录下。
3．编程实现下列界面功能，要求院系与专业之间能够联动，按“确定”后，MsgBox给出学生信息提示，按”取消”，则所有录入数据取消，并把焦点移动到学生姓名的文本框。
作业8
一、选择题
1. 假定在窗体上建立1个通用对话框，其名称为CommonDialog1，用下面的语句可以建立1个对话框：
CommonDialog1.Action=2 ，与该语句等价的语句是（ ） (A)CommonDialog1.ShowOpen (B) CommonDialog1.ShowSave (C)CommonDialog1.ShowColor (D) CommonDialog1.ShowFont
2. 假定在窗体上建立1个通用对话框，其名称为CommonDialog1，然后再添加1个命令按钮，并编写
如下事件过程：
Private Sub Command1_Click()
CommandDialog1.Flags=vbOFNHideReadOnly
CommandDialog1.Filter=”All Files(*.*)|*.*|Text Files(*.txt)|*.txt|Batch Files(*.bat)|*.bat” CommandDialog1.FiterIndex=2 CommandDialog1.ShowOpen msgBox.CommandDialog1.FileName End Sub
程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是（ ） (A) All Files(*.*) (B) Text Files(*.txt)
(C) Batch Files(*.bat) (D) 不确定
3. 在通过对话框的（ ）属性中，可以设置所打开对话框的“默认路径”。
(A) FileName B: InitDir C: Pattern 4. 打开通用对话框的“帮助”对话框的方法是（ ）
(A) ShowOpen B: ShowSave C: ShowHelp D: ShowFont 二、填空题
1. 设置通用对话框Action的属性为__________，可打开“别存为”对话框。 2. 设置通用对话框Action的属性为__________，可打开“颜色”对话框。 3. 设置通用对话框Action的方法为__________，可打开“字体”对话框。
作业9
一、选择题
1. 已知一窗体上命令按钮Command1的Click事件代码如下，则单击Command1后，文本中的背景颜色
为（ ）色。
Private Sub Command1_Click()
Text1.Text =\湖南省\计算机\等级考试\ Text1.ForeColor = vbRed Text1.BackColor = vbGreen Text1.FontBold = True End Sub
(A) 红 B: 绿 C: 白 D: 黄
2. 在VB的图形属性中，（ ）表示绘图的前景颜色。
(A) BackColor B: ForeColor C: FillColor D: PenColor 二、填空题
1. 利用Shape控件可以设置__________种形状的图形。
2. 利用Shape控件的Shape属性可以设置圆图形，取值为__________。 三、实训
1. 利用直线控件，在窗体上画出6条粗细不同的水平实线和7条不同类型的垂直线，要求水平线具有不
同的颜色，宽度逐渐增加。垂直线具有不同的颜色和线型。
2. 利用画圆方法，在窗体上画出一个大圆，并在其中画出4个同心的椭圆。
VB程序设计和应用课后作业
