在网友发出求解请求：

解答如下：

程序测试：

代码：

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

运行结果：

总结：