vb语言题库
一、程序填空 共1题 (共计20分)
第1题 (20.0分) 题号:711 难度:中 第1章
------------------------------------------------------
【程序填空】
------------------------------------------------------
【题目】如图所示，求一元二次方程的根，程序功能如下。
①用text1、text2、text3分别输入一元二次方程的三个常数项。
②判断一元二次方程有不等实根、相等实根、没有实根。
③一元二次方程的根输出到text1和text2。
④当二次项系数(text1)为1、一次项系数(text2)为5、常
数项(text3)为6时，求其根。
【要求】
这个程序不完整，去掉注释改为正确的内容，使其实现上述
功能。不能增加语句，也不能改动程序的其它部分。
------------------------------------------------------
Option Explicit
Private Sub Command1_Click()
Dim a As Double
Dim b As Double
Dim c As Double
Dim x1 As Double
Dim x2 As Double
Dim dt As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
**********SPACE**********
【?】
**********SPACE**********
【?】
Label4.Caption = "有两个不等的实根！"
Text4.Text = (-b + Sqr(dt)) / (2 * a)
Text5.Text = (-b - Sqr(dt)) / (2 * a)
**********SPACE**********
【?】
Label4.Caption = "有两个相等的实根！"
Text4.Text = Str((-b + Sqr(dt)) / (2 * a))
Text5.Text = Str((-b - Sqr(dt)) / (2 * a))
Else
Label4.Caption = "没有实根！"
Text4.Text = ""
Text5.Text = ""
End If
End Sub
答案：
=======(答案1)=======
dt = b ^ 2 - 4 * a * c
=========或=========
dt=b*b-4*a*c
=======(答案2)=======
If dt > 0 Then
=======(答案3)=======
ElseIf dt = 0 Then
二、程序设计 共2题 (共计60分)
第1题 (30.0分) 题号:635 难度:中 第1章
------------------------------------------------------
【程序设计】
------------------------------------------------------
【题目】如图所示，设计一个简单的计算器。
【要求】
①从文本框text1和text2输入两个数。
②单击“＝”按钮计算其结果，并显示在text3中。
------------------------------------------------------
Option Explicit
Private Sub Command1_Click()
*************program**************
***************end****************
End Sub
答案： Dim a As Double
Dim b As Double
a = Text1.Text
b = Text2.Text
Text3.Text = a * b
第2题 (30.0分) 题号:634 难度:中 第1章
------------------------------------------------------
【程序设计】
------------------------------------------------------
【题目】创建一个Visual Basic应用程序，窗体界面上有两个命令按钮和一个
文本框。
【要求】
①程序运行时，单击“开始”命令按钮时在文本框中显示“VB，你好！”。
②单击“结束”命令按钮则在文本框中显示“再见！”。如图所示。
------------------------------------------------------
答案： ------------------------------------------------------
【程序设计】
------------------------------------------------------
【题目】创建一个Visual Basic应用程序，窗体界面上有两个命令按钮和一个
文本框。
【要求】
①程序运行时，单击“开始”命令按钮时在文本框中显示“VB，你好！”。
②单击“结束”命令按钮则在文本框中显示“再见！”。如图所示。
------------------------------------------------------
Option Explicit
Private Sub Command1_Click()
*************program**************
Text1.Text = "VB，你好！"
End Sub
Private Sub Command2_Click()
Text1.Text = "再见！"
**************end*****************
End Sub
三、VB窗体设计 共1题 (共计20分)
第1题 (20.0分) 题号:371 难度:中 第1章
＇------------------------------------------------------
＇【窗体设计】
＇------------------------------------------------------
＇【题目】在名称为Form1的窗体上添加一个名称为Command1的命令
＇ 按钮，一个名称为Label1的标签，如图1所示。
＇【要求】
＇ ①设置窗体标题为“标签属性代码设置”。
＇ ②设置标签的标题为“等级考试”。
＇ ③程序运行时，单击按钮“Command1”标签中字体显示为
＇ 黑体，大小为30，程序运行结果如图2所示。
＇【提示】
＇ 程序中不使用任何变量。
＇------------------------------------------------------
一、程序填空 共1题 (共计20分)
第1题 (20.0分) 题号:712 难度:中 第1章
------------------------------------------------------
【填空题】
------------------------------------------------------
【题目】如图1所示，程序运行单击Command1随机产生30个0－1000的
整数，放入一个数组中，求其最小值并在窗体上输出。
【要求】
这个程序不完整，去掉注释改为正确的内容，使其实现上述
功能，但不能修改程序的其它部分。
------------------------------------------------------
Option Explicit
Private Sub Command1_Click()
Dim arrn(30) As Integer
Dim i As Integer
Dim min As Integer
Randomize
For i = 1 To 30
**********SPACE**********
arrn(i) =【?】1000)
Next i
min = arrn(1)
For i = 2 To 30
**********SPACE**********
If 【?】 Then
**********SPACE**********
【?】
End If
Next i
Print "最小值＝"; min
End Sub
答案：
=======(答案1)=======
Int(Rnd *
=========或=========
Int(Rnd()*
=======(答案2)=======
arrn(i) < min
=========或=========
min>arrn(i)
=======(答案3)=======
min = arrn(i)
二、程序设计 共2题 (共计60分)
第1题 (30.0分) 题号:636 难度:中 第1章
------------------------------------------------------
【程序设计】
------------------------------------------------------
【题目】编写如图所示的程序。分别在Text1和Text2中输入数值，然后再分别
单击“求和”或“求差”按钮，计算两个数的和或差，结果显示在Text3中。当
单击“求和”或“求差”按钮时，标签中的运算符号与按钮对应。
分别在Text1和Text2中输入82和76，并计算和或差输出到Text3中。
------------------------------------------------------
答案： Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a + b
Label1.FontSize = 16
Label1.Caption = "+"
Text3.Text = c
End Sub
Private Sub Command2_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a - b
Label1.FontSize = 16
Label1.Caption = "-"
Text3.Text = c
第2题 (30.0分) 题号:637 难度:中 第1章
------------------------------------------------------
【程序设计】
------------------------------------------------------
【题目】编写如图所示的“简单计时器”程序。单击“开始”按钮
，在“启动时间”文本框中显示计时器开始计时的时间点。单击“停止”
按钮，在“停止时间”文本框中显示计时器结束时的时间点。同时在
“计时时间”文本框中显示每一次计时经过的时间。为保持每一次计时
的完整性，程序运行时只有“开始”按钮可以单击，“停止”按钮不可用。
当单击“开始”按钮开始计时后，“开始”按钮便不可用而“停止”按钮
变为可用。反之，当单击“结束”按钮结束计时后，“停止”按钮便不可
用而“开始”变为可用。
------------------------------------------------------
答案： starttime = Now
Text1.Text = Format(starttime, "hh:mm:ss")
Text2.Text = ""
Text3.Text = ""
Command1.Enabled = False
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
endtime = Now
counttime = starttime - endtime
Text2.Text = Format(endtime, "hh:mm:ss")
Text3.Text = Format(counttime, "hh:mm:ss")
Command1.Enabled = True
Command2.Enabled = False
End Sub
Private Sub Form_Load()
Command1.Enabled = True
Command2.Enabled = False
三、VB窗体设计 共1题 (共计20分)
第1题 (20.0分) 题号:372 难度:中 第1章
＇------------------------------------------------------
＇【窗体设计】
＇------------------------------------------------------
＇【题目】在名称为Form1的窗体上添加一个名称为Label1的标签，如图1所示。
＇【要求】
＇ ①设置Label1标签的BorderStyle属性为1。
＇ ②编写适当的事件过程，程序运行后，单击“窗体”则可使标签移
＇ 到窗体的右上角，如图2所示。
＇【提示】
＇ 程序中不使用任何变量。
一、程序填空 共1题 (共计20分)
第1题 (20.0分) 题号:713 难度:中 第1章
------------------------------------------------------
【填空题】
------------------------------------------------------
【题目】
在窗体上添加一个文本框Text1和一个命令按钮Command1。
程序运行后，单击命令按钮Command1，计算出0－1000范围内不
能被7整除的整数的个数，并用文本框Text1输出。
【要求】
这个程序不完整，去掉注释改为正确的内容，使其实现上述
功能。不能增加语句，也不能改动程序的其它部分。
------------------------------------------------------
Option Explicit
Private Sub Command1_Click()
**********SPACE**********
【?】
End Sub
Private Function fun()
Dim k As Integer
Dim i As Integer
For i = 0 To 1000
**********SPACE**********
【?】
k = k + 1
End If
Next i
**********SPACE**********
【?】
End Function
答案：
=======(答案1)=======
Text1.Text = fun
=======(答案2)=======
If i Mod 7 0 Then
=======(答案3)=======
fun = k
二、程序设计 共2题 (共计60分)
第1题 (30.0分) 题号:638 难度:中 第1章
------------------------------------------------------
【程序设计】
------------------------------------------------------
【题目】界面设计如图所示，编写一个求“倒序数”的程序。
单击“生成”按钮，分别在文本框Text1中随机生成一个2位整数，
在文本框Text2中随机生成一个3位整数，在文本框Text3中随机生成一
个4位整数。然后单击“求倒序数”按钮，分别在文本框Text4、Text5
和Text6中输出倒序数。
------------------------------------------------------
答案： Dim twoinv As Integer
Dim threeinv As Integer
Dim fourinv As Integer
twoinv = Right(twoint, 1) + Left(twoint, 1)
threeinv = Right(threeint, 1) + Mid(threeint, 2, 1) + Left(threeint, 1)
fourinv = Right(fourint, 1) + Mid(fourint, 3, 1) + Mid(fourint, 2, 1) + Left(fourint, 1)
Text4.Text = twoinv
Text5.Text = threeinv
Text6.Text = fourinv
第2题 (30.0分) 题号:639 难度:中 第1章
------------------------------------------------------
【程序设计】
------------------------------------------------------
【题目】编写如图所示的求三角形面积的程序。
【要求】
①单击“计算三角形面积”按钮，利用InputBox输入三角形
三条边a、b、c的值，并通过文本框Text1、Text2、Text3
显示三条边a、b、c的值。
②判断输入的a、b、c是否满足任意两边之和大于第三边，若满
足则计算三角形的面积，并用文本框Text4输出三角形面积。
否则利用MsgBox弹出消息提示框，指出a、b、c三条边不能构
成三角形。
③计算当a=3、b=4、c=5的三角形面积，并让程序运行一次。
【提示】
①三角形三条边的和,s=(a+b+c)/2。
②三角形的面积，area=sqr(s*(s-a)*(s-b)*(s-c))
------------------------------------------------------
答案： Dim a As Double, b As Double, c As Double
Dim s As Double, area As Double, r As Double
a = InputBox("请输入三角形边长a的值", "计算三角形面积程序")
Text1.Text = a
b = InputBox("请输入三角形边长b的值", "计算三角形面积程序")
Text2.Text = b
c = InputBox("请输入三角形边长c的值", "计算三角形面积程序")
Text3.Text = c
If a + b <= c Or a + c <= b Or b + c <= a Then
MsgBox "a、b、c不能够成三角形！"
Else
s = (a + b + c) / 2
area = Sqr(s * (s - a) * (s - b) * (s - c))
MsgBox "三角形的面积是：" & Str(area), , "计算三角形面积公式程序"
Text4.Text = area
End If
三、VB窗体设计 共1题 (共计20分)
第1题 (20.0分) 题号:373 难度:中 第1章
＇------------------------------------------------------
＇【窗体设计】
＇------------------------------------------------------
＇【题目】在名称为Form1的窗体上添加一个名称为HS1的水平滚动条，
＇ 一个名称为C1的命令按钮。
＇【要求】
＇ ①设置HS1滚动条的刻度值范围为1-100。
＇ ②设置按钮C1的标题为“移动滚动框”。
＇ ③编写适当的事件过程，程序运行时，每单击命令按钮一
＇ 次(假定单击次数不多于10次)，滚动框向右移动10个刻度。程
＇ 序运行时的窗体如图所示。
＇【提示】
＇ 程序中不得使用变量，每个事件过程中只能写一条语句。
一、程序填空 共1题 (共计20分)
第1题 (20.0分) 题号:714 难度:中 第1章
------------------------------------------------------
【程序填空】
------------------------------------------------------
【题目】
如图1所示，在窗体上添加一个文本框，两个命令按钮。已知出
租车行驶不超过4公里一律收费10元，超过4公里时分段处理。15公
里(包括15公里)以内每公里收1.2元，15公里以上每公里收1.8元。
单击“输入”按钮，将弹出一个输入对话框如图2所示，接收出租车
行驶的公里数；单击“计算”按钮，则可根据输入的公里数计算应付
的出租车费，并将计算结果显示在文本框Text1中，如图3所示。
【要求】
这个程序不完整，去掉注释改为正确的内容，使其实现上述功能。
不能修改程序的其它部分和控件属性。
------------------------------------------------------
Option Explicit
Dim s As Integer
Private Sub Command1_Click()
**********SPACE**********
s = 【?】("输入里程数(单位：公里)")) s用于存储出租车行驶的公里数
End Sub
Private Sub Command2_Click()
Dim f As Single
If s > 0 And s <= 4 Then
f = 10
**********SPACE**********
【?】
f = 10 + (s - 4) * 1.2
ElseIf s > 15 Then
f = 10 + (15 - 4) * 1.2 + (s - 15) * 1.8
End If
**********SPACE**********
【?】
End Sub
答案：
=======(答案1)=======
Val(InputBox
=========或=========
InputBox
=======(答案2)=======
ElseIf s <= 15
=========或=========
ElseIf 15>=s Then
=======(答案3)=======
Text1.Text = f
=========或=========
Text1 = f
二、程序设计 共2题 (共计60分)
第1题 (30.0分) 题号:641 难度:中 第1章
------------------------------------------------------
【程序设计】
------------------------------------------------------
【题目】用随机函数产生一个两位数的正整数n，从键盘输入猜的数x，
数猜大、小、正确均要用Msgbox提示。
【要求】
①用Do While—Loop循环实现。
②只有三次猜的机会。
------------------------------------------------------
答案： Dim i As Integer, x As Integer, n As Integer
n = Int(Rnd * (99 - 10 + 1) + 10)
i = i + 1
x = Val(InputBox("请输入你要猜的数[10－99]，限输入3次" & "现在是第" & Str(i) & "次"))
Do While n x And i < 3
If n > x Then
MsgBox "太小"
ElseIf n < x Then
MsgBox "太大"
End If
i = i + 1
x = Val(InputBox("请输入你要猜的数[10－99]，限输入3次" & "现在是第" & Str(i) & "次"))
Loop
If n = x Then
MsgBox "正确"
Else
MsgBox "及遗憾了，已经超过3次猜数！"
End If
第2题 (30.0分) 题号:640 难度:中 第1章
------------------------------------------------------
【程序设计】
------------------------------------------------------
【题目】税务部门征收所得税，规定如下(用IF语句实现)。
①当收入为200元以内(含200元)时，免征。
②当收入为200－400元(含400元)时，将超过200元的部分纳税3%。
③当收入为400－5000元(不含5000元)时，将超过400元的部分纳税4%。
④当收入为5000或5000元以上时，将超过5000元的部分纳税5%。
程序运行后，单击窗体，在输入对话框中输入收入数，程序将在窗体输
出个人收入和纳税金额，如图所示。
------------------------------------------------------
答案：Option Explicit
Private Sub Form_Click()
Dim x As Integer
Dim y As Integer
x = Val(InputBox("请输入收入"))
If x <= 200 Then
y = 0
ElseIf x <= 400 Then
y = (x - 200) * 0.03
ElseIf x < 5000 Then
y = 200 * 0.03 + (x - 400) * 0.04
Else
y = 200 * 0.03 + 4600 * 0.04 + (x - 5000) * 0.05
End If
Print "收入为："; x; "应纳税为："; y
End Sub
三、VB窗体设计 共1题 (共计20分)
第1题 (20.0分) 题号:374 难度:中 第1章
＇------------------------------------------------------
＇【窗体设计】
＇------------------------------------------------------
＇【题目】在名称为Form1的窗体上添加一个名称为p1的图片框。
＇【要求】
＇ ①设置图片框p1的高度和宽度分别2600和1600。
＇ ②请编写适当的事件过程，程序运行时，每单击一次图片框，
＇ 就在图片框中输出“单击图片框”，每单击图片框外的窗体一次，
＇ 就在窗体中输出“单击窗体”。程序运行时的窗体如图所示。
＇【提示】程序中不得使用变量，每个事件过程只能写一条语句。
一、程序填空 共1题 (共计20分)
第1题 (20.0分) 题号:715 难度:中 第1章
------------------------------------------------------
【程序填空】
------------------------------------------------------
【题目】
在窗体上添加一个名称为Command1的按钮，标题为“输入正整数”。
程序运行时，单击“输入正整数”按钮，通过InpubBox函数输入一个整
数，并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后
的结果，图2是输入100后的结果。
【要求】
这个程序不完整，去掉注释改为正确的内容，使其实现上述
功能。不能增加语句，也不能改动程序的其它部分。
------------------------------------------------------
Option Explicit
Private Sub Command1_Click()
Dim n As Integer
n = Val(InputBox("请输入一个整数"))
**********SPACE**********
Print "因子数＝"; 【?】
End Sub
Public Function fun(m As Integer)
Dim s As Integer 因子数
Dim k As Integer
s = 0
For k = 1 To m / 2
**********SPACE**********
【?】 当整除余数为0时则一定是它的因子
s = s + 1
Print k
End If
Next k
**********SPACE**********
【?】 返回因子总数
End Function
答案：
=======(答案1)=======
fun(n)
=========或=========
fun(n);
=========或=========
fun(n),
=======(答案2)=======
If m Mod k = 0 Then
=======(答案3)=======
fun = s
二、程序设计 共2题 (共计60分)
第1题 (30.0分) 题号:642 难度:中 第1章
------------------------------------------------------
【程序设计】
------------------------------------------------------
【题目】程序界面设计如图1所示。单击“计算”按钮，用InputBox函数输入
自然数n(如图2所示)，求n!，并将计算结果显示在文本框Text1中。
程序运行结果如图3所示。
【要求】
①用InputBox函数输入自然数6，并将计算结果(6!)显示在文本
框Text1中。
②程序必须执行一次。
------------------------------------------------------
------------------------------------------------------
【程序设计】
------------------------------------------------------
【题目】程序界面设计如图1所示。单击“计算”按钮，用InputBox函数输入
自然数n(如图2所示)，求n!，并将计算结果显示在文本框Text1中。
程序运行结果如图3所示。
【要求】
①用InputBox函数输入自然数6，并将计算结果(6!)显示在文本
框Text1中。
②程序必须执行一次。
------------------------------------------------------
Option Explicit
Private Sub Command1_Click()
************program***************
************end*******************
YZJ Text1.Text
End Sub
Private Sub YZJ(stra As Integer)
Dim OUT As Integer
OUT = FreeFile
Open App.Path & "\out1.txt" For Output As #OUT
Print #OUT, stra
Close #OUT
End Sub
答案： Dim n As Integer, i As Integer
Dim r As Integer 保存n!
r = 1
n = InputBox("请输入自然数n:")
For i = 1 To n
r = r * i
Next i
Text1.Text = r
第2题 (30.0分) 题号:643 难度:中 第1章
------------------------------------------------------
【程序设计】
------------------------------------------------------
【题目】程序界面已经创建。程序运行，单击“求素数之和”按钮，
计算100－200之间素数之和并显示文本框Text1中，如图所示。
【要求】
程序必须运行一次。
------------------------------------------------------
答案： Dim i As Integer
Dim j As Integer
Dim sum As Integer 100-200之间的素数之和
Dim flag As Boolean
For i = 100 To 200
flag = True
For j = 2 To Sqr(i)
If i Mod j = 0 Then
flag = False
Exit For
End If
Next j
If flag = True Then
sum = sum + i
End If
Next i
Text1.Text = sum
三、VB窗体设计 共1题 (共计20分)
第1题 (20.0分) 题号:375 难度:中 第1章
＇------------------------------------------------------
＇【窗体设计】
＇------------------------------------------------------
＇【题目】在名称为Form1的窗体上添加一个名称为Label1的标签，如图1所示。
＇【要求】
＇ ①设置Label1标签字号大小为四号，标题为“等级考试”。
＇ ②设置程序开始运行时不显示标签。
＇ ③编写适当的事件过程，程序运行时，窗体的标题立即变为“标签”。
＇ 单击“窗体”时，显示标签Label1，如图2所示。
＇【提示】
＇ 程序中不得使用变量，每个事件过程只能写一条语句。
一、程序填空 共1题 (共计20分)
第1题 (20.0分) 题号:716 难度:中 第1章
------------------------------------------------------
【程序填空】
------------------------------------------------------
【题目】
如图所示，在“待选城市”下的List1列表框中有若干个城市
名称。程序运行时，选中List1中若干个列表项，单击“选中”按
钮把选中的列表项目移到“选中城市”下的List2列表框中。
【要求】
这个程序不完整，去掉注释改为正确的内容，使其实现上述
功能。不能增加语句，也不能改动程序的其它部分。
【提示】
属性窗口设置MultiSelect＝1时，鼠标单击可以选择多个列
表项。当列表框的列表项Selected属性值为True时列表项选中，
为False时列表项未选中。
------------------------------------------------------
Option Explicit
Private Sub Command1_Click()
Dim k As Integer
**********SPACE**********
For 【?】 To 0 Step -1
**********SPACE**********
If 【?】 Then
**********SPACE**********
List2.AddItem 【?】
List1.RemoveItem k
End If
Next k
End Sub
答案：
=======(答案1)=======
k = List1.ListCount - 1
=======(答案2)=======
List1.Selected(k) = True
=========或=========
List1.Selected(k)
=======(答案3)=======
List1.List(k)
二、程序设计 共2题 (共计60分)
第1题 (30.0分) 题号:644 难度:中 第1章
------------------------------------------------------
【程序设计】
------------------------------------------------------
【题目】程序界面已经创建。程序运行，在文本框Text1中输入一个表达式，
单击“计算”按钮，计算表达式的值并输出在文本框Text2中，程序运
行界面如图所示。
【要求】
①仅加法运算。
②运行程序一次，在文本框Text1中输入"6+19+58"，并将计算结果
显示在文本框Text2中。
------------------------------------------------------
答案： Dim sum As Integer 表达式的值
Dim p As Integer "+"在表达式中的位置
Dim b As Integer 中间变量
sum = Val(Text1.Text)
p = InStr(Text1.Text, "+")
Do While p 0
b = Val(Mid(Text1.Text, p + 1))
sum = sum + b
p = InStr(p + 1, Text1.Text, "+")
Loop
Text2.Text = sum
第2题 (30.0分) 题号:645 难度:中 第1章
------------------------------------------------------
【程序设计】
------------------------------------------------------
【题目】程序界面已经创建。程序运行，在文本框Text1和Text2中输入两
正整数数，单击“求最大公约数”按钮，求两正整数的最大公约数并
显示在文本框Text3中，程序运行结果如图所示。
【要求】
运行程序一次，Text1输入72，Text2输入128。
------------------------------------------------------
答案： Dim m As Integer 正整数1
Dim n As Integer 正整数2
Dim i As Integer 循环变量
m = Val(Text1.Text)
n = Val(Text2.Text)
For i = n To 1 Step -1
If m Mod i = 0 And n Mod i = 0 Then
Text3.Text = i
Exit For
End If
Next i
三、VB窗体设计 共1题 (共计20分)
第1题 (20.0分) 题号:376 难度:中 第1章
＇------------------------------------------------------
＇【窗体设计】
＇------------------------------------------------------
＇【题目】在名称为Form1的窗体上添加一个名称为Label1的标签，添加
＇ 两个名称分别为Command1、Command2的命令按钮。
＇【要求】
＇ ①设置标签Label1的初始内容为空，且能根据其标题内容自动
＇ 调整标签大小。
＇ ②设置按钮Command1、Command2的标题分别为“日期”和“时
＇ 间”。
＇ ③编写适当的事件过程，使得单击“日期”按钮时，标签内显示
＇ 系统当前日期；单击“时间”按钮时，标签内显示系统当前时间。如
＇ 图所示。
＇【提示】
＇ 程序中不得使用变量，每个事件过程只能写一条语句。
一、程序填空 共1题 (共计20分)
第1题 (20.0分) 题号:717 难度:中 第1章
------------------------------------------------------
【程序填空】
------------------------------------------------------
【题目】
如图所示。⑴单击“读数据”按钮，可将考生文件夹in1.txt
文件中的100个整数读到数组a中。⑵单击“计算”按钮，则根据从
组合框Combo1中选中的项目，对数组a中的数据计算平均值，并将
计算结果四舍五入取整后显示在文本框Text1中。
【要求】
这个程序不完整，去掉注释改为正确的内容，使其实现上述
功能。不能增加语句，也不能改动程序的其它部分。
------------------------------------------------------
Option Explicit
Dim a(100) As Integer
Private Sub Command1_Click()
Dim i As Integer
**********SPACE**********
Open App.Path & "\in1.txt" 【?】
For i = 1 To 100
**********SPACE**********
【?】
Next i
Close #1
End Sub
Private Sub Command2_Click()
Dim k As Long
Dim m As Long
Dim q As Long
Dim p As Long
Dim r As Long
Dim n As Long
For k = 1 To 100
**********SPACE**********
【?】 判断是否为偶数
m = m + a(k) 偶数之和
q = q + 1 偶数个数加1
Else
n = n + a(k) 奇数之和
p = p + 1 奇数个数加1
End If
Next k
r = Int((m + n) / (p + q) + 0.5) 平均值
m = Int(m / q + 0.5) 偶数平均值
n = Int(n / p + 0.5) 奇数平均值
Select Case Combo1.Text
Case "所有偶数"
Text1.Text = m
Case "所有奇数"
Text1.Text = n
Case "所有数"
Text1.Text = r
End Select
End Sub
答案：
=======(答案1)=======
For Input As #1
=======(答案2)=======
Input #1, a(i)
=======(答案3)=======
If a(k) Mod 2 = 0 Then
二、程序设计 共2题 (共计60分)
第1题 (30.0分) 题号:646 难度:中 第1章
------------------------------------------------------
【程序设计】
------------------------------------------------------
【题目】对一维数组a(1 to 10)先赋值1、3、5、7、9、11、
13、15、17、19，然后再输出。程序运行界面如图4－1所示。
------------------------------------------------------
答案： For i = 1 To 10
a(i) = 2 * i - 1
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer
For i = 1 To 10
Print a(i)
Next i
第2题 (30.0分) 题号:647 难度:中 第1章
------------------------------------------------------
【程序设计】
------------------------------------------------------
在窗体上输出如下所示3ⅹ4矩阵。
1 2 3 4
5 6 7 8
9 10 11 12
------------------------------------------------------
答案： For i = 1 To 3
For j = 1 To 4
a(i, j) = 4 * (i - 1) + j
Next j
Next i
For i = 1 To 3
For j = 1 To 4
Print Tab(6 * j); a(i, j);
Next j
Next i
三、VB窗体设计 共1题 (共计20分)
第1题 (20.0分) 题号:377 难度:中 第1章
＇------------------------------------------------------
＇【窗体设计】
＇------------------------------------------------------
＇【题目】在名称为Form1的窗体上添加一个名称为L1的列表框，添加一个
＇ 名称为Text1的文本框,添加两个名称分别为C1和C2的命令按钮。
＇【要求】
＇ ①通过属性窗口给L1添加列表项“AAA”、“BBB”、“CCC”。
＇ ②设置C1和C2按钮的标题分别为“添加列表项”和“删除列表项”。
＇ ③编写适当的事件过程，程序运行时，给文本框中输入字符串“DDD”
＇ 时，单击“添加列表项”按钮,把文本框中的内容添加到列表框中。单击
＇ “删除列表项”把选中列表框中的列表项删除。
＇【提示】
＇ 程序中不得使用变量，每个事件过程只能写一条语句。
一、程序填空 共1题 (共计20分)
第1题 (20.0分) 题号:718 难度:中 第1章
------------------------------------------------------
【程序填空】
------------------------------------------------------
【题目】
如图1所示，利用列表框和组合框设置文本编辑器的格式。程序
中前景色、背景色用列表框控件，字体与字号用组合框控件实现。
当“单击”列表项时，文本框的“前景色”、“背景色”、“字体”、
“字号”会发生相应的改变，如图2所示。
【要求】
这个程序不完整，去掉注释改为正确的内容，使其实现上述
功能。不能增加语句，也不能改动程序的其它部分。
------------------------------------------------------
Option Explicit
Private Sub Combo1_Click() 字体设置
**********SPACE**********
【?】
End Sub
Private Sub Combo2_Click() 字号设置
**********SPACE**********
【?】
End Sub
Private Sub List1_Click() 前景色
If List1.ListIndex = 0 Then
Text1.ForeColor = vbBlack
ElseIf List1.ListIndex = 1 Then
Text1.ForeColor = vbRed
ElseIf List1.ListIndex = 2 Then
Text1.ForeColor = vbGreen
ElseIf List1.ListIndex = 2 Then
Text1.ForeColor = vbBlue
End If
End Sub
Private Sub List2_Click() 背景色
**********SPACE**********
【?】
Case 0
Text1.BackColor = vbBlack
Case 1
Text1.BackColor = vbRed
Case 2
Text1.BackColor = vbGreen
Case 3
Text1.BackColor = vbBlue
End Select
End Sub
答案：
=======(答案1)=======
Text1.FontName = Combo1.Text
=======(答案2)=======
Text1.FontSize = Combo2.Text
=======(答案3)=======
Select Case List2.ListIndex
二、程序设计 共2题 (共计60分)
第1题 (30.0分) 题号:648 难度:中 第1章
------------------------------------------------------
【程序设计】
------------------------------------------------------
【题目】程序界面已经创建。程序运行，单击“计算”按钮，用Array函数对数
组A初始化10个整数，其元素值为89,12,78,36,73,90,18,99,67,56，求数
组A中元素的最大值及最大值所在位置；求大于数组A平均值的元素个数。
程序运行结果如图所示。
【要求】
①最大值显示在文本框text1中。
②最大值的位置显示在text2中。
③大于数组A平均值的元素个数显示在text3中。
④运行程序一次。
【提示】
①option base 1。
②dim a
a=array(89，12，78，36，73，90，18，99，67，56)
------------------------------------------------------
答案： Dim i As Integer 循环变量
Dim k As Integer k是数组最大值所在位置
Dim max As Integer max是最大值
Dim sum As Integer sum是数组和
Dim aver As Single 数组平均值
Dim num As Integer 大于数组平均值的元素个数
Dim a
a = Array(89, 12, 78, 36, 73, 90, 18, 99, 67, 56)
For i = 1 To 10
If max < a(i) Then
max = a(i)
k = i
End If
Next i
For i = 1 To 10
sum = sum + a(i)
Next i
aver = sum / 10
For i = 1 To 10
If a(i) > aver Then
num = num + 1
End If
Next i
Text1.Text = max
Text2.Text = k
Text3.Text = num
第2题 (30.0分) 题号:649 难度:中 第1章
------------------------------------------------------
【程序设计】
------------------------------------------------------
【题目】利用一维数组统计一个班学生(以10人为例)的成绩等级，
这10个学生的成绩分别为73, 79, 68, 86, 89, 98, 52, 97, 36, 90。
统计0-59、60-69、70-79、80-89、90-100五个等级的人数分
布情况。
程序运行，单击“计算”按钮，统计五个等级的人数，如图所示。
【要求】
①用text1输出0-59的人数，用text2输出60-69的人数，
用text3输出70-79的人数，用text4输出80-89的人数，用text5输出90-100的人数。
②运行程序一次。
【提示】
①option base 1。
②dim a
a = Array(73, 79, 68, 86, 89, 98, 52, 97, 36, 90)
------------------------------------------------------
答案： Dim a
Dim i As Integer
Dim g1 As Integer
Dim g2 As Integer
Dim g3 As Integer
Dim g4 As Integer
Dim g5 As Integer
a = Array(73, 79, 68, 86, 89, 98, 52, 97, 36, 90)
For i = 1 To 10
If a(i) >= 90 Then
g1 = g1 + 1
ElseIf a(i) >= 80 Then
g2 = g2 + 1
ElseIf a(i) >= 70 Then
g3 = g3 + 1
ElseIf a(i) >= 60 Then
g4 = g4 + 1
Else
g5 = g5 + 1
End If
Next i
Text1.Text = g5
Text2.Text = g4
Text3.Text = g3
Text4.Text = g2
Text5.Text = g1
三、VB窗体设计 共1题 (共计20分)
第1题 (20.0分) 题号:378 难度:中 第1章
＇------------------------------------------------------
＇【窗体设计】
＇------------------------------------------------------
＇【题目】在名称为Form1的窗体上添加一个名称为Timer的计时器，添加一个
＇ 名称为Command1的命令按钮，添加一个名称为Label1的标签，如图1所示。
＇【要求】
＇ ①设置Command1命令按钮标题为“显示时间”。
＇ ②设置Timer的Interval属性为1000。
＇ ③编写适当的事件过程，程序运行时，单击“显示时间”按钮在标签
＇ Label1中显示系统时间，如图2所示。
＇【提示】
＇ 程序中不得使用变量，每个事件过程只能写一条语句。
一、程序填空 共1题 (共计20分)
第1题 (20.0分) 题号:719 难度:中 第1章
------------------------------------------------------
【程序填空】
------------------------------------------------------
【题目】
如图1所示，窗体上有一个计时器、两个命令按钮和一个标签。
计时器Timer1的初始状态为不可用；两个命令按钮Command1和
Command2的初始标题分别是“演示”和“退出”；标签Label1的标
题为“Visual Basic 程序设计”。
⑴单击标题为“演示”的命令按钮时，则按钮的标题自动改变为
“暂停”，且标签在窗体上从左向右循环滚动，当完全滚动出窗体右
侧时，从窗体左侧重新进入。
⑵单击标题为“暂停”的命令按钮时，则该按钮的标题自动改变
为“演示”，并暂停标签的滚动。
⑶单“退出”按钮，则结束程序运行。
【要求】
这个程序不完整，去掉注释改为正确的内容，使其实现上述
功能。不能增加语句，也不能改动程序的其它部分。
------------------------------------------------------
Option Explicit
Private Sub Command1_Click()
If Command1.Caption = "演示" Then
**********SPACE**********
【?】
Command1.Caption = "暂停"
Else
Timer1.Enabled = False
**********SPACE**********
【?】
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Timer1_Timer()
If Label1.Left + Label1.Width > Form1.Width Then
Label1.Left = -Label1.Width
Else
**********SPACE**********
【?】 + 100
End If
End Sub
答案：
=======(答案1)=======
Timer1.Enabled = True
=======(答案2)=======
Command1.Caption = "演示"
=======(答案3)=======
Label1.Left = Label1.Left
二、程序设计 共2题 (共计60分)
第1题 (30.0分) 题号:650 难度:中 第1章
------------------------------------------------------
【程序设计】
------------------------------------------------------
【题目】列表框列表项的生成、插入、修改和删除。
【要求】
①单击“随机产生数”，随机生成10个100－999之间的整
数添加到列表框list1中，并使列表框列表项有序。
②单击“插入列表项”，把文本框text1中输入的一个整数
插入到列表框中并使列表框列表项仍有序。
③把在文本框text1中输入的一个列表框中已有的列表项删除。
【提示】
设置list1.sorted=true，可以使列表框中列表项有序。
------------------------------------------------------
答案：Private Sub Command1_Click()
Dim i%, x%
For i = 1 To 10
x = Int(Rnd * 900 + 100)
List1.AddItem x
Next i
End Sub
Private Sub Command2_Click()
Dim x%, k%
x = Val(Text1.Text)
For k = 0 To List1.ListCount - 1
If x < Val(List1.List(k)) Then Exit For
Next k
List1.AddItem x, k
End Sub
Private Sub Command3_Click()
Dim x%, k%
x = Val(Text1.Text)
For k = 0 To List1.ListCount - 1
If x = Val(List1.List(k)) Then List1.RemoveItem k
Next k
End Sub
第2题 (30.0分) 题号:651 难度:中 第1章
------------------------------------------------------
【程序设计】
------------------------------------------------------
【题目】程序界面已经创建。程序运行，单击“排序”按钮，初始化数组A的
元素值为“89，12，78，36，73，90，18，99，67，56”，同时对数组
A的元素进行排序，程序运行结果如图所示。
【要求】
①数组元素值按升序排列。
②数组排序前、后输出到窗体上。
【提示】
①option base 1。
②dim a
a=Array(89, 12, 78, 36, 73, 90, 18, 99, 67, 56)
------------------------------------------------------
答案： Dim i As Integer
Dim j As Integer
Dim temp As Integer
Dim a
a = Array(89, 12, 78, 36, 73, 90, 18, 99, 67, 56)
Print "排序前："
For i = 1 To 10
Print a(i);
Next i
For i = 1 To 9
For j = 1 + i To 10
If a(i) > a(j) Then
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next j
Next i
Print "排序后："
For i = 1 To 10
Print a(i);
Next i
三、VB窗体设计 共1题 (共计20分)
第1题 (20.0分) 题号:379 难度:中 第1章
＇------------------------------------------------------
＇【窗体设计】
＇------------------------------------------------------
＇【题目】在名称为Form1的窗体上添加一个名称为List1的列表框，添加
＇ 一个名称为Text1的文本框，如图1所示。
＇【要求】
＇ ①通过属性窗口给列表框List1添加列表项“黑体”、“宋体”、
＇ “微软雅黑”、幼圆”、“楷体”。
＇ ②设置文本框Text1显示的内容为“Visual Basic 程序设计”，
＇ 字号为“三号”。
＇ ③编写适当的事件过程，程序运行时，单击列表框列表项使文本
＇ 框显示对应列表项的字体。程序运行如图2所示。
＇【提示】
＇ 程序中不得使用变量，事件过程只能写一条语句。
一、程序填空 共1题 (共计20分)
第1题 (20.0分) 题号:720 难度:中 第1章
------------------------------------------------------
【程序填空】
------------------------------------------------------
【题目】
如图1所示，窗体上有一个文本框，一个框架，三个单选按钮，
一个列表框，一个命令按钮。程序运行时，在“除数”框架中选择
一个单选按钮，然后单击“处理数据”命令按钮，将大于(靠近)
文本框中的正整数，并且能够被所选除数整除的10个数据添加到
列表框List1中，如图2所示。
【要求】
这个程序不完整，去掉注释改为正确的内容，使其实现上述功
能。不能修改程序的其它部分和控件属性。。
------------------------------------------------------
Option Explicit
Private Sub Command1_Click()
Dim y As Integer
If Option1.Value = True Then
y = Val(Option1.Caption)
End If
**********SPACE**********
If 【?】 Then
y = Val(Option2.Caption)
End If
If Option3.Value = True Then
y = Val(Option3.Caption)
End If
**********SPACE**********
【?】
End Sub
Private Sub calc(y As Integer)
Dim i As Integer
Dim x As Integer
List1.Clear
i = 1
x = Val(Text1.Text) + 1
Do While i <= 10 只需显示10个数
If x Mod y = 0 Then
**********SPACE**********
【?】
i = i + 1
End If
x = x + 1
Loop
End Sub
答案：
=======(答案1)=======
Option2.Value = True
=========或=========
Option2.Value
=======(答案2)=======
Call calc(y)
=========或=========
calc y
=======(答案3)=======
List1.AddItem x
二、程序设计 共2题 (共计60分)
第1题 (30.0分) 题号:652 难度:中 第1章
------------------------------------------------------
【程序设计】
------------------------------------------------------
【题目】如图所示，在窗体上有两个文本框Text1和Text2，一个命令按钮
Command1。程序运行时，在文本框Text1中输入n(10>n>0),单击按钮
Command1，计算1！+2！+3！+......+n!的值并显示在文本框Text2中。
【要求】
⑴调用sub过程subfact求阶乘。
⑵在文本Text1中输入6，运行程序一次，。
------------------------------------------------------
答案： Dim n As Integer
Dim r As Long
Dim i As Integer
Dim sum As Long
n = Val(Text1.Text)
For i = 1 To n
Call subfact(i, r)
sum = sum + r
Next i
Text2.Text = sum
第2题 (30.0分) 题号:653 难度:中 第1章
------------------------------------------------------
【程序设计】
------------------------------------------------------
【题目】程序界面已经创建。运行程序，单击“计算”按钮，用InputBox函数输入
一个自然数n(n>16)，如图1所示。调用subsum过程，
求16+(16+17)+(16+17+18)+...+(16+17+18+...+n)之和并显示在Text1中。
程序运行结果如图2所示。
【要求】
①在事件过程调用已经写好的subsum过程。
②用InputBox函数给变量n输入20，运行程序一次。
------------------------------------------------------
答案： Dim i As Integer
Dim n As Integer
Dim sum As Integer
Dim sum1 As Integer
n = InputBox("请输入n:")
For i = 16 To n
sum1 = 0
Call subsum(i, sum1)
sum = sum + sum1
Next i
Text1.Text = sum
三、VB窗体设计 共1题 (共计20分)
第1题 (20.0分) 题号:380 难度:中 第1章
＇------------------------------------------------------
＇【窗体设计】
＇------------------------------------------------------
＇【题目】在名称为Form1的窗体上添加一个Frame1的框架，添加两个单选按钮，
＇ 添加一个标签Label1，如图1所示。
＇【要求】
＇ ①设置Frame1框架的标题为“性别”。
＇ ②设置Option1和Option2的标题分别为“男”和“女”。
＇ ③编写适当的事件过程，程序运行时，单击Option1时标签Label1显示
＇ “男”，单击Option2时标签Label1显示“女”，如图2所示。
＇【提示】
＇ 程序中不得使用变量和常量，每个事件过程只能写一条语句。
一、程序填空 共1题 (共计20分)
第1题 (20.0分) 题号:721 难度:中 第1章
------------------------------------------------------
【程序填空】
------------------------------------------------------
【题目】
程序运行，随机产生10个10－99的正整数，显示在文本框Text1中。
单击“排序按钮”调用sub过程subsort对10个随机整数从小到大进行排
序，并将排序结果显示在文本框Text2中。程序运行结果如图所示。
【要求】
这个程序不完整，去掉注释改为正确的内容，使其实现上述功
能。不能修改程序的其它部分和控件属性。。
------------------------------------------------------
Option Explicit
Dim a(10) As Integer
Private Sub Command1_Click()
Dim i As Integer
Text1.Text = ""
Text2.Text = ""
Randomize
For i = 1 To 10
**********SPACE**********
【?】 90 + 10)
Text1.Text = Text1.Text & a(i) & Space(3)
Next i
**********SPACE**********
【?】
End Sub
Private Sub subsort()
Dim i As Integer
Dim j As Integer
Dim t As Integer
For i = 1 To 9
For j = i + 1 To 10
**********SPACE**********
If 【?】
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j
Text2.Text = Text2.Text & a(i) & Space(3)
Next i
Text2.Text = Text2.Text & a(i) & Space(3)
End Sub
答案：
=======(答案1)=======
a(i) = Int(Rnd *
=========或=========
a(i) = Int(Rnd()*
=======(答案2)=======
Call subsort
=========或=========
subsort
=======(答案3)=======
a(i) > a(j) Then
=========或=========
a(j) < a(i) then
二、程序设计 共2题 (共计60分)
第1题 (30.0分) 题号:654 难度:中 第1章
------------------------------------------------------
【程序设计】
------------------------------------------------------
【题目】如图所示，在窗体上有两个文本框Text1和Text2，一个命令按
钮Command1。程序运行时，在文本框Text1中输入n(10>n>0),单击
按钮Command1，计算1！+2！+3！+......+n!的值并显示在文本框
Text2中。
【要求】
⑴调用Function过程funfact求阶乘。
⑵在文本Text1中输入6，运行程序一次，。
------------------------------------------------------
答案： Dim i As Integer
Dim r As Long
r = 1
For i = 1 To n
r = r * i
Next i
funfact = r
第2题 (30.0分) 题号:655 难度:中 第1章
------------------------------------------------------
【程序设计】
------------------------------------------------------
【题目】如图所示，在窗体上有一个文本框Text1，一个命令按钮Command1。
单击按钮Command1，求100－999之间的素数和并显示在文本框Text1中
【要求】
⑴编写function过程fundata求素数。
⑵运行程序一次。
------------------------------------------------------
答案： Dim i As Integer
Dim flag As Boolean
flag = False
For i = 2 To Sqr(n)
If n Mod i = 0 Then Exit For
Next i
If i > Sqr(n) Then flag = True
fundata = flag
三、VB窗体设计 共1题 (共计20分)
第1题 (20.0分) 题号:381 难度:中 第1章
＇------------------------------------------------------
＇【窗体设计】
＇------------------------------------------------------
＇【题目】如图1所示，窗体上有两个列表框，两个按钮。
＇【要求】
＇ ①通过属性窗口给列表框list1添加列表项“环资学院”、
＇ “土建学院”、“国防学院”。
＇ ②通过属性窗口给列表框list2添加列表项“经管学院”、
＇ “政治学院”、“文艺学院”。
＇ ③编写适当的事件过程，程序运行时，单击“>>”把列表
＇ 框list1中选中的列表项移动到列表框List2中，同时删除List1
＇ 中选中的列表项。单击“<
＇ 移动到列表框List1中，同时删除List2中选中的列表项。
＇【提示】
＇ 程序中不得使用变量和常量，每个事件过程只能写两条语句。
一、程序填空 共1题 (共计20分)
第1题 (20.0分) 题号:722 难度:中 第1章
------------------------------------------------------
【程序填空】
------------------------------------------------------
【题目】
如图所示，窗体上有两个文本框Text1和Text2，一个标题为“求和”的命
令按钮。
程序运行，在文本框Text1中输入一个整数n(n>10)。单击“求和”按钮，
调用funsum过程，计算10+(10+11)+(10+11+12)+...+(10+11+12+...+n)的和，
并将结果显示到文本框Text2中。
【要求】
这个程序不完整，去掉注释改为正确的内容，使其实现上述功能。不能修
改程序的其它部分和控件属性。。
------------------------------------------------------
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim sum As Integer
Dim n As Integer
n = Text1.Text
For i = 10 To n
**********SPACE**********
sum = sum + 【?】
Next i
Text2.Text = sum
End Sub
Private Function funsum(k As Integer) As Integer
Dim i As Integer
Dim sum As Integer
For i = 10 To k
**********SPACE**********
【?】
Next i
**********SPACE**********
【?】
End Function
答案：
=======(答案1)=======
funsum(i)
=======(答案2)=======
sum = sum + i
=========或=========
sum = i + sum
=======(答案3)=======
funsum = sum
二、程序设计 共2题 (共计60分)
第1题 (30.0分) 题号:656 难度:中 第1章
------------------------------------------------------
【程序设计】
------------------------------------------------------
【题目】程序界面已经创建。程序运行，单击“计算”按钮读取考生文件
夹下in1.txt文件中的100个整数，求其和并显示在窗体上，同时将和
写入考生文件夹下out1.txt文件中。程序运行结果如图所示。
------------------------------------------------------
答案： Dim i As Integer
Dim sum As Long 和
Dim a(100) As Integer
Open App.Path & "\in1.txt" For Input As #1
For i = 1 To 100
Input #1, a(i)
sum = sum + a(i)
Next i
Close #1
Print "sum＝"; sum
Open App.Path & "\out1.txt" For Output As #1
Write #1, sum
Close #1
第2题 (30.0分) 题号:657 难度:中 第1章
------------------------------------------------------
【程序设计】
------------------------------------------------------
【题目】程序界面已经创建。程序运行，单击“计算”按钮读取考生文件
夹下in1.txt文件中的若干个100－999的正整数，从中求出所有的水
仙花数及这些水仙花数的和，并将和显示在文本框Text1中。程序运
行结果如图所示。
【提示】当一个数的值等于该数中各位数字的立方和时，此数被称为水仙
花数。例如153=1^3+5^3+3^3。
------------------------------------------------------
答案： Dim n As Integer
Dim x As Integer
Dim y As Integer
Dim z As Integer
Dim sum As Long
Open App.Path & "\in1.txt" For Input As #1
While Not EOF(1)
Input #1, n
x = n \ 100
y = (n - x * 100) \ 10
z = n - x * 100 - y * 10
If n = x ^ 3 + y ^ 3 + z ^ 3 Then
Print n
sum = sum + n
End If
Wend
Close #1
Text1.Text = sum
三、VB窗体设计 共1题 (共计20分)
第1题 (20.0分) 题号:382 难度:中 第1章
＇------------------------------------------------------
＇【窗体设计】
＇------------------------------------------------------
＇【题目】
＇ 在名称为Form1的窗体上添加一个名称为L1的标签，添加两个名称分别
＇ 为Text1和Text2的文本框，添加三个名称分别为C1、C2、C3的命令按钮。
＇【要求】
＇ ①设置命令按钮C1、C2、C3的标题分别为“显示口令”、“隐藏口令”、
＇ “复制口令”。
＇ ②通过属性窗口设置文本框Text1的属性，使得程序运行时输入的字符都
＇ 显示“*”。
＇ ③编写适当的事件过程，程序运行时，单击“显示口令”按钮后，Text1
＇ 中显示所有字符，再单击“隐藏口令”按钮后，Text1中的字符不变，但显示
＇ 的都是“？”，单击“复制口令”后，把Text1中的实际内容复制到Text2中，
＇ 如图所示。
＇【提示】
＇ 程序中不得使用变量，每个事件过程中只能写一条语句。
西科学习杂货铺
资料整理 | 杂货铺店长
排版 | 杂货铺小妹