VB里计算器怎么制作
来源:百度知道 编辑:UC知道 时间:2024/05/23 23:43:07
在Form_Load事件里给变量初赋值:
Num1 = 0
Num2 = 0
StrNum1 = ""
StrNum2 = ""
FirstNum = True
这个是什么意思?
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 To 9
If FirstNum Then
StrNum1 = Str(Index)’实型转字符型
FirstNum = False’初赋值为假
Else’非初赋值
StrNum1 = StrNum1 + Str(Index)
End If
Text1.Text = StrNum1’显示
<还有其他语句,等待插入>
End Select
End Sub
缺少什么?
该怎么输入
菜鸟苦啊~~~
各位高手帮帮小弟
看不懂。。。。
Num1 = 0
Num2 = 0
StrNum1 = ""
StrNum2 = ""
FirstNum = True
这个是什么意思?
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0 To 9
If FirstNum Then
StrNum1 = Str(Index)’实型转字符型
FirstNum = False’初赋值为假
Else’非初赋值
StrNum1 = StrNum1 + Str(Index)
End If
Text1.Text = StrNum1’显示
<还有其他语句,等待插入>
End Select
End Sub
缺少什么?
该怎么输入
菜鸟苦啊~~~
各位高手帮帮小弟
看不懂。。。。
具体是什么情况能说明白点吗 一定还有别的按键吧
应该接着写的一句应该是 (插入的语句)
num1 = val(strnum1)
case '下边的代表加减乘除的运算符的语句
num2 = num1
我不太清楚具体界面是怎么设计的 能说清楚点么 不然按照这个思路写下去
不一定是对的
最简单的就是在窗体上放3个text控件,一个command控件,为 text1,text2,text3,command1
示例代码如下
dim Num(1) as long
Num(0) = val(text1.text) '获取text1的值赋予Num(0)
Num(1) = val(text2.text) '获取text2的值赋予Num(1)
text3.text = Num(0) + Num(1) '加法运算
text3.text = Num(0) - Num(1) '减法运算
text3.text = Num(0) * Num(1) '乘法运算
text3.text = Num(0) / Num(1) '除法运算