VB实验指导例题要点

实验A VB环境和可视化编程基础 1．

（1）运行界面

（2）参考代码：

Private Sub Command1_Click() label3.Caption = text1.Text End Sub

2．模仿教材例1.1，将事件过程中自上而下移动改为自右向左移动，也要考虑文字出窗体边界的情况。 （1）运行界面

（2）参考代码：

Private Sub Command1_Click() Timer1.Interval = 0 Call mymove End Sub

Sub mymove()

Label1.Move Label1.Left - 20

If Label1.Left = 0 Then Label1.Left = Form1.Width End Sub

Private Sub Command2_Click() Timer1.Interval = 200 End Sub

Private Sub Timer1_Timer() Call mymove End Sub

3．编写一程序，在文本框中统计在该窗口上鼠标单击的次数。 （1）运行界面：

（2）编写代码：

Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub

Private Sub Form_Load() Text1.Text = \End Sub 4．代码：

Private Sub Form_Click() Form1.Caption = \鼠标单击\

Form1.Picture = LoadPicture(\End Sub

Private Sub Form_DblClick() Form1.Caption = \鼠标双击\

Form1.Picture = LoadPicture(\End Sub

Private Sub Form_Load()

Form1.Picture = LoadPicture(\End Sub

5．命令按钮、字号、内容和格式的复制练习 （1）运行界面

（2）参考代码：

Private Sub Command1_Click() Text1.FontName = \黑体\Text1.FontSize = 25 End Sub

Private Sub Command2_Click() Text2.Text = Text1.SelText

Text2.FontName = Text1.FontName Text2.FontSize = Text1.FontSize Text1.SetFocus End Sub

实验B 顺序结构

1． 编一个华氏温度与摄氏温度之间转换的程序，要求用按钮实现转换。既单击“华氏转摄

氏”按钮，则将华氏温度转换为摄氏温度；同样，单击“摄氏转华氏”按钮，则将摄氏温度转换为华氏温度。 代码：

Private Sub Command1_Click() Dim f!, c!

f = Val(Text1.Text) c = 5 / 9 * (f - 32)

Text2.Text = Format(c, \End Sub

Private Sub Command2_Click() Dim f!, c!

c = Val(Text2.Text) f = 9 / 5 * c + 32

Text1.Text = Format(f, \End Sub

2． （1）运行界面