VB程序设计基础例题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
3.1交换变量a1、a2的值，P35
Private Sub Form_Click()
Dim a1 As Integer, a2 As Integer, t As Integer a1 = 5: a2 = 10
Form1.Print "交换"; a1; a2
t = a1: a1 = a2: a2 = t
Form1.Print "得:"; a1; a2
End Sub
Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.Print "交换两个数"
Form1.Print "单击窗体开始"
End Sub
3.2 Tab 函数，P35
Private Sub Form_Click()
Form1.Print Tab(10); "*********"
Form1.Print Tab(11); "*******"
Form1.Print Tab(12); "*****"
Form1.Print Tab(13); "***"
Form1.Print Tab(14); "*"
End Sub
Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.Print "显示星号三角形，单击窗体开始"
End Sub
3.5 Move 方法在指定位置显示窗体，文本框和图，P45 Private Sub Form_Load()
Picture1.AutoRedraw = True
Move 3000, 2000, 2800, 2800
Text1.Move 300, 200, 2000, 500
Picture1.Move 300, 1000, 1600, 1200
Text1.Text = "文本框"
Picture1.Print "图片框"
End Sub
图3.13 显示和隐藏，P46
Private Sub Form_Click()
Form1.Hide
Form2.Show
End Sub
Private Sub Form_Load()
AutoRedraw = True
Form1.Print "单击显示form2"
End Sub
Private Sub Form_dblClick()
Form2.Hide
Form1.Show
End Sub
Private Sub Form_Load()
AutoRedraw = True
Form2.Print "双击显示form1"
End Sub
3.6输出位置以及字体设置，P46
Private Sub Form_Load()
AutoRedraw = True
Form1.Width = Screen.Width / 2
Form1.Height = Screen.Height / 3
Form1.Left = (Screen.Width - Form1.Width) / 2 Form1.Top = (Screen.Height - Form1.Height) / 2 FontName = "黑体": FontSize = 20
str1$ = "Visual Basic 应用程序"
CurrentX = (Form1.Width - TextWidth(str1$)) / 2
CurrentY = (Form1.Height - TextHeight(str1$)) / 3
Form1.Print str1$
End Sub
3.12 InputBox及“+”的应用P53
Private Sub Form_Click()
a = InputBox("enter an integer", 123, 456, , , HelpFile, context)
b = InputBox("enter an integer")
Text1.Text = b + a
End Sub
3.11计时器，P52
Rem “计时开始”按钮单击事件
Private Sub Command1_Click()
Text1.Text = "计时开始"
Form1.Tag = Timer
Command1.Enabled = False
Command2.Enabled = True
End Sub
Rem “计时停止”按钮单击事件
Private Sub Command2_Click()
Text1.Text = CInt(10 * (Timer - Form1.Tag)) / 10 Command1.Enabled = True
Command2.Enabled = False
End Sub
Rem“结束”按钮单击事件
Private Sub Command3_Click()
End
End Sub
Rem 窗体装载事件作初始化
Private Sub Form_Load()
Text1.Text = "计时器"
Command2.Enabled = False
Timer1.Interval = 100
End Sub
Rem 计时器控制事件由interval属性设置的时间间隔触发Private Sub Timer1_Timer()
Label1.Caption = Time$
End Sub