vb编程
题
快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题
20、利用inputbox函输入数2个数它数整~求输的最大公输。Private Sub Form_Click()
n1 = InputBox("输入n")
m1 = InputBox("输入m")
If m1 > n1 Then ' 使得 m>n
m = m1: n = n1
Else
m = n1: n = m1
End If
r = m Mod n
Do While r <> 0
m = n
n = r
r = m Mod n
Loop
Print m1; ","; n1; "的最大公输输数"; n
End Sub
21、 输入3个数数~输出其中最大的。
Private Sub Command1_Click()a = Val(InputBox("输入第一个数"))
b = Val(InputBox("输入第个数"))
c = Val(InputBox("输入第三个数"))
If a < b Then a = b
If a < c Then a = c
Print a
End Sub
22、输输命令按输Command1后在窗体Form1上输示以下形的输形状。
AAAAAAA
AAAAA
AAA
Private Sub Command1_Click()A
For i = 4 To 1 Step -1
Print String(2 * i - 1, "A")
Next i
End Sub
23、口的下部有窗3个清屏命令按输~其中左输按输中输有“输输”~中输按输中输有“”~右输按输
中输有“输束”。输输鼠输左输按输输~幕上部的文本中输示“输迎使用当屏框VB6.0”~若输输中输按输~
清框内除文本中的容~若输输右输的按输~输程序输束。Private Sub Command1_Click()Text1 = "输迎使用VB6.0"
End Sub
Private Sub Command2_Click()Text1 = ""
End Sub
Private Sub Command3_Click()End
End Sub
24、利用输输和输输器输输输子输。
Private Sub Form_Load()Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()Label1 = Time
End Sub
25、 用InputBox输入球的半~然后输算球的输。体径体体
Private Sub Command1_Click()r = InputBox("输输入r")
v = 4 * 3.14 * r ^ 3 / 3Print "v="; v
End Sub
26、利用For循输~在文本中输示框1—100之输能被4整除的整。数Private Sub Command1_Click()For i = 1 To 100
If i Mod 4 = 0 Then Text1 = Text1 + Str(i)
Next i
End Sub
27、输程求解表式达1,+2,+3,+ … +n!的和~n;n>1,由输输输入~最后输出输果。
Private Sub Command1_Click()n = Val(InputBox("n"))
x = 1
For i = 1 To n
x = x * i
s = s + x
Next i
Print s
End Sub
28、 输一输算三角形面输的写个Function输程~然后输用输输程输算一不输输五输形的面输。个Function Area(x!, y!, z!) As Single
Dim c!
c = (x + y + z) / 2
Area = Sqr(c * (c - x) * (c - y) * (c - z))
End Function
Sub Form_Click()
Dim a!, b!, c!, d!, e!, f!, g!, s1!, s2!, s3!
a = InputBox("输入a"): b = InputBox("输入b"): c = InputBox("输入c")
d = InputBox("输入d"): e = InputBox("输入e"): f = InputBox("输入f")
g = InputBox("输入g")
s1 = Area(a, b, c)
s2 = Area(c, d, e)
s3 = Area(e, f, g)
MsgBox ("多输形面输=" & s1 + s2 + s3)End Sub
29、输输一程序~如输所示~要求在“输入据”中输入一字。输输“输算”命令个窗体数框个数当
按输输~输入的据乘将数8后输示在一输输中~输输“退出”命令按输输~输束程序行。另个运
Private Sub Command1_Click()Label1 = Val(Text1) * 8End Sub
Private Sub Command2_Click()
End
End Sub