在网友发出求解请求:
解答如下:
程序测试:
代码:
Private Sub Command1_Click()
a = 3
b = 2
c = -3
d = Abs(b + c) + a * Int(Rnd + 3) + Asc(Chr(65 + a))
e = Abs(b + c)
f = a * Int(Rnd + 3)
h = Chr(65 + a)
g = Asc(Chr(65 + a))
Label2.Caption = e
Label3.Caption = f
Label4.Caption = g
Label1.Caption = d
Label8.Caption = h
End Sub
运行结果:
总结: