日志分类
天气
日历
全国计算机等级考试二级上机题库(VB语言)（视频教程）
2010-1-23 18:04:33 阅读(8) 评论(0)
2010年1月18日
2010-1-18 10:11:02 阅读(13) 评论(0)
1.添加在窗体Form1上的代码
Private Sub m1_Click()
Form1.Hide
Form2.Show
End Sub
Private Sub m2_Click()
Form1.Hide
Form3.Show
End Sub
Private Sub m3_Click()
End
End Sub
2.添加在窗体Form2上的代码
Private Sub Command1_Click()
Unload Me
Form1.Show
实验12-3
2010-1-18 10:06:19 阅读(18) 评论(0)
Private Sub Command1_Click()
Dim x As Single, s As Single
Dim n As Integer, t As Single
x = Val(Text1.Text)
s = 1: n = 1
Do
n = n + 1
t = (-1) ^ (n + 1) * x ^ (2 * (n - 1)) / fun1(2 * (n - 1))
s = s + t
Loop Until Abs(t) < 0.000001
Text2.Text = Str(s)
End Sub
Private Sub Command2_Click()
Text1.Text = ""
实验12-2
2010-1-18 9:59:40 阅读(22) 评论(0)
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = Val(Text1.Text)
Call sub1(x, y)
Text2.Text = Str(y)
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
实验12-1
2010-1-18 9:57:43 阅读(21) 评论(0)
Option Explicit
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer
Dim a(10) As Integer, av As Integer
i = 1
'Do Until i <= 10
Do While i <= 10 '或 Do Until i > 10
t = Int(Rnd * 90) + 10