求VBnet程序源代码绘图板、二十一点游戏、计算器、井字棋游戏、屏幕保护程序等
求VB.net程序源代码 绘图板、二十一点游戏、计算器、井字棋游戏、屏幕保护程序等
说明：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
求VB.net程序源代码 绘图板、二十一点游戏、计算器、井字棋游戏、屏幕保护程序等
Comments
Post a Comment