VB后半学期练习题
Private Sub Form_Load() Private Sub Command1_Click() '>>> List1.AddItem \蓝球\Dim i As Integer
List1.AddItem \足球\i = 0
List1.AddItem \排球\Do While i <= List1.ListCount - 1 List1.AddItem \羽毛球\ If List1.Selected(i) = True Then List1.AddItem \乒乓球\ List2.AddItem List1.List(i) List1.AddItem \跑步\ List1.RemoveItem i List1.AddItem \登山\ Else List1.AddItem \网球\
i = i + 1 List1.Multiselect=1 '实现多选 End If End Sub Loop End Sub
Private Sub Command2_Click()
'<
If List2.ListIndex <> -1 Then List1.AddItem List2.Text
List2.RemoveItem List2.ListIndex
Else
MsgBox \请先选择右边列表框中的某项，再移至左边\End If End Sub
Private Sub Command3_Click()
'全选
Do While List1.ListCount <> 0
'判断是否还有表项 List2.AddItem List1.List(0) '每次移动最前面的表项 List1.RemoveItem 0
'删除最前面的表项
Loop
End Sub
Private Sub Command4_Click()
'还原
Do While List2.ListCount <> 0 List1.AddItem List2.List(0) List2.RemoveItem 0 Loop End Sub
11
VB后半学期练习题
19、
（1）参照运行时界面完成界面设计。（2）在两个列表框控件的list中输入一些内容。（3）当单击“<”按钮时，把list2中选中的一项放到list1中，并且在list2中删除该项。（4）当单击“<<”按钮时，把list2中所有的项放到list1中，并且清空list2。（5）当单击“结束”按钮时，退出应用程序。
Private Sub Command1_Click() '> If List1.ListIndex <> -1 Then List2.AddItem List1.Text
'或者：List2.AddItem List1.List(List1.ListIndex) List1.removeitem (List1.ListIndex Else
MsgBox \先选择，再移动\ End If End Sub
Private Sub Command2_Click() '>> For i = 0 To List1.ListCount - 1 List2.AddItem List1.List(i) Next i
List1.Clear End Sub
20、
Private Sub Command3_Click() '<< Do While List2.ListCount <> 0 List1.AddItem List2.List(0) List2.RemoveItem 0 Loop End Sub
Private Sub Command4_Click() '< If List2.ListIndex <> -1 Then
List1.AddItem List2.List(List2.ListIndex) Else
MsgBox \先选择，再移动\ End If End Sub
Private Sub Command5_Click() '结束 End End Sub
（1）参照运行时界面完成界面设计。（2）左边一个简单组合框，对文本框的字体进行设置；有三项内容，分别是“宋体、黑体、楷体_GB2312”。（3）右边一个简单组合框，对文本框的文字大小进行设置；大小范围为8~20。
Private Sub Form_Load()
Text1.Text = \心想事成\Combo1.Additem \宋体\Combo1.Additem \黑体\
Combo1.Additem \楷体_Gb2312\Combo1.Text = \宋体\For i=8 to 20
Combo2.Additem i Next
Combo2.Text = \End Sub
21、 设计一个畅销书排行榜程序，运行界面如下图所示。具体要求如下：
（1）在左边列表框中显示排名前5名的畅销书；
（2）输入新书名和名次，单击“入榜”，添加到左边列表框中相应位置；
Private Sub Combo1_Click()
Text1.FontName = Combo1.Text End Sub
Private Sub Combo2_Click() Text1.FontSize = Val(Combo2.Text) End Sub
（3）单击“下榜”，将选择的书从排行榜中删除，如未选择，则显示“请先选择！”； （4）单击“清除”，可以删除文本框中的输入内容，文本框2只允许输入数字1~5；
12
VB后半学期练习题
（5）单击“结束”，退出程序运行。
Private Sub Form_Load() list1.AddItem \西游记\ list1.AddItem \红楼梦\ list1.AddItem \史记\ list1.AddItem \水浒\ list1.AddItem \镜花缘\End Sub
Private Sub Command1_Click()
'上榜
Dim book As String, index As Integer
book = Text1.Text index = Val(Text2.Text) - 1
If book <> \ '判断是否已输入书名和有效的排名 list1.AddItem book, index End If
list1.RemoveItem list1.ListCount - 1 End Sub
Private Sub Command2_Click() Dim index As Integer index = list1.ListIndex If index <> -1 Then list1.RemoveItem index End If
'下榜
Private Sub Command3_Click()
'清除
Text1.Text= \ Text2.Text=\End Sub
Private Sub Command4_Click() '结束 End End Sub
End Sub
22、 （1）参照运行时界面完成界面设计。（2）单击滚动条左右箭头时，标签上的字可以左右移动，
标签移动范围等于滚动条的范围。
Private Sub Form_Load()
HScroll1.Max = Form1.Width - Label1.Width '标签移动到最右边的Left值即为滚动条的最大值 HScroll1.Value = Label1.Left '标签移动到最左边的Left值即为滚动条的最小值
13
VB后半学期练习题
End Sub
Private Sub HScroll1_Change() Label1.Left = HScroll1.Value End Sub
Private Sub Command1_Click() '结束 End End Sub
23、
Private Sub HScroll1_Scroll()
Call HScroll1_Change End Sub
（1）参照运行时界面完成界面设计。（2）滚动条的取值范围均为10-40。（3）完成以下功能：根据设
定字号改变标签框内显示文字的大小。要求水平滚动条与文本框相关联。
Private Sub Form_Load() HScroll1.Max = 40 HScroll1.Min = 10
Label1.FontSize = HScroll1.Value Form1.Caption = \改变字号\End Sub
Private Sub HScroll1_Change() Text1.Text = HScroll1.Value Label1.FontSize = HScroll1.Value End Sub
24、
Private Sub HScroll1_Scroll() Call HScroll1_Change End Sub
Private Sub Text1_Change() Dim i As Integer i = Val(Text1.Text)
If i >= 10 And i <= 40 Then Label1.FontSize = i HScroll1.Value = i End If End Sub
（1）参照运行时界面完成界面设计。（2）在属性窗口中将标签（Label1）的标题设为“祝您考试成功”，字体设置为“宋体”、字形为“粗体”、大小为“二号”、文字颜色为“红色”，格式设置为在窗体中水平居中对齐。（3）单击“开始”按钮（Command1），标签文字在定时器控制下自动交替以红兰两种颜色显示。同时“开始”按钮变为“停止”按钮。（4）单击“停止”按钮，标签文字停止闪烁，同时“停止”按钮变为“开始”按钮。（5）定时器（Timer1）的时间间隔为0.3秒。
Private Sub Form_Load()
Label1.Left = Form1.ScaleWidth / 2 - Label1.Width / 2 Label1.Top = Form1.ScaleHeight / 2 - Label1.Height / 2 Command1.Caption = \开始\ Timer1.Enabled = False Label1.ForeColor = vbRed End Sub
Private Sub Command1_Click() Private Sub Timer1_Timer() If Command1.Caption = \开始\ If Label1.ForeColor = vbRed Then Command1.Caption = \停止\ Label1.ForeColor = vbBlue Timer1.Enabled = True Else Else Label1.ForeColor = vbRed Command1.Caption = \开始\ End If Timer1.Enabled = False End Sub End If End Sub 25、
14
VB后半学期练习题
（1）参照运行时界面完成界面设计。（2）在属性窗口中将标签（Label1）的标题设为“祝您考试成功”，字体设置为“宋体”、字形为“粗体”、大小为“二号”、文字颜色为“红色”。（3）单击“开始”按钮，标签文字在定时器控制下自动地从左向右移动，移动速度为每个时间间隔右移100缇，当标签移动到窗体外时，再从窗体的左边进入。同时“开始”按钮变为“停止”按钮。（4）单击“停止”按钮，标签“祝您考试成功”文字停止滚动。同时“停止”按钮变为“开始”按钮。（5）定时器（Timer1）的时间间隔为0.1秒。
If Command1.Caption = \开始\ Command1.Caption = \停止\ Timer1.Enabled = True Else
Command1.Caption = \开始\ Timer1.Enabled = False End If End Sub 26、
Private Sub Timer1_Timer()
If Label1.Left < Form1.Width Then Label1.Left = Label1.Left + 100 Else
Label1.Left = -Label1.Width End If End Sub
（1）参照运行时界面完成界面设计。（2）单击“开始”按钮（Command1），标签“欢迎光临”（Label1）文字在定时器控制下字号自动增加2。同时“开始”按钮变为“停止”按钮。（3）单击“停止”按钮，标签“欢迎光临”文字停止放大。同时“停止”按钮为“开始”按钮。（4）要求标签文字在放大时保持水平居中。（5）定时器（Timer1）的时间间隔为0.2秒。
Private Sub Form_Load()
Label1.Left = Form1.ScaleWidth / 2 - Label1.Width / 2 Label1.Top = Form1.ScaleHeight / 2 - Label1.Height / 2 Label1.ForeColor = vbRed End Sub
Private Sub Command1_Click()
If Command1.Caption = \开始\ Timer1.Enabled = True
Command1.Caption = \停止\ Else
Timer1.Enabled = False
Command1.Caption = \开始\ End If End Sub
Private Sub Timer1_Timer()
Label1.FontSize = Label1.FontSize + 2
Label1.Left = Form1.ScaleWidth / 2 - Label1.Width / 2 Label1.Top = Form1.ScaleHeight / 2 - Label1.Height / 2 End Sub 27、
（1）参照运行时界面完成界面设计。（2）设计两个定时器，Timer1用于显示系统时间，时间间隔为1
秒；Timer2用于判断闹钟时间，时间间隔为0.5秒，Timer2设置为不可使用。（3）窗体的上半部是标签Label1，用于显示时间，设置Label1的Font为：宋体、粗体、二号，背景白色，文字居中对齐，
15