1、完成实验A（P.259）中的第1、2、3、5题。
2、参照第2章例2.6，建立一个类似记事本的应用程序，提供：(1) 剪切、复制和粘贴的编辑操作；(2) 字体大小的格式设置；此外，再对记事本的应用程序的功能进行一点扩允。
1．完成在实验B 顺序结构程序。（P.262）中的第1、2 、4 、5.、6题
2．完成实验C 选择结构 （P.266）中的第1、2、4、5题
3．用上面实验B的第二题和实验C的第二题完成下面的实验报告。
1、完成实验D循环结构（P.268）中的第1、3、4、6题，其中第1题利用单循环结构显示如图D.1(P.268)所示的界面,而后将图形改为倒三角形。
2、选做实验E数组（P.271）中的第1、2、3题中的任意二题
3、以实验D中的第4题和实验E中的做完的某一题完成下面的实验报告。
A．1
Private Sub Command1_Click()
Label3 = Text1
End Sub
A．2
Private Sub Form_Load()
Timer1.Interval = 0
End Sub
Private Sub Command1_Click() '自动
Timer1.Interval = 200
End Sub
Private Sub Command2_Click() '手动
Timer1.Interval = 0
Call MyMove
End Sub
Private Sub Timer1_Timer()
Call MyMove
End Sub
Sub MyMove()
Label1.Move Label1.Left - 50
If Label1.Left < 0 Then Label1.Left = Form1.Width
End Sub
A．3
Private Sub Form_Click()
Text1 = Val(Text1) + 1
- 1 - 程序设计题电子版
1.（事件）单击事件。
（响应）生成一个一维数组（10个数组元素依次为15、32、72、43、96、18、3、177、88、17），写程序求出这个数组的最大值、最小值和平均值，并输出在窗体上。将最大值、最小值、平均值分别存入变量Max、Min、Aver中。
答案：
Dim a(9) As Integer
Dim i, s As Integer
a(0) = 15
a(1) = 32
a(2) = 72
a(3) = 43
a(4) = 96
a(5) = 18
a(6) = 3
a(7) = 177
a(8) = 88
a(9) = 17
Max = a(0)
Min = a(0)
s = 0
For i = 0 To 9
If a(i) > Max Then
Max = a(i)
End If
If a(i) < Min Then
Min = a(i)
End If
s = s + a(i)
Next
aver = Int(s / 10)
Print (CStr(Max))
Print (CStr(Min))
Print (CStr(aver))
2.（事件）单击按钮“绘制”。
（响应）利用“@”字符打印如下图字母“T”.要求：字母“T”的横线和竖线分别用一维For循环语句打印，使用Tab（）函数定位。（其中横线有19个“@”字符，竖线有10个“@”字符）。
答案： For i = 1 To 19
Print "@";
Next i
For i = 1 To 10
Print Tab(10); "@"
Next i
3.（事件）单击窗体
（响应）求200～300之间既能被3整除又能被7整除的数并打印。并求出所有数之和存入变量SUM中并打印。
答案：
Dim i As Integer
For i = 201 To 300
If ((i Mod 3) = 0 And (i Mod 7) = 0) Then
VB程序设计实例(全文)
在初中《信息技术》（福建教育出版社、《信息技术》教材编写组编著）八年级上册中，其中第二单元“VB程序设计基础”介绍了VB的开发环境和有关基础知识，初步体验了顺序、分支和循环结构的程序设计，让学生深刻体会到了可视化程序设计的一般过程。下面介绍本人在平时教学过程中对VB程序设计的一些体会和做法。
一、对教材中的“歌手大奖赛评分”程序进行拓展引伸，设计出比较智能多用途的程序
1.程序界面设计。新建一个标准exe工程，添加如表1所示的控件，并设置控件相应的属性。（见附图1）
表1“时钟的时针和分针重合的问题”程序用到的控件及其属性说明
2.算法分析。①请输入这次大奖赛的满分分数（如10分或100分等等）以及评委的人数，赋值给系统的公共变量public_min和public_i，这里要求事先定义好这两个系统的公共变量。
系统公共变量的定义方法：单击“工程”菜单，选择“添加模块”命令，在“Module1”框中输入Publicpublic_minAsSingle，public_iAsSingle即可。
②输入各评委的评分并计算。如果输入的数值超过事先输入的满分的值，系统则提示：“出错啦，分数超出范围。”在这里，用到了For…Next循环语句和输入函数InputBox（提示信息，标题，默认值，位置）和输出函数MsgBox“”。 ③输出：去掉一个最高分和一个最低分后其余分数的平均分。
3.编写事件过程。在“大奖赛评分系统”程序中，用户单击“请先输入满分和评委人数”按钮后，开始读入满分分数和评委人数。
二、下面针对教材的第103页和第107页的“创新活动”中的问题，给出比较详细的程序编写过程
（一）教材第103页“创新活动”的问题。在12小时制的时间中，在钟表正常走动的时候，有多少个时针和分针重合的位置？它们分别表示什么时刻（精确到秒即可）？
请编写一个界面如附图2所示的“时钟的时针和分针重合的问题”程序，单击“开始计算”按钮，程序计算并显示出答案，单击“退出”按钮，结束程序运行。
11-12-2《程序设计基础（VB）》上半学期练习题（专科）
1．在窗体上建立命令按钮“command1”（显示）和“command2”（退出）。运行时，
“command2”按钮始终显示“退出”；单击“显示”按钮后窗体上显示“欢迎使用VB!”，同时命令按钮1的标题改为“清除”，再单击“清除”按钮后，界面恢复窗体装入时的初始状态。
Private Sub Command1_Click()
If Command1.Caption = "显示" Then
Print "欢迎使用VB!"
Command1.Caption = "清除"
Else
Cls
Command1.Caption = "显示"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
2.用InputBox函数输入一个学生成绩，评定其等级。方法是：90～100分为"优秀"，80～89分为"良好"，70～79分为"中等"，60～69分为"及格"，60分以下为"不及格"。
Private Sub Command1_Click()
Dim score！
score = Val(Text1.Text)
Select Case score
Case 90 To 100
Text2.Text = “优秀” „不同结果每个条件及时输出
Case 80 To 89
Text2.Text = "良好"
Case 70 To 79
Text2.Text = “中等”
Case 60 To 69
Text2.Text = "及格"
Case 0 To 59
Text2.Text = “不合格"
