VB编写程序,已知a+b=c,任意输入其中2个数,第三个数自动显示,用变成如何实现
Private Sub Form_Click()
Dim A(1 To 3), I, J, X As Integer
For I = 1 To 3
A(I) = Val(InputBox("请输入数字"))
Next I
For I = 1 To 2
For J = I + 1 To 3
If A(I) < A(J) Then
X = A(I)
A(I) = A(J)
A(J) = X
End If
Next J
Next I
For I = 1 To 3
Print A(I)
Next I
End Sub
自己添加一个Command1控件,代码如下:
Private Sub Command1_Click()
Dim a%, b%, c%, t%
a = InputBox("输入第一个值:")
b = InputBox("输入第二个值:")
c = InputBox("输入第三个值:")
If a > b Then
t = a: a = b: b = t
End If
If b > c Then
t = b: b = c: c = t
End If
If a > c Then
t = a: a = c: c = t
End If
Print a; "<"; b; "<"; c
End Sub
1,如果输入:a,b,则计算c = a + b
2,如果输入:a,c,则计算b = c - a
3,如果输入:b,c,则计算a = c - b
假设:Text1对应a、Text2对应b、Text3对应c
则程序代码如下:
if isnumeric(text1.text) and isnumeric(text2.text) and text3.text="" then
text3.text = val(text1.text) + val(text2.text)
elseif isnumeric(text1.text) and text2.text="" and isnumeric(text3.text) then
text2.text = val(text3.text) - val(text1.text)
elseif text1.text="" and isnumeric(text2.text) and isnumeric(text3.text) then
text1.text = val(text3.text) - val(text2.text)
end if
...等级考试二级教程2019年版——Python语言程序设计(参考答案)_百度知...
4.设n是一任意自然数,如果n的各位数字反向排列所得自然数与n相等,则n被称为回文数。从键盘输入一个5位数字,请编写程序判断这个数字是不是回文数。5.输入一个十进制整数,分别输出其二进制、八进制、十六进制字符串。答案:B A D C D D C A C D 1.输入一个年份,输出是否是闰年。#闰年...
编写一个程序,输入变量a与b的值,输出表达式a*b+10 的值
代码如下:include<stdio.h> int main(){ int a,b;printf("请输入a和b的值(以空格隔开)\\n");scanf("%d %d",a,b)printf("\\n结果为:%d",(a*b+10));return 0;} 谢谢采纳。
已知字母a的ascii是97求,B的ASCII码
字母B的ASCII码是十进制数是66。算法及计算理论原因:ASCII码中大写英文字母是连续表,B在A后面1位,因此B的ASCII码=65(十进制)+1(十进制)=66(十进制)。ASCII 码使用指定的7 位或8 位二进制数组合来表示128 或256 种可能的字符。标准ASCII 码也叫基础ASCII码,使用7 位二进制数(剩下的1位...
已知a,b均是整型变量,编写程序将a,b两个变量中的值互换.
给你两种方法 int a=2,b=3,c;1 c=a;a=b;b=c;2 a=b-a;b=b-a;a=b+a;
已知字母A的ASCII码为65。以下程序运行后的输出结果是( ) #include...
67 G a 在原来的基础上加上2,其实就是 67或者‘c'b 在’c‘的基础上加上4,就是字母G
c++ 编写一个程序,要求输入两个数a和b,计算出a和b的和,差,积,并输出...
int main(void){int a, b;printf("请输入第一个整数\\n");scanf("%d", &a);printf("请输入第二个整数(注意!这个数不能为零)\\n");scanf("%d", &b);while (b==0){printf("你输入了零!请重新输入!\\n");scanf("%d", &b);if (b!=0) break;}printf("%d+%d=%d\\n", a...
编写程序:输入一个A~乙之间的字母,输出与之左右相邻的两个字母?_百度...
include<stdio.h> main(){ char ch;scanf("%c",&ch);if(ch=='A')printf("左边Z,右边B");\/\/因为A特殊,左边是Z,所以直接输出 else printf("左边%c,右边%c",ch-1,ch+1);\/\/其他的字符减1是左边字符,加1就是右边字符 return 0;} ...
请问这道VB题怎么做?
If a > b Then If a > c Then max = a Else max = c End If Else If b > c Then max = b Else max = c End If End If End Function Private Sub Command1_Click()a = Val(InputBox(""))b = Val(InputBox(""))c = Val(InputBox(""))m = max(a, b, c) \/ (max...
有如下变量: int a,b; float c,d; 编写程序,用户从键盘输入依次输入四...
int main(){ int a = 0, b = 0;float c = 0.0, d = 0.0, s = 0.0;scanf("%d,%d,%f,%f", &a, &b, &c, &d);s = a \/ b + b * c - d;printf("s=%0.2f\\n", s);return 0;}
c语言程序设计江宝钏第一章,,编写程序;输入ab后,输出一元一次方程的解...
具体代码如下:include <stdio.h> int main(){ int a,b;while(scanf("%d %d",&a, &b) != EOF){ if(a==0)printf("x为任意实数!\\n");else printf("解为:x=%.2f\\n",(5-3*b)\/(2.0*a));\/\/此处该为2.0 } return 0;} 程序 include <stdio.h> int main(){ int a,b;...
蓟往中宝: 数学逻辑分析:1,如果输入:a,b,则计算c = a + b2,如果输入:a,c,则计算b = c - a3,如果输入:b,c,则计算a = c - b 假设:Text1对应a、Text2对应b、Text3对应c 则程序代码如下:if isnumeric(text1.text) and isnumeric(text2.text) and text3....
洞头县15321593291: a+b=c+输入任意2个数字自动求解余下的数字VB可以实现??
蓟往中宝: 这个只有lisp或prolog语言才能做到在VB中,要自己用公式实现,也只要3个:a=c-bb=c-ac=a+b
洞头县15321593291: 用vb编写a+b=c - ?
蓟往中宝: 假如:a = 1 b = 2 则代码如下:c = a + b Print "a+b=" & c
洞头县15321593291: 编写程序,求任意三个自然数的阶乘之和A!+B!+C!.在VB中怎么编写程序代码?有 - ?
蓟往中宝: Private Sub Command1_Click() a = InputBox("请输入自然数A:") b = InputBox("请输入自然数B:") c = InputBox("请输入自然数C:") sum = Factorial(a) + Factorial(b) + Factorial(c) Print sum End Sub Function Factorial(ByVal i As ...
洞头县15321593291: 用VB编写一个程序,让用户输入三个数判断该三个数能否组成一个直角三角形 - ?
蓟往中宝: vb编程不太熟,解题思路倒是可以说一下. 1.判断三个inputbox的值为不为空,如果至少有一个为空那么就提示必须输入. 2.如果三个inputbox都不为空则要判断是否都是数值型,如果至少有一个不是那么提示重新输入正确的数值. 3.判断是否...
洞头县15321593291: VB程序设计使用递归算法求P的值 P=A!+B!+C!(A,B,C是任意自然数) - ?
蓟往中宝: Private Sub Command1_Click()Dim a As Integer, b As Integer, c As IntegerDim p As Longa = Val(InputBox("A="))b = Val(InputBox("B="))c = Val(InputBox("C="))p = jc(a) + jc(b) + jc(c)Print a & "!+" & b & "!+" & c & "!=" & p ...
洞头县15321593291: 用VB编写程序,求S=A!+B!+C!,阶乘的计算分别用Sub过程和Function过程两种方法来实现 - ?
蓟往中宝: sub实现:Private Sub Command1_Click() Dim a As Long, b As Long, c As Long a = Val(InputBox("请输入一个大于0的整数A:")) b = Val(InputBox("请输入一个大于0的整数B:")) c = Val(InputBox("请输入一个大于0的整数C:")) If a > 0 And b ...
洞头县15321593291: 利用vb一级 编写程序,求满足下列条件的所有四位数ABCD的个数,该四位数是8的倍数,且A+B=B+C - ?
蓟往中宝: num=0 str="" for i = 1000 to 9999 if i mod 8= 0 then if Cint(left(Cstr(i),1))+Cint(right(left(Cstr(i),2),1))=Cint(right(left(Cstr(i),2),1))+Cint(left(right(Cstr(i),2),1)) then str=str&","&i end if end if nextResponse.Write(ubound(split(str,","))-1)109
洞头县15321593291: a+b=c,编程 - ?
蓟往中宝: 楼主你好!! c=a+b是一定的, 例如a=1,b=2,这么a+b=c,正如1+2=3,c=3, 再看c=a+b,3=1+2,不是一样吗?? 因为a+b=c,所以c=a+b. 谢谢采纳!!
洞头县15321593291: vb题 编写程序,输出30以内满足a*a+b*b=c*c关系的整数组合 - ?
蓟往中宝: Private Sub Command1_Click() For i = 1 To 30 For j = i To 30 For k = 1 To 30 s1 = i * i + j * j s2 = k * k If s1 = s2 Then Print i, j, k Next k Next j Next i End Sub