VB编程 创建一个过程，计算三个数平方之和

vb中输入一个数平方的方法~

可以使用动态变更控件属性的方法，一般是在Form_load的事件里面写代码
比如你要在Form1的Caption选项输入a的平方
那么可以用
Form1.Caption = a*a
如果你要在按钮Command1的Caption选项中输入a的平方
Command1.Caption = a^2
其他控件以此类推

其实这种方法可以推广到所有的属性，格式为：

控件名.要更改的属性 = 属性的值

比如说改变按钮控件的Enabled属性（此属性决定按钮控件是否可以点击），则可以在代码处写入
Command1.Enabled = True
Command1.Enabled = False

Private Sub Command1_Click()
Dim i%, a%, b%, c%
For i = 100 To 999
If Sqr(i) = Int(Sqr(i)) Then
a = Left(i, 1)
b = Mid(i, 2, 1)
c = Right(i, 1)
If a = b Or a = c Or b = c Then Print i
End If
Next i

End Sub

插入三个textbox控件，和一个command控件
private sub command1_click()
dim a,b,c as single
dim s as double
a=val(text1.text)
b=val(text2.text)
c=val(text3.text)
s=a^2+b^2+c^2
msgbox "平方和为" & s
end sub

我可以帮你啊 插入3个textbox

dim a,b,c,d as integer

a=val(text1.text)
b=val(text2.text)
c=val(text3.text)

d=a*a+b*b+c*c
print d

private sub avarage(a,b,c) as integer
avarage=a^2+b^2+c^2
end sub

这是求整数的

print
(a+b+c)^2

---

博兴县15592754488： VB编程 创建一个过程,计算三个数平方之和 - ？
年幸小儿： 插入三个textbox控件,和一个command控件 private sub command1_click() dim a,b,c as single dim s as double a=val(text1.text) b=val(text2.text) c=val(text3.text) s=a^2+b^2+c^2 msgbox ＂平方和为＂ & s end sub

博兴县15592754488： VB 编写一个程序求3个数的最大和最小值？
年幸小儿： '刚编的,运行成功 '定义2个全局变量来接收最大和最小值,另2个存放对应ABC编号 Dim Max As Integer, Min As Integer, MaxABC As String, MinABC As String Private Sub Command1_Click() Call MaxAndMin '调用过程计算一次 Picture1.Cls '清...

博兴县15592754488： VB 编程 编写程序计算:输入三个数A,B,C按从小到大输出 - ？
年幸小儿： Private Sub Form_Click() Dim a(3), temp, i, j For i = 1 To 3 a(i) = InputBox(＂请输入第 ＂ & i & ＂ 个数 ＂) Next For i = 1 To 2 For j = i + 1 To 3 If a(i) > a(j) Then temp = a(i) a(i) = a(j) a(j) = temp End If Next Next For i = 1 To 3 Print a(i),Next Print End Sub

博兴县15592754488： vb计算代码,求三个数的和,求最大数减最小数012 013 014 015 016 017 018 019 023 024 025 026 027 028 029 034 035 036 037 038 039 045 046 047 048... - ？
年幸小儿：[答案] 本人没学过 只是编程爱好者 献丑了问题1Private Sub Command1_Click()Text3 = ＂＂Dim A1 As IntegerDim A2 As IntegerDim A3 As IntegerA1 = Text2A2 = 1 & Text2A3 = 2 & Text2AAAA = Split(Text1, ＂ ＂)For Each I I...

博兴县15592754488： 编写VB程序,求三个数的最大值,函数过程为MyMax.3个数由用户通过文本框任意给出.急求!谢谢 - ？
年幸小儿： Private Sub Command1_Click() Dim a, b, c a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) MsgBox ＂最大值是:＂ & MyMax(a, b, c) End Sub Function MyMax(a, b, c) MyMax = a If MyMax

博兴县15592754488： 用VB使用子程序过程计算三数之平均数和最大值 - ？
年幸小儿： Sub jisuan() Dim a, b, c, max As Integer Dim avg As Double max = 0 a = InputBox(＂请输入第一个数字＂) b = InputBox(＂请输入第二个数字＂) c = InputBox(＂请输入第三个数字＂) avg = (a + b + c) / 3 If a > max Then max = a End If If b > max Then max = b End If If c > max Then max = c End If MsgBox(＂平均值是 ＂ & avg & ＂ 最大值是 ＂ & max) End Sub

博兴县15592754488： 用vb编写程序,求三个数的最大值 - ？
年幸小儿： 具体语法忘了 思路:设定一个变量 d if a>b then d=a else d=b end if d>c then else d=c return d d就是最大的

博兴县15592754488： vb 编写程序 输入3个数 求和和平均数？
年幸小儿： 已经通过调试,绝对能用!Private Sub Form_Click() Dim sum(3) For i = 1 To 3 sum(i) = Val(InputBox(＂请输入第＂ & i & ＂个数＂)) Print sum(i) n = n + sum(i) Next Print ＂和为:＂ & n Print ＂平均值为:＂ & n / 3 End Sub

博兴县15592754488： 用VB编写三个数比较大小的程序？
年幸小儿： private sub form1_click() dim a(3) As Integer,I As Integer,J As Integer,B as boolean form1.autoredraw=true a(1)=50 a(2)=9 A(3)=11 print ＂三个数:＂ for i=1 to 3 print a(i); next print For I=1 to 3 B=false for J=1 to I-1 if a(j)>a(j+1) then a(0)=a(j) a(j)...

博兴县15592754488： 编写一个3个数中求最大值max和最小值min的过程,然后用这个过程分别求7个数中的最大值和最小值. 用VB编写 - ？
年幸小儿： Dim a(0 to m) as Interger Dim i as Integer Dim j as Integer Dim tem as Integer For i = 1 To m - 1 For j = 1 To m - i If (a(j)tem = a(j) a(j) = a(j + 1) a(j + 1) = tem End If Next j Next i debug.print ＂Max:＂ & a(0) debug.print ＂Min:＂ & a(m) m:3或7或其它