求VBnet程序源代码绘图板二十一点游戏计算器井字
说明:1.共有4个文本框其,其中三个是填入或输出数据的(名称分别是:txta txtb txtc),剩下的那个是符号(txtd)2.共7个按钮,4个是符号按钮,一个计算,一个清零.这是我弄的程序”袖珍计算器”代码也是自己编写的,代码如下:通用声明Dim j As Integer 定义j为整型 Private Sub Text1_Change()End SubPrivate Sub Command1_Click() txtfuhao.Text = "+" 将”+”显示到文本框txtfuhao.Text中 End SubPrivate Sub Command2_Click() txtfuhao.Text = "-" 将”-”显示到文本框txtfuhao.Text中 End SubPrivate Sub Command3_Click() txtfuhao.Text = "×" 将”×”显示到文本框txtfuhao.Text中 End SubPrivate Sub Command4_Click() txtfuhao.Text = "÷" 将”÷”显示到文本框txtfuhao.Text中 End Sub Private Sub Command5_Click() Dim a, b, c As Integer a = Val(txta.Text) 将txta.Text里的内容转化为数值型,然后再赋给a b = Val(txtb.Text) 将txtb.Text里的内容转化为数值型,然后再赋给b If txtfuhao.Text = "+" Then 运算过程 c = a + b 运算过程 ElseIf txtfuhao.Text = "-" Then 运算过程 c = a - b 运算过程 ElseIf txtfuhao.Text = "÷" Then 运算过程 c = a / b 运算过程 ElseIf txtfuhao.Text = "×" Then 运算过程 c = a * b 运算过程 Else j = MsgBox("您输入的符号不正确", vbOKOnly, "错误信息") End If txtc.Text = c 将运算结果c输出到文本框txtc中 End SubPrivate Sub Command6_Click() txta.Text = "" 将空字符输入到文本框内(刷新) txtb.Text = "" 将空字符输入到文本框内(刷新) txtc.Text = "" 将空字符输入到文本框内(刷新) txtfuhao.Text = "" 将空字符输入到文本框内(刷新) End SubPrivate Sub Command7_Click() End 结束程序 End SubPrivate Sub Form_Load()End Sub百家乐技巧 |
游戏问答的相关游戏攻略文章
- 10-05百家乐无需故步自封 打法缩
- 10-05博世界:百家乐点数的认识
- 10-05有哪些特别赚钱的野路子
- 10-05看牌游戏为什么看什么少什牌
- 10-05最近看了下国产的音箱品牌同价位或
- 10-05欢乐斗地主的段位都有什么