项目一VB程序设计

1、项目一：VB程序设计任务一：滚动字幕样文：解决方法：（1）界面设计。 需要2个对象：1个标签（Label1）1个记时器（Timer1）（2）属性设置。 标签：Caption：设为：欢迎新同学！欢迎进入VB世界！ Backcolor: 设为：红色Forecolor: 设为：红色 时钟：Interval: 时间间隔毫秒数设为：30（3）需要用代码实现的功能有：Private Sub Label1_Click()Label1.Left = Label1.Left - 50End Sub改进一：添加计时器Private Sub Timer1_Timer() Label1.Left = Label1.L

2、eft - 50End Sub改进二：添加计时器，进行判断Private Sub Timer1_Timer()If Label1.Left 0 Then Label1.Left = 11550Else Label1.Left = Label1.Left - 50End IfEnd Sub任务二：人民币与美元兑换程序样文：解决方法：（1）界面设计。 需要7个对象： 2个标签（Label） 2个文本框（TextBox） 3个命令按钮（CommandButton）（2）属性设置。 Caption：标题 Text：文本 Font：字体（3）需要用代码实现的功能有三： 清屏：清空2个文本框；Privat

3、e Sub Command2_Click()Text1.Text = 清空Text2.Text = 清空End Sub 转换：人民币与美元转换；Private Sub Command1_Click()Dim m As Single, r As Single, h As Singlem = Val(Text1.Text) 美元数量h = 8.099 汇率r = m * h 换算Text2.Text = Format(r, #.#) 显示兑换的人民币数量End Sub 结束： 退出程序。Private Sub Command3_Click()EndEnd Sub（4）运行调试和保存。任务三：记事本

4、样文：解决方法：（1）界面设计。 需要6个对象： 1个文本框（TextBox） 5个命令按钮（CommandButton）（2）属性设置。 Caption：标题 Text：文本MultiLine 设置成 True 这里是接受多行文本ScrollBars 选择2 添加一个滚动条 （3）需要用代码实现的功能有五：用VB编写记事本简单程序可实现文本框中复制，剪切、粘贴、移动、删除等编辑功能。 复制：Private Sub Command1_Click()Clipboard.SetText Text1.SelText Text1中选中文本放入剪贴板End Sub 剪切Private Sub Comma

5、nd2_Click()Clipboard.SetText Text1.SelText Text1中选中文本放入剪贴板Text1.SelText = 清空Text1中选中文本End Sub 粘贴Private Sub Command3_Click()Text1.SelText = Clipboard.GetText() 将剪贴板中文本放入Text1中选中文本处End Sub 删除Private Sub Command4_Click()Text1.SelText = 清空Text1中选中文本End Sub 清空 Private Sub Command5_Click()Text1.Text = 清空

6、Text1中文本End Sub任务四：记时器样文：解决方法：Private Sub Command1_Click() Label3.Caption = Time$ 在标签3上显示系统时间 Label4.Caption = 清除标签4上显示的信息 Command1.Enabled = False 使开始按钮不响应事件 Command2.Enabled = True 使结束按钮响应事件End SubPrivate Sub Command2_Click() Label4.Caption = Time$ 在标签4上显示系统时间 Command1.Enabled = True 使开始按钮响应事件 Com

7、mand2.Enabled = False 使结束按钮不响应事件End SubPrivate Sub Form_Load() Command2.Enabled = False 使结束按钮不响应事件End Subdim a as datedim b as datea=cdate(Label3.Caption)b=cdate(Label4.Caption)Label5.Caption =datediff(s,a,b) 任务五：计算平均成绩样文：解决方法：（1）界面设计。 需要15个对象： 7个标签（Label） 5个文本框（TextBox） 3个命令按钮（CommandButton）（2）属性设置

8、。 Caption：标题 Text：文本 MultiLine 设置成 True 这里是接受多行文本ScrollBars 选择2 添加一个滚动条 Font：字体（3）需要用代码实现的功能有三： 清屏为输入下一个准备：清空4个文本框；Private Sub Command1_Click()Text1.Text = 清除姓名文本框的内容Text2.Text = 清除语文文本框的内容Text3.Text = 清除数学文本框的内容Text4.Text = 清除英语文本框的内容Text1.SetFocus 使姓名文本框得到焦点End Sub 计算平均成绩Private Sub Command2_Click

9、() Dim name As String * 6 Dim t2, t3, t4 As String * 3 name = Text1.Text t2 = Text2.Text: t3 = Text3.Text: t4 = Text4.Text aver = Str(Int(Val(t2) + Val(t3) + Val(t4) / 3) 计算平均成绩并赋给字符变量 Text5.Text = Text5.Text & name & & t2 & & t3 & & t4 & & aver & vbCrLf 显示计算结果End Sub 结束： 退出程序。Private Sub Command3_Click() EndEnd Sub（4）运行调试和保存。拓展项目1、计算样文：解决方法：Private Sub Command1_Click() Dim num1 As Integer Randomize num1 = Int(Rnd * 50) Print 边长:; num1 Print 正方形面积:; num1 * num1End SubPrivate Sub Command2_Click() Dim num2 As Integer Randomize