第七章 VB上机练习题(二).docVIP

VB上机练习题(二) 18、新建一个工程，完成应用程序的设计，具体要求如下： 按照图11所示在窗体上放置按钮和控件； 在两个列表框控件的list中输入一些内容； 单击“”按钮时，把list2中选中的一项放到list1中，并且在list2中删除该项； 单击“”按钮时，把list2中所有的项放到list1中，并且清空list2； 单击“”按钮时，把list1中选中的一项放到list2中，并且在list1中删除该项； 单击“”按钮时，把list1中所有的项放到list2中，并且清空list1； 单击“结束”按钮时，退出应用程序。 图15 Private Sub Command1_Click() If List1.ListIndex = -1 Then MsgBox 请选择一项再按键！ Else List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End If End Sub Private Sub Command2_Click() Do Until List1.ListCount = 0 List2.AddItem List1.List(0) List1.RemoveItem 0 Loop End Sub Private Sub Command3_Click() Do Until List2.ListCount = 0 List1.AddItem List2.List(0) List2.RemoveItem 0 Loop End Sub Private Sub Command4_Click() If List2.ListIndex = -1 Then MsgBox 请选择一项再按键！ Else List1.AddItem List2.Text List2.RemoveItem List2.ListIndex End If End Sub Private Sub Command5_Click() End End Sub 19、新建一个工程，完成“收款计算”程序的设计，具体要求如下： 按照图16所示在窗体上放置控件； 窗体上有三个文本框，上面两个分别用于输入商品单价和商品数量，单击“计算”，将应付款显示在最下面一个文本框中； 最下面一个文本框（应付款）不能直接输入； 单击“清除”按钮，三个文本框内容被清空，同时第一个文本框获得焦点。 图16 Private Sub Command1_Click() Text1.Text = Text2.Text = Text3.Text = Text1.SetFocus End Sub Private Sub Command2_Click() Dim x, y, sum! x = Val(Text1.Text) y = Val(Text2.Text) sum = x * y Text3.Text = CStr(sum) End Sub Private Sub Form_Load() Text3.Enabled = False End Sub 20、新建一个工程，完成应用程序的设计，具体要求如下： 1. 如图17所示，在窗体上放置一个水平滚动条、一个标签框和一个命令按钮； 2. 滚动条状态发生改变时，标签上的文字可以左右移动，文字移动范围等于滚动条的范围。 图17 Private Sub Command1_Click() End End Sub Private Sub Form_Load() HScroll1.Max = 6000 HScroll1.Min = 0 HScroll1.LargeChange = 40 HScroll1.SmallChange = 10 End Sub Private Sub HScroll1_Change() Label1.Left = HScroll1.Value End Sub 21、新建一个工程，完成应用程序的设计，具体要求如下： 按照图18所示在窗体上放置控件； 4个单选按钮分别用于显示星期、年份、月份和日期； 选中某个单选按钮时，在文本框中显示当天对应的日期信息； 单击“结束”命令该按钮时，退出应用程序。 图18 Private Sub Option1_Click() If Option1.Value = True Then Text1.Text = WeekdayName(Weekday(Now)) End If End Sub Private Sub Option2_Click() If Option2.Value = True Then Text1.Text = Year(Now) End If End Sub