Simone我的程序
的有关信息介绍如下：
Private Sub Command5_Click()Dim a, b, c As Integera = Val(txta.Text) '将txta.Text里的内容转化为数值型,然后再赋给ab = Val(txtb.Text) '将txtb.Text里的内容转化为数值型,然后再赋给bSelect Case txtfuhao.Text Case "+" c = a + b Case "-" c = a - b Case "x" c = a * b Case "如游搭÷" c = a / bEnd Select txtc.Text = cEnd Sub再建立一个清除按钮渣拿，如下：Private Sub Command6_Click()txta.Text = "" '将空字符输入到文本框内（刷新）txtb.Text = "" '将空字符输入到文本框内（刷新）txtc.Text = "" '将空字符输入到文本框内磨樱（刷新）txtfuhao.Text = "" '将空字符输入到文本框内（刷新）End Sub
