越剧甄嬛传上本张宇峰:帮我编个程序,让我复制一下

来源:百度文库 编辑:高校问答 时间:2024/03/29 13:55:16
就是 随便输入4个数(1到26),随便的加,减,乘,除(可以只用加或减) 急啊
用VB 在Excl中的宏里可以用

这个是我做的,有加减乘除和MOD和整除。
Command1为+
Command2为-
Command3为*
Command4为/
Command5为\
Command6为MOD
Command7为重新
Command8为消除
Command9为退出
在设置三个文本框
text1 text2 text3
在设置两个label
label1的CAPTION属性为空(放在TEXT1和TEXT2的中间)
label2的CAPTION属性为=(放在TEXT2和TEXT3的中间)
如果你要用自己输入四个数
那就用inputbox来做就行了!
具体你在自己想一下!

Option Explicit

Private Sub Command1_Click()
If Text1.Text = " " Or Text2.Text = " " Then
MsgBox "无数值!"
Else
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Label1.Caption = "+"
End If
End Sub

Private Sub Command2_Click()
If Text1.Text = " " Or Text2.Text = " " Then
MsgBox "无数值!"
Else
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Label1.Caption = "-"
End If
End Sub

Private Sub Command3_Click()
If Text1.Text = " " Or Text2.Text = " " Then
MsgBox "无数值!"
Else
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Label1.Caption = "*"
End If
End Sub
Private Sub Command4_Click()
If Text1.Text = " " Or Text2.Text = " " Then
MsgBox "无数值!"
Else
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
Label1.Caption = "/"
End If
End Sub
Private Sub Command5_Click()
If Text1.Text = " " Or Text2.Text = " " Then
MsgBox "无数值!"
Else
Text3.Text = Val(Text1.Text) \ Val(Text2.Text)
Label1.Caption = "\"
End If
End Sub

Private Sub Command6_Click()
If Text1.Text = " " Or Text2.Text = " " Then
MsgBox "无数值!请点击重新按钮!"
Else
Text3.Text = Val(Text1.Text) Mod Val(Text2.Text)
Label1.Caption = "%"
End If
End Sub

Private Sub Command7_Click()
Randomize
Text1.Text = Int(Rnd * 26) + 1
Text2.Text = Int(Rnd * 26) + 1
Label1.Caption = " "
Text3.Text = " "
End Sub

Private Sub Command8_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Label1.Caption = " "

End Sub

Private Sub Command9_Click()
End
End Sub

Private Sub Form_Activate()
Randomize
Text1.Text = Int(Rnd * 26) + 1
Text2.Text = Int(Rnd * 26) + 1
End Sub
Private Sub Text1_Change()
Text2.SetFocus
End Sub

Private Sub Text2_Change()
Text1.SetFocus
End Sub

这小学生好像都不得会学到这!!

但你这问题描述得太模糊了!好看来好像个大问题一样!!

你再写一个补充,仔细地描述一下,,上面的这些师兄们

只要 5 分钟就给你写回复了!!问题就又快又好地解决了哈!

这种随便用那一种编程语言都可以轻松实现啊
操作系统不是本身就有一个计算器吗?你想用它来做什么啊?

看不懂题目,说明白一点啊
还有,要用什么语言编?

VisualBasic,VisualC++都可以用的

用什么编?