发布时间 : 星期日 文章vb程序阅读题与填空题更新完毕开始阅读
End Sub
Private Function Fun1(Num As Long) As Long Dim s As Long s = 1
Num = Abs(Num)
Do While【1 】 s = s * (Num Mod 10)
Num = 【2 】 Loop
Fun1 = 【3 】 End Function 三、程序阅读题
1．在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程，程序运行后，在文本框中显示的内容是什么？在图片框中显示的内容是什么？ Private Sub Form_Load()
Text1.Text=\计算机\End Sub
Private Sub Text1_Change()
Picture1.Print \文化基础\End Sub
2．窗体上有一按钮和一个列表框，执行下列程序，写出运行结果。 Private Sub Command1_Click()
List1.AddItem \List1.AddItem \List1.AddItem \Print List1.List(2)
End Sub 四、程序填空题
1．在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，程序运行后，Command1为禁用（灰色）。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在空白出添入适当的内容，将程序补充完整。 Private Sub Form_Load()
Command1.Enabled=False End Sub
Private Sub Text1【1 】 Command1.Enabled=True End Sub
2．下面的程序运行时，用户在组合框中输入数据，当按回车键时，如果组合框列表中没
21
有与输入内容相同的选项，则将输入内容添加到列表中。阅读程序并填空。 Private Sub Combo1_KeyPress(KeyAscii As Integer) Dim addtext As Boolean If KeyAscii = 13 Then addtext = False
For i = 【1 】 If Combo1.Text = Combo1.List(i) Then addtext = True End If Next
If Not addtext Then 【2 】t Combo1.Text = \ End If End Sub
3．在窗体上画一个名称为label1和标签和一个名称为List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label1中显示所选中的项目。请在空白出填入适当的内容，将程序补充完整。 Private Sub Form_Load()
List1.AddItem ”北京” List1.AddItem ”上海” List1.AddItem ”河北”
End Sub
Private Sub【1 】
Label1.Caption=【2 】 End Sub
4．在窗体中建立一个文本框，名字为txtVB，用来输入和显示文字。再建立两个框架，名字为”字体”和”大小”，然后在”字体”框架中建立两个单选钮，名字分别为”optSong”和”optHi”；在”大小”框架中建立两个单选钮，名字分别为”optEight”和”optTwelve”。在窗体中还有一个名为”CmdOK”的按钮，当选中相应字体和大小后，按确定按钮，文本框中的内容将以指定的格式显示。运行时的界面如图5-5所示。请填程序使它完整。 Private Sub CmdOK_Click()
If 【1 】Then Else
txtVB.FontName=\黑体\End If
If 【2 】Then
txtVB.FontSize=8
22
TxtVB.FontName=\宋体\
Else
txtVB.FontSize=12 End If
End Sub
5．编写一个对列表框进行项目添加、修改和删除操作的应用程序。列表框(名为lstBoods)中的选项在Form_Load事件中加载，添加按钮(cmdAdd)的功能是将文本框(txtItem)中的内容添加到列表框中，删除按钮(cmdDelete)的功能是删除列表框中选定的项目。如果要修改列表框，可先选定选项，然后按修改按钮(cmdModify)，所选的项目显示在文本框(txtItem)中，当在文本框中修改完之后，按确定修改按钮(cmdModify_OK)将更新列表框。初始时，修改确定按钮是不可使用的。程序代码如下，请填空。 Private Sub CmdAdd_Click()
LstBooks. 【1 】Txtitem Txtitem=\
End Sub
Private Sub CmdDelete_Click()
LstBooks.RemoveItem【2 】 End Sub
Private Sub CmdModify_Click()
Txtitem=LstBooks.Text Txtitem.SetFocus CmdAdd.Enabled=False CmdDelete.Enabled=False CmdModify.Enabled=False
Cmdmodify_OK.Enabled=【3 】
End Sub
Private Sub Cmdmodify_OK_Click()
LstBooks.List(【4 】)=Txtitem Cmdmodify_OK.Enabled=False CmdAdd.Enabled=True CmdDelete.Enabled=True CmdModify.Enabled=True Txtitem=\
End Sub
Private Sub Form_Load()
LstBooks.AddItem\计算机文化基础\LstBooks.AddItem\程序设计教程\LstBooks.AddItem\操作系统\LstBooks.AddItem\多媒体技术\
23
LstBooks.AddItem\网络技术基础\
End Sub
6．以下是一个程序实例，该实例显示一系列的角度逐渐变化的地球图片(图片名为earth0.jpg～earth7.jpg)，共显示出100幅图片，从而形成地球转动动画。用VB设计一个窗体，窗体上放置一个图片框，名为Image1(Strech=.T.)，给窗体加一个定时器控件，控件名为Timer1(Interval=25,Enabled=.t.)，该项目存放在A:\\exam下，图片文件存放在A:\\EXAM1\\PIC下面。请填空。
Dim t1 As Integer
t1=0 't1纪录时钟事件发生的次数 Private Sub Form_Click() End Sub
Private Sub Timer1_Timer() 【1 】
If t1<100 Then '图片共显示100幅
current=t1 Mod 8 'current表示当前应该显示那张图片
FileName$=\图片文件名(绝对路径)
Image1.Picture=【2 】'显示图片 Else
End '程序结束 End If
End Sub
设计界面
运行界面
24