非常风气网www.verywind.cn
首页
vb设计加减法
我想要一个
用VB
6.0编的
加减法
程序,点了控件“加法”“减法”才可以在...
答:
在窗体上放2个命令按纽,3个文本框,2个标签,如图,代码如下 Option Explicit: Dim a As Double, b As Double Private Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)If Text1.Text <> "" And Text2.Text <> "" Then Text3.Text = a + b End If Label1.Caption...
vb
做
加减法
问题
答:
Val(Text1.Text)+ Val(Text2.Text)Text1.Text是字符串,用+就直接连接起来了,所以用Val转换成数值型再做加法.
(
VB
)
设计
一个简单的
加减法
计算器,输入两个数,然后选择所需的运算符...
答:
这是一个带菜单的,可以用鼠标右键,你要的话我给你发过去,我的mail: fudi850@163.com Option Explicit Private Sub Command1_Click()Unload mnu(1)End Sub Private Sub Form_Load()mnu(0).Caption = "chengfang"mnu(0).Visible = True Load mnu(1)mnu(1).Caption = "lifang"mnu(1).Vis...
VB
:
设计
一个100以内
加减法
运算的计算程序
答:
Private Sub Command1_Click()Text1 = Int(Rnd() * 99 + 1)Text2 = Int(Rnd() * 99 + 1)Text3 = ""End Sub Private Sub Command2_Click()If Val(Text3) = Val(Text1) + Val(Text2) ThenLabel1.Caption = "恭喜你回答正确。"ElseLabel1.Caption = "X 正确答案为:" & Va...
怎么
用VB
做出角度的
加减法
程序
答:
2),b%(2),c%(2),i for i=0 to 2 a(i)=val(inputbox("输入a的度/分/秒"))b(i)=val(inputbox("输入b的度/分/秒"))c(i)=a(i)+b(i)next msgbox(c(0)+((c(1)+ c(2)\60))\60 & "度" & (c(1)+ c(2)\60)mod 60 & "分" & c(2) mod 60 & "秒")...
vb
练习一百内
加减法
程序,不是计算器
答:
界面按下图
设计
:在运行前把 Text1 和 Text2 的 Locked 属性调为 True。以下为代码:Private Sub Command1_Click() '答题正误判断 If Label1.Caption = "+" Then If Val(Text3.Text) <> Val(Text1.Text) + Val(Text2.Text) Then Label3.Caption = "你答错了!! 请重试. "...
VB
制作
加减法
计算器
答:
按钮名称是command1,文本框名称分别是text1和text2和text3,组合框名称是combo1,代码如下:Private Sub Form_Load()Combo1.Text=""Text1=""Text2=""Text3=""Combo1.AddItem "+"Combo1.AddItem "-"Combo1.AddItem "*"Combo1.AddItem "/"Command1.Caption="计算"End Sub Private Sub Command...
vb
练习一百内
加减法
程序,不是计算器
答:
Dim b As Long Dim c As Long Private Sub Command1_Click()a = Text1.Text b = Text2.Text c = Text3.Text If a + b = c Then MsgBox "恭喜您!回答正确", , "提示"Else MsgBox "回答错误,请重新做题!", , "提示"End If End Sub Private Sub Command2_Click()a = Text1....
用vb设计
出随机出10道10以内的
加减法
,怎么写程序?
答:
Private Sub Command1_Click()Randomize Dim a(10) As Integer, b(10) As Integer Dim c As Integer For i = 0 To 9 a(i) = Int(Rnd * 10)b(i) = Int(Rnd * 10)c = Int(Rnd * 2)If c = 0 Then Print a(i) & " + " & b(i) & " = " & a(i) + b(i)Else ...
VB
编程 10以内
加减法
答:
public a,b,c,n ,p as int a=rnd*10 (text1.text=a)b=rnd*10 (text2.text=b)判断符号,如果是加号,则 c=a+b 如果是减号,则 c=a-b if val(trim(text3.text))=c then a=rnd*10 b=rnd*10 p=P+1 (p做为统计)else n=n+1 if n=3 then a=rnd*10 b=rnd*10...
1
2
3
4
5
6
涓嬩竴椤
你可能感兴趣的内容
vb加减乘除运算程序
vb加减乘除程序设计怎么做
vb设计一个简易计算器
用vb编写一个加法运算
vb乘法运算代码怎么写
vb加减乘除运算代码
窗体实现加减乘除窗体代码
vb加减乘除代码
vb两数相加代码
本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
©
非常风气网