一道VB输出结果的小题目

发布时间：2020-12-17 07:58:24 所属栏目：百科来源：网络整理

导读：在网友发出求解请求：解答如下：程序测试：代码： Private Sub Command1_Click()a = 3b = 2c = -3d = 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 = eLabel3

在网友发出求解请求：

解答如下：

程序测试：

代码：

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

运行结果：

总结：

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!