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框时,要自动选定文本框内开始的5个字符,则需要代码___和_____
_来实现。 三、实训
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程序设计和应用课后作业
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)