用vb编写小算法，根据父母身高，算自己的身高，求高人指点。。。。
将vb设置成以上界面，输入以下代码
Dim Isboy As Boolean
Private Sub Command1_Click()
Dim a, b, c As Integer
If Isboy = True Then
a = Text1.Text
b = Text2.Text
c = (Val(a) + Val(b)) / 2 * 1.08
Label3.Caption = "您未来的身高为： " & c
Else
a = Text1.Text
b = Text2.Text
c = (Val(a) * 0.923 + Val(b)) / 2
Label3.Caption = "您未来的身高为： " & c
End If
End Sub
Private Sub Option1_Click()
Isboy = True
End Sub
Private Sub Option2_Click()
Isboy = False
End Sub
希望能够帮助到你！
vb编程根据父母身高计算自己身高~
if 男 then
else
end if
if 营养好 then
end if
if 体育运动多 then
end if
如上流程，具体过程不写了
不要把所有的判断语句嵌套在一起，因为要你想要判断多种状况，要这么做的话必须把判断语句分开放，不然就用Select Case语句判断，你目前的语句意思是第一句的条件成立后，再判断别的条件是否成立，这种做法的目的是确认是否满足先决条件。如果告诉我运行结果，我还能再判断些。
谁知道,用VB 编写的最小二乘法的源代码吗。
答：不懂 最小二乘法 不好意思 回答者： chenxfsoft - 同进士出身 六级 3-5 11:05 下面是用最小二乘法计算相关系数的。如果你要算系数的话，可以稍加修改。Const 标题 = "相关系数的计算"Private Function 计算相关系数(自变量数组() As Variant, 因变量数组() As Variant, 相关系数 As Variant...
关于VB访问Access数据库的问题
答：关于VB访问Access数据库的问题 5 我有一个数据库,里面有同学的名字,和身高,体重等信息,我现在想在VB中,通过选中组合框中同学的名字,然后此同学的身高,体重信息就能在相应的文本框中显示出来,我该怎么写代码,... 我有一个数据库,里面有同学的名字,和身高,体重等信息,我现在想在VB中,通过选中组合框中同学的...
VB编程:使用一维数组编写程序,随机产生10个0~100的整数,求出最大值...
答：Dim a(1 To 10) As IntegerPrivate Sub Command1_Click() Randomize For i = 1 To 10 a(i) = Int(Rnd * 101) Print a(i); Next i PrintEnd SubPrivate Sub Command2_Click() Dim max As Integer, min As Integer max = 0 min = 100 For i = ...
...身高是具有一定遗传性的,因此可以根据父亲身高预测子女成年后的身...
答：解：（1）儿子成年后的身高：0.54（m+n）；女儿成年后的身高： （0.623 m+n）．（2）当m=1.75，n=1.62时，0.54（m+n）=0.54×3.37≈1.82米；约为1.82米．
是不是父母身高高,孩子也高,父母身高矮,孩子也矮?
答：只要孩子的骨骺未闭合，骨骼还在生长期内，通过调整饮食、作息等生活习惯，就极有可能比遗传身高高出至少10厘米。不过，需要提醒的是，青春期也是骨骺闭合前的快长期，一旦错过，就无法再长高。所以，爸妈想为孩子长高助力，不妨好好把握孩子的生长高峰期。在这段时间内，更加科学地规划孩子的饮食、运动、...
想做个VB小程序
答：Private Sub Command1_Click()Dim jiegou As Double Dim t1 As Double Dim t2 As Double t1 = Val(Trim(Text1.Text))t2 = Val(Trim(Text2.Text))If Option1 = True Then ss = 56.699 + 0.419 * t1 + 0.265 * t2 Text3.Text = ss End If If Option2 = True Then ss = 40....
请用vb编写一个找出10000以内的亲密数对的小程序
答：需要两个函数，一个因子和计算，一个因子和输出。程序窗体放置一个文本框，设置其MultiLine为True。源程序如下：Option Explicit Dim I As Long, J As Long, X As Long Private Sub Form_Load()Me.Show For I = 1 To 10000 DoEvents X = Yzh(I)If X <= 10000 And I < X Then If Yzh...
VB编写以下程序: 随机产生20个100以内的正整数,按从小到大的顺序输出...
答：Private Sub Command1_Click()Dim arr(1 To 20)For i = 1 To 20 arr(i) = Int(Rnd * 99) + 1 Next For i = 1 To 20 For j = i + 1 To 20 If arr(j) < arr(i) Then a = arr(j)arr(j) = arr(i)arr(i) = a End If Next Next Print Join(arr)End Sub ...
用VB编写 VB计算公式S=1+1/3+1/5+1/7+...+1/2n-1的和,当第n项的值<10...
答：PrivateSubCommand1_Click()DimsumAsDoubleDimiAsLongDimnAsDoublen=((1/(10^-5))+1)/2'正好等于10^-5时候n的值n=Round(n+0.5,0)'对n+0.5进行四舍五入处理，保证n只要有小数点后面有数就进，不舍。Fori=1Ton'计算n项的和sum=sum+1/(2*i-1)NextiPrint"项数n为："&nPrint"n项...
编写vb:求3个数中最小值的函数过程findmin,然后调用这个过程分别求3个...
答：Private Sub Command1_Click()Dim a(1 To 5) As Integer For i = 1 To 5 a(i) = InputBox("a(" & i & ")=")Print a(i);Next i Print x = findmin(a(1), a(2), a(3))Print "前3个数的最小数是："; x Print "5个数的最小数是："; findmin(x, a(4), a(5)...
