VB课后编程题1-9单元(精编).docVIP

@@@随机输入三位数后，单击后打印出每位数 Private Sub Form_Click()■Dim x%, t%, h%,n%■x = Val(Text1.Text) ■n=x mod 10■t = (x \ 10) Mod 10■h = x \ 100■Print 个位数是: n ■Print 十位数是: t ■Print 百位数是: h■End Sub @@@模拟计算器 Private Sub Form_Click()■Dim c As String*1■Form1.CurrentX=Rnd *Form1.ScaleWidth■Form1.CurrentY=Rnd*Form1.ScaleHeight■c =Chr(Int(Rnd * 16) + 65)■Print c■End Sub @@@用inputbox输入两个电阻值，求并、串联、，用msgbox输出 Private Sub Form_Click()■Dim R1#, R2#，Rp#, Rs#■R1 = Val(InputBox(输入电阻R1=？))■R2 = Val(InputBox(输入电阻R2=？))■Rp = R1 * R2 / (R1 + R2) ■Rs = R1 + R2■Rp = Fix(Rp * 1000 + 0.5) / 1000■Rs = Fix(Rs * 1000 + 0.5) / 1000 ■ MsgBox 并联电阻是： Rp vbCrLf 串联电阻是： Rs■End Sub @@@判断是否闰年 Private Sub Form_Click()■Dim N%■N = Val(InputBox(请输入年份, 提示框))■If (N Mod 400 = 0) Or (N Mod 4 = 0 And N Mod 100 0) Then■ Print N 年是闰年■ Else■Print N 年不是闰年■End If■End Sub @@@用inputbox输入三个数据，判断是否能够成三角形，是就输出面积 Private Sub Form_Click()■Dim a!, b!, c!, s!, x! ■ a = Val(InputBox(Enter A=?))■b = Val(InputBox(Enter B=?))■c = Val(InputBox(Enter C=?))■If a + b c And b + c a And a + c b Then■x = (a + b + c) / 2■s = Sqr(x * (x - a) * (x - b) * (x - c)) ■Print S=; s■Else■Print 数据有错,不能构成三角形■End If■End Sub @@@计算分段函数值 Private Sub Command1_Click()■Dim x#, fx #■x = Val(InputBox(输入x=?))■If x 0 And x -3 Then■fx = x * x + x - 6■ElseIf x = 0 And x 10 And x 2 And x 3 Then■fx = x * x - 5 * x + 6■Else■fx = x * x - x - 1■End If■Print x= ; x; f( x )=; fx■End Sub @@@1至10的阶乘的和 Dim i%， s, t■t = 1■For i = 1 To 10■t = t * i■s = s + t■Next i■Print S= s @@@计算1至10阶乘的倒数（每相邻的项正负不一样）的和 Dim i%, s!, n!, t!, f%■i = 1■s = 0■n = 1■t = 1■f = 1■Do While t 0.000001■s = s + f * t■i = i + 1■n = n * i■t = 1 / n■f = -f ■Loop■Print S=; s @@@显示水仙花数 Private Sub Form_Click()■Cls■Dim i%, h%, t%, o%■For i = 100 To 999■h = i \ 100■t = (i \ 10) - h * 10■o = i Mod 10■If i = h ^ 3 + t ^ 3 + o ^ 3 Then■Print i 是水仙花数■End If■Next i■End Sub @@@求a的立方根 Dim a #, x0#, x1#■a = Val(InputBox(“输入a=?”)■x0 = a■x1 = 2 / 3 * x0 + a / (3 * x0 * x0) ■Do While Abs(x1 - x0