Vb编写程序题型
一、基本操作题
1、新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：
(1)在属性窗口中设置命令按钮上的文字为“绿”，标签上文字为“这里是一个标签”（5分）。
(2)编写事件过程，运行程序后，单击命令按钮，窗体的背景改为绿（5分）。
(3)编写事件过程，运行程序后，单击窗体，标签上显示“你单击了窗体”（5分）。
答案：
Private Sub Command1_Click()     
Form1.BackColor = vbGreen
End Sub
qq加密相册
Private Sub Form_Click()
Label1.Caption = "你单击了窗体"
End Sub
2、新建工程，在窗体上创建一个命令按钮Command1和一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：
(1)在属性窗口中设置命令按钮上的文字为“改变大小”，标签上文字为“改变颜”（5分）。
(2)编写事件过程，运行程序后，单击命令按钮，适当增加窗体的高度（5分）。
(3)编写事件过程，运行程序后，单击标签，将窗体的背景改为绿（5分）。
答案：
Private Sub Command1_Click()
Form1.Height = Form1.Height + 200
End Sub
Private Sub Label1_Click()
Form1.BackColor = vbGreen
End Sub
3、新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：
(1)在属性窗口中设置两个命令按钮上的文字分别为“隐藏”和“显示”，标签上文字为“可以隐藏的控件”（5分）。
(2)编写事件过程，运行程序后，单击“隐藏”按钮，标签不可见，单击“显示”按钮，标签重新可见（5分）。
(3)编写事件过程，运行程序后，单击窗体，窗体的标题栏上显示“隐藏/显示控件”（5分）。
答案：
Private Sub Command1_Click()
Label1.Visible = False
End Sub
Private Sub Command2_Click()
Label1.Visible = True
End Sub
Private Sub Form_Click()
Form1.Caption = "隐藏/显示控件"
End Sub
4、新建工程，在窗体上创建一个命令按钮Command1、一个标签和三个单选钮OptionButton1～3。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：
(1)在属性窗口中设置命令按钮上的文字为“关闭”，标签上的文字为“字体颜”，三个单选钮上的文字分别为“红”、“绿”、“蓝”（5分）。
(2)编写事件过程，运行程序后，单击命令按钮可关闭窗体（5分）。
(3)编写事件过程，运行程序后，分别单击三个单选钮，可改变标签文字为红、绿或蓝（5分）
答案：
Private Sub Command1_Click()
Form1.Hide
End Sub
Private Sub Option1_Click
()
Label1.ForeColor = vbRed
End Sub
Private Sub Option2_Click()
Label1.ForeColor = vbGreen
End Sub
Private Sub Option3_Click()
Label1.ForeColor = vbBlue
End Sub
5、新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：
(1)在属性窗口中设置命令按钮上的文字为“窗体标题”，标签上文字为“窗体颜”（5分）。
(2)编写事件过程，运行程序后，单击命令按钮，窗体的标题栏上显示“Visual Basic考试”（5分）。
(3)编写事件过程，运行程序后，单击标签，窗体的背景改为红（5分）。
答案：
Private Sub Command1_Click()
Form1.Caption = "Visual Basic考试"
End Sub
Private Sub Label1_Click()
Form1.BackColor = vbRed
End Sub
6、新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：
(1)在属性窗口中设置两个命令按钮上的文字分别为“改变颜”和“改变大小”，标签上文字为“计算机等级考试”，标签可以自动调整大小以显示所有文字（5分）。
(2)编写事件过程，运行程序后，单击“改变颜”按钮，标签的背景改为绿（5分）。
(3)编写事件过程，运行程序后，单击“改变大小”按钮，标签上的文字内容改为“大小已经改变”，文字大小改为30(磅)（5分）。
答案：
Private Sub Command1_Click()
Label1.BackColor = vbGreen
End Sub
Private Sub Command2_Click()
Label1.Caption = "大小已经改变"
Label1.FontSize = 30
End Sub
7、新建工程，在窗体上创建一个命令按钮Command1、一个标签和三个单选钮OptionButton1～3。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：
(1)在属性窗口中设置命令按钮上的文字为“关闭”，标签上的文字为“请选择学历”，三个单选钮上的文字分别为“硕士”、“本科”、“大专”（5分）。
(2)编写事件过程，运行程序后，单击命令按钮可关闭窗体（5分）。
(3)编写事件过程，运行程序后，分别单击三个单选钮，标签上的文字相应改变为“硕士学历”、“本科学历”或“大专学历”（5分）。
答案：
Private Sub Command1_Click()
Form1.Hide
End Sub
Private Sub Option1_Click()
Label1.Caption = "硕士学历"
End Sub
Private Sub Option2_Click()
Label1.Caption = "本科学历"
End Sub
Private Sub Option3_Click()
Label1.Caption = "大专学历"
End Sub
8、新建工程，在窗体上创建一个命令按钮Command1、一个标签和三个单选钮OptionButton1～3。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：
(1)在属性窗口中设
置命令按钮上的文字为“红”，标签上的文字为“字体大小”，三个单选钮上的文字分别为“10”、“14”、“18”（5分）。
(2)编写事件过程，运行程序后，单击命令按钮可将标签文字改变为红（5分）。
(3)编写事件过程，运行程序后，分别单击三个单选钮，可改变标签文字大小为10磅、14磅或18磅（5分）。
答案：
Private Sub Command1_Click()
Label1.ForeColor = vbRed
End Sub
Private Sub Option1_Click()
Label1.FontSize = 10
End Sub
Private Sub Option2_Click()
Label1.FontSize = 14
End Sub
Private Sub Option3_Click()
Label1.FontSize = 18
End Sub
9、新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：
(1)在属性窗口中设置两个命令按钮上的文字分别为“改变颜”和“改变字体”，标签上文字为“计算机等级考试”，标签可以自动调整大小以显示所有文字（5分）。
(2)编写事件过程，运行程序后，单击“改变颜”按钮，标签上的文字内容改为“颜已经改变”，文字颜改为红（5分）。
(3)编写事件过程，运行程序后，单击“改变字体”按钮，标签上的字体改为“黑体”（5分）。
答案：Private Sub Command1_Click()
Label1.ForeColor = vbRed
Label1.Caption = "颜已经改变"
End Sub
Private Sub Command2_Click()
Label1.FontName = "黑体"
End Sub
10、新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：
(1)在属性窗口中设置两个命令按钮上的文字分别为“改变大小”和“改变字体”，标签上文字为“Visual Basic程序设计”，字体为宋体，标签可以自动调整大小以显示所有文字（5分）。
(2)编写事件过程，运行程序后，单击“改变大小”按钮，标签上的文字大小改为28(磅)（5分）。
(3)编写事件过程，运行程序后，单击“改变字体”按钮，标签上的文字字体改为黑体，文字内容改为“这是黑体”（5分）。
答案：
Private Sub Command1_Click()
Label1.FontSize = 28
End Sub
Private Sub Command2_Click()
Label1.FontName = "黑体"
Label1.Caption = "这是黑体"
End Sub
或者(3)编写事件过程，运行程序后，单击“改变字体”按钮，标签上的文字字体改为楷体，文字内容改为“这是楷体”（5分）。（提示：楷体的字体名称为“楷体_GB2312”。）
Private Sub Command2_Click()
Label1.FontName = "楷体_GB2312"
Label1.Caption = "这是楷体"
End Sub
（提示：楷体的字体名称为“楷体_GB2312”。）
11、新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。
窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：
(1)在属性窗口中设置命令按钮上的文字为“显示”，将标签上的文字清除（5分）。
(2)编写事件过程，运行程序后，单击“显示”按钮，标签上显示“你单击了[显示]按钮”（5分）。
(3)编写事件过程，运行程序后，每次单击窗体，命令按钮均向左移动一个按钮位置（5分）。
答案：Private Sub Command1_Click()
Label1.Caption = "你单击了[显示]按钮"
End Sub
Private Sub Form_Click()
Command1.Move Command1.Left - Command1.Width
End Sub
或者(3)编写事件过程，运行程序后，每次单击窗体，命令按钮均向右移动一个按钮位置（5分）。
Private Sub Form_Click()
Command1.Move Command1.Left +Command1.Width
End Sub
或者(3)编写事件过程，运行程序后，每次单击窗体，命令按钮均向上移动一个按钮位置（5分）。
Private Sub Form_Click()
Command1.Move Command1.Left，p-command1.height
End Sub
或者(3)编写事件过程，运行程序后，每次单击窗体，命令按钮均向下移动一个按钮位置（5分）。
Private Sub Form_Click()
Command1.Move Command1.Left，p+command1.height
End Sub
12、新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：
(1)在属性窗口中设置命令按钮上的文字为“清除”，标签上文字为“这里是一个标签”（5分）。
(2)编写事件过程，运行程序后，单击“清除”按钮，清除标签上的文字（5分）。
(3)编写事件过程，运行程序后，每次单击标签，标签均向左移动200(Twip)（5分）
答案：
Private Sub Command1_Click()
Label1.Caption = ""
End Sub怎样开家政公司
Private Sub Label1_Click()
Label1.Move Label1.Left - 200
End Sub
或者(3)编写事件过程，运行程序后，每次单击标签，标签均向右移动200(Twip) Private Sub Label1_Click()
Label1.Move Label1.Left+ 200
End Sub
或者(3)编写事件过程，运行程序后，每次单击标签，标签均向上移动200(Twip)
Private Sub Label1_Click()
Label1.Move Label1.Left，p-200
End Sub
或者(3)编写事件过程，运行程序后，每次单击标签，标签均向下移动200(Twip)
Private Sub Label1_Click()
Label1.Move Label1.Left，p+200
End Sub
二、操作编程题
1、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件（7分）。
编写事件过程并满足以下要求：
(1)单击命令按钮1，产生100个[300,3000]之间的随机整数并显示在列表框1中（9分）。
(2)单击命令按钮2，计算上述数据中能被13和15同时整除的数及其平均值，并分别用列表框2和一个标签1显示结果。（9分）。
（提示：使用数组存储数据）
答案：
enzo lin
Dim a(1 To 100) As Integer
Private Sub Command1_Click()周杰伦歌曲大全
Randomize
For i = 1 To 100
a(i) = Int(2701 * Rnd() + 300)
List1.AddItem a(i)
Next i
End Sub
Private Sub Command2_Click()
Sum& = 0: n% = 0  ‘n为统计满足条件的整数的个数
For i = 1 To 100
If a(i) Mod 13 = 0 And a(i) Mod 15 = 0 Then
n = n + 1
List2.AddItem a(i)
Sum = Sum + a(i)
End If
Next i
If n <> 0 Then Label1.Caption = Str(Sum / n)
End Sub
2、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件（7分）。
编写事件过程并满足以下要求：
(1)运行时单击命令按钮1，产生100个[100,200]之间的随机整数并显示在列表框中（9分）。
(2)然后单击命令按钮2，在两个文本框中分别显示上述数据中第10-19个和第50-59个数据的平均值（9分）。
（提示：使用数组存储数据）
答案：
Dim a(1 To 100) As Integer
Private Sub Command1_Click()
Randomize
For i = 1 To 100
a(i) = Int(101 * Rnd() + 100)
List1.AddItem a(i)
Next i
End Sub
Private Sub Command2_Click()
sum1& = 0: sum2& = 0
For i = 10 To 19
sum1 = sum1 + a(i)
Next i
For i = 50 To 59
sum2 = sum2 + a(i)
Next i
Text1.Text = Str(sum1 / 10)
Text2.Text = Str(sum2 / 10)
End Sub
3、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件（7分）。
编写事件过程并满足以下要求：
(1)运行时单击命令按钮1，产生100个[100,200]之间的随机整数并显示在列表框中（9分）。
(2)然后单击命令按钮2，在两个文本框中分别显示上述数据中前10个和后10个数据的平均值（9分）。
（提示：使用数组存储数据）
答案：
Dim a(1 To 100) As Integer
Private Sub Command1_Click()
Randomize
For i = 1 To 100
a(i) = Int(101 * Rnd() + 100)
List1.AddItem a(i)
Next i
End Sub
Private Sub Command2_Click()
sum1& = 0: sum2& = 0
For i = 1 To 10
sum1 = sum1 + a(i)
Next i
For i = 91 To 100
sum2 = sum2 + a(i)
Next i
Text1.Text = Str(sum1 / 10)
Text2.Text = Str(sum2 / 10)
End Sub
4、新建工程，根据题目要求自行设计窗体界面，要求窗体及控件的大小适当、布局合理，命名并保存窗体文件（7分）。
编写事件过程并满足以下要求：
(1)单击命令按钮1，产生100个不大于300的随机整数并显示在列表框1中（9分）。
(2)单击命令按钮2，在列表框2中显示上述随机整数中前20个偶数（9分）。
（提示：使用数组存储数据）
答案：
Dim a(1 To 100) As Integer
Private Sub Command1_Click()
Randomize
For i = 1 To 100
a(i) = Int(301 * Rnd())
List1.AddItem a(i)
Next i
End Sub
Private Sub Command2_Click()
二级VBSum& = 0: n% = 1
应采儿For i = 1 To 100
If a(i