VB上机练习题(二)

VB上机练习题(二)

18、新建一个工程，完成应用程序的设计，具体要求如下：

1.按照图11所示在窗体上放置按钮和控件；

2.在两个列表框控件的list中输入一些内容；

3.单击“<”按钮时，把list2中选中的一项放到list1中，并且在list2中删除该

项；

4.单击“<<”按钮时，把list2中所有的项放到list1中，并且清空list2；

5.单击“>”按钮时，把list1中选中的一项放到list2中，并且在list1中删除该

项；

6.单击“>>”按钮时，把list1中所有的项放到list2中，并且清空list1；

7.单击“结束”按钮时，退出应用程序。

图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、新建一个工程，完成“收款计算”程序的设计，具体要求如下：

1.按照图16所示在窗体上放置控件；

2.窗体上有三个文本框，上面两个分别用于输入商品单价和商品数量，单击“计算”，

将应付款显示在最下面一个文本框中；

3.最下面一个文本框（应付款）不能直接输入；

4.单击“清除”按钮，三个文本框内容被清空，同时第一个文本框获得焦点。

图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

1. 如图17所示，在窗体上放置一个水平滚动条、一个标签框和一个命令按钮；

2. 滚动条状态发生改变时，标签上的文字可以左右移动，文字移动范围等于滚动条的范围。

图17

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Load()

HScroll1.Max = 6000

HScroll1.Min = 0

rgeChange = 40

HScroll1.SmallChange = 10

End Sub

Private Sub HScroll1_Change()

Label1.Left = HScroll1.Value

End Sub

1.按照图18所示在窗体上放置控件；

2.4个单选按钮分别用于显示星期、年份、月份和日期；

3.选中某个单选按钮时，在文本框中显示当天对应的日期信息；

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

Private Sub Option3_Click()

If Option3.Value = True Then

Text1.Text = Month(Now)

End If

End Sub

Private Sub Option4_Click()

If Option4.Value = True Then

Text1.Text = Day(Now)

End If

End Sub