请问vb中 calc call 我文科的学vb 没报班 最基础的都不会 知道的请认真回答啊

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/30 19:17:30
请问vb中 calc call 我文科的学vb 没报班 最基础的都不会 知道的请认真回答啊
x]OAʄMSޚI65j)Fx_ P.6.̜ݫ(դޙlysͦwb,kU'S40%?·q\| _.k/DEQ(Z=oa(VC\BA׸z ~ĨGm=~layǰ%ap6kEy$=ɾ 5:ĭ98Ryk%朻جW΂u8a/KENUȳf7ql X ͊JB;E@x)s[ dGW @&+J\I5\hVoS p0HC#べσCdnT6̾QD#/#d"%Ip

请问vb中 calc call 我文科的学vb 没报班 最基础的都不会 知道的请认真回答啊
请问vb中 calc call
我文科的学vb 没报班 最基础的都不会 知道的请认真回答啊

请问vb中 calc call 我文科的学vb 没报班 最基础的都不会 知道的请认真回答啊
首先计算机有一条calc的命令是调出计算器
其次你这问题应该和下面的差不多
你试下新建一个工程加一个文本框;一个按钮都用默认的name就可以
看不懂就不怪偶了
Private Sub Command1_Click() '按钮一的单击事件
Dim b As Long '声明b是一个整形数
b = Val(Text1.Text) '把text1的文本转换成数值类型赋值给b
Call calc(b) '调用名为calc的过程参数为b
End Sub
Public Sub calc(a As Long) '添加一个名为calc的过程参数(a 是 整形数)
a = a * 100 '让a乘以100再赋值给a
MsgBox "结果为" & a '弹出一个对话框,对话框的内容是结果为再连接变量a
End Sub
Private Sub Form_Load() '窗体的加载事件
Text1.Text = "100" '将100赋值给text1的文本
End Sub