请教问题，关于计算器高位不能出现0的问题 求解谢谢了！_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：52,293贴子：
请教问题，关于计算器高位不能出现0的问题 求解谢谢了！收藏
一．实验目的 用vb语言编写一个简易计算器 二．实验要求
1．能够完成浮点数的加，减，乘，除；（平方等） 2．能够实现退格和清除功能； 3．初始值为0.0； 4．小数点不能重复输入； 5．高位数的0不出现； 6．应用控件数组实现。 三．控件属性列表
1、创建控件组的方法
a、首先创建一个命令按钮，调整其大小 — 宽、高为 495，名称为Command1，aption 属性为数字 0 。 b、然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其 Caption 属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共19个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。 c、建立其他控件：如右图所示 2、各控件属性设置如下： 控
件 控件 名称 Caption 控件 名称 Caption 窗体 Form 1 计算器 按钮 Command 2（0） + 按钮 Command 3 退格 按钮 Command 2（1） - *¸按钮 Command 4 . 按钮 Command 2（2）
按钮 Command 5 = 按钮 Command 2（3） / 按钮 command 6 + 按钮 Command 7 ± 按钮 Command 1（0）～Command1（9）
各个属性修改后得到如图所示的界面
程序如下 Dim shu1 As Single, shu2 As Single, suanfu As String '定义两个单精度数变量用与存放参与运算的数,一个字符型存放运算符 Private Sub Command1_Click(Index As Integer) Text1.Text = Text1.Text & Command1(Index).Caption '将command1的单击事件与文本框显示的内容连接 End Sub Private Sub Command2_Click(Index As Integer)
shu1 = Val(Text1.Text)
'将shu1隐藏起来
suanfu = Command2(Index).Caption
Text1.Text = "" End Sub Private Sub Command4_Click()
Text1.Text = Text1.Text + "." If (InStr(Text1.Text, ".") = 1) Then
'第一位不能为小数
Text1.Text = ""
End If If InStr(Text1.Text, ".") & Len(Text1.Text) Then
'防止出现两个小数点 Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End Sub Private Sub Command5_Click()
'开始加减乘除的运算 shu2 = Val(Text1.Text)
Select Case suanfu
Text1.Text = shu1 + shu2
Text1.Text = shu1 - shu2
Text1.Text = shu1 * shu2
If shu2 = 0 Then MsgBox "分母不能为零!", 1 + 32 + 0,
'错误提示框图下所示
Text1.Text = ""
Text1.Text = shu1 / shu2
End Select
Private Sub Command3_Click()
'假如输入错误,可每次退后一格 If Text1.Text = "" Then Exit Sub End If Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) End Sub Private Sub Command6_Click()
Text1.Text = ""
'清除 End Sub Private Sub Command7_Click()
'平方运算 Text1.Text = Text1.Text * Text1.Text End Sub Private Sub Command8_Click() If Left(Text1.Text, 1) && "-" Then Text1.Text = "-" & Text1.Text
Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1) End If End Sub
Private Sub Form_Click() a = Int(Rnd() * 255) b = Int(Rnd() * 255) c = Int(Rnd() * 255) Form1.BackColor = RGB(a, b, c) End Sub
这个程序完成之后
怎么让高位上不出现0在这个程序上修改 谢谢了
用if语句判断
具体的 能不能编写一下啊
我弄了一下午了 都没弄出来
一两句也说不清，加我QQ
需要回答问题啊
那个问题是没有答案的，随便写几个字就行
登录百度帐号我的游戏推荐游戏
后查看最近玩过的游戏
为兴趣而生，贴吧更懂你。或您还未登陆，请登录后操作！
求一个网络游戏昵称！！
请教一个好的名子。谢谢大家。
远山流兰。
回答数：185
您的举报已经提交成功，我们将尽快处理，谢谢！请教高手解决第三题，谢谢_百度知道
请教高手解决第三题，谢谢
S三角形=15=1/2*6*底底=5S梯形=【（20+5）】*6/2=75
其他类似问题
按默认排序
其他1条回答
直接图画形
形面积S=6*20=120
梯形面积=形面积-阴影面积=120-15=105cm*2
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁为什么传真机老是接到卖发票的广告纸？请教大侠解决下，谢谢_百度知道
为什么传真机老是接到卖发票的广告纸？请教大侠解决下，谢谢
我有更好的答案
按默认排序
不需搭理，你也不能拒收的呀，你根本不需理会。何必在意
不能不理呀，浪费好多A4纸.
那你不能这样想啊，要不你在电脑设置，把你客户的传真都输入进去，不过我觉得不好。我们也会收到这些，不过也奈何不了。你想想，做大事要不拘小节。好吧。
留个QQ号 ？
把自动接收关闭。
其他类似问题
传真机的相关知识
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁如何解决地下车库夏天雾气问题？我们小区地下车库大，到夏天后温差一大全是水汽，请教如何解决？？谢谢_百度知道
如何解决地下车库夏天雾气问题？我们小区地下车库大，到夏天后温差一大全是水汽，请教如何解决？？谢谢
24风机效明显高招
我有更好的答案
用洗洁精防雾雾车窗玻璃没伤害其具体做水浸湿布倒洗洁精挡风玻璃内侧擦遍效保持20内结雾外些土办能起作用比挡风玻璃涂抹层薄薄甘油、酒精或盐水作防雾剂防止玻璃短间内结雾
其他类似问题
地下车库的相关知识
您可能关注的推广回答者：回答者：回答者：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}