VB中有A.B两个框,在A.B中分别输入数字a.b,先用一个函数得出a到b之间的偶数判定

来源：学生作业帮编辑：作业帮分类：数学作业时间：2024/05/05 04:11:43

VB中有A.B两个框,在A.B中分别输入数字a.b,先用一个函数得出a到b之间的偶数判定
判定之后就引用这个程序来算出a到b或者b到a之间的偶数的和,中间因为还要判断a.b的大小,急,

不是很难Function fn(a As Integer, b As Integer) As Integer '返回偶数和
    Dim st As Integer
    If a > b Then st = -1 Else st = 1 '这里确定是步增还是步减
    Dim i As Integer
    Dim sum As Integer
    For i = a To b Step st  'a ,b之间也包括a和b
        If i Mod 2 = 0 Then
            sum = sum + i
        End If
   Next
   fn = sum
End Function
再问：我想问如果是在2个TEXT框中输入A.B，在一个标签框中输出偶数和，那么整个程序应该怎么写啊。麻烦了
再答：你可以把两个文本框的值作为该函数的参数，位置不计较，并把返回值写到标签。如： Private Sub Command1_Click() Label1.Caption = fn(Val(Text1), Val(Text2)) End Sub 如果想随时改变标签值的话,可以在文本框的Change事件中设置该代码。
再问：能不能详细点说一下应该合在一起怎么写啊？不太能看懂，不好意思
再答： Function fn(a As Integer, b As Integer) As Integer '返回偶数和
    Dim st As Integer
    If a > b Then st = -1 Else st = 1 '这里确定是步增还是步减
    Dim i As Integer
    Dim sum As Integer
    For i = a To b Step st  'a ,b之间也包括a和b
        If i Mod 2 = 0 Then
            sum = sum + i
        End If
   Next
   fn = sum
End Function

Private Sub Command1_Click()
Label1.Caption = fn(Val(Text1), Val(Text2))
End Sub
Private Sub Text1_Change()
Label1.Caption = fn(Val(Text1), Val(Text2))
End Sub
Private Sub Text2_Change()
Label1.Caption = fn(Val(Text1), Val(Text2)) 'val是把文本类型转换为数值类型，要不来输入字符会出错的。
End Sub 窗体上把两个文本框，一个标签，一个按钮

VB中有A.B两个框,在A.B中分别输入数字a.b,先用一个函数得出a到b之间的偶数判定 VB [a,b]之间随机数求用VB随机生成一个范围在[a,b]之间的整数! excel中怎样使用随机函数得出【a,b】之间的随机整数,公式是什么呢? VB计算问题有公式：a+b=c,要求输入任意两个值,能求出第三个值.输入框中要求只能输入数字、小数点、负号.请大侠帮助… 用VB对A B对于的数字排列编一个程序,用递归函数 gcd(a,b)实现求两个整数 a,b 最大公因子的欧几里德算法.输入任意整数a,b,调用递输入两个正整数A,B,求A ,B的最小公倍数. VB在 VB中,与程序段：a=a+b b=a-b a=a-b功能相同的程序段是新建一个函数,名为square,计算A到B的平方和,由用户在页面输入A和B的值,调用函数计算出结果. 在VB中输入依次输入a,b,c=inputbox(prompt,tittle),print a+b+c,当输入1,2,3 字母与数字的转换我有一个字母和数字的关系表A 60 B 61……Z 85我通过什么样的公式,在A列中输入A,B列显示60