用vb编写函数(11个结果)

最佳答案：在窗体上添加一个按钮,加入如下代码“Private Sub Command1_Click()Dim N '因为你说的是任意正整数,所以没有给变量指定变量类型Di

最佳答案：MaxOrMin 指示返回最大还是最小.Private Function Math(ByVal num1 As Integer,ByVal num2 As In

最佳答案：DoIf r 0 Thenm = nn = rr=m mod nEnd IfLoop Until (r = 0)

最佳答案：呵呵,就是编函数,计算1000以内偶数的和function sum_of_even() as integerint i,s=0for i=2 to 1000 s

最佳答案：Function sum(n) As Doublesum = 0For i = 1 To nIf i Mod 2 = 0 Then sum = sum + i

最佳答案：Function isprime(Num As Long) As BooleanIf Num < 2 Then isprime = False:Exit Fun

最佳答案：哈慢慢想吧

最佳答案：假设文本框为TEXT1,标签为LABEL1,函数代码如下：public sub testnum()dim x as longx=cint(text1.text)

最佳答案：Private Sub Command1_Click()x = Text1.Texts = 1a = 1Dok = k + 1a = a * -1 * x ^

最佳答案：第一题答案：Option ExplicitPrivate Sub Command1_Click()Dim n As Integern = Val(InputBo

最佳答案：'第一个问题示例代码：Private Sub Form_Click() Do x = InputBox("请输入一个整数：") Loop Until IsNum