99问答网
所有问题
当前搜索:
1到100的奇数vb编程
vb
输入两个数输出之间的基数和偶数
答:
Double Dim T2 As Double Dim L As Double Dim K As Long Dim I As Long Dim TXT As String T1 = InputBox("请输入第
一
个数:", "数据输入一", "0") T2 = InputBox("请输入第二个数:", "数据输入二", "
100
") If Abs(T1 - T2) < 1 Then K =...
VB编程
数学问题
答:
Dim P, I, J, JC P = 0 For I = 1 To 9 Step 2 JC = 1 For J = 1 To I JC = JC * J Next J P = P + JC Next I Text1.Text = P End Sub '第二问 Private Sub Command2_Click()Dim M, N, S S = 0 N = 0 For M = 1 To
100
If M Mod 7 = 0 Then ...
用VB
程序利用随机函数生成
一
组数存放在数组中,把该数组的值显示在图形...
答:
k = k +
1
'新数组计数 B(k) = a(i) '新数组 End If Next i For i = 1 To k Picture2.Print B(i); '新数组输出 Next iEnd Sub 本回答由网友推荐 举报| 答案纠错 | 评论 2 2 catwym 采纳率:66% 来自团队:永霸天下 擅长:
VB
宗教 其他...
VB
大虾请教
一
下
答:
I=I+1:s=s+I 相当于I从1加到10,S把每加一次的结果累加 Next I Print s a:55 b:66 c:30 d:60 1132答案 :D 正确 以下程序段的输出结果是( )。While n<=100 当n小于等于100 n=n+1 : s=s+n 相当于n从
1到100
循环,s把每次的结果累加(即1~100累加)wend Pr...
关于
vb
for循环语句
答:
显示最后结果有很多方法,我最喜欢用的是:Msgbox(s),s就是你的结果。dim i%,s%就是申明变量,for i=1 to 100 step 2意思就是i从1循环
到100
,每步跨2,循环中s的值是前
一
循环s的值加上现在的i值,next i就是进行下一步循环。就是这样 ...
vb编程
:随机产生10个两位随机
奇数
,求其中的最大值、最小值和平均值...
答:
j = Int(Rnd *
100
) + 10 Loop a(i) = j Next i Label1.Caption = "这10个数为:"For i = 0 To 9 Label1.Caption = Label1.Caption & a(i) & " "Next i j = a(0) '求最大数 For i = 1 To 9 j = IIf(j > a(i), j, a(i))Next i Label2.Caption = ...
急!
VB
6.0 如何使用函数过程和子过程随机产生
一
个两位
奇数
?求过程及代码...
答:
函数过程:Function odd2()Xh:odd2 = Int(Rnd *
100
)If odd2 < 10 Or odd2 Mod 2 = 0 Then GoTo Xh End Function 子过程:Sub odd_2()Dim odd2wei Xh:odd2wei = Int(Rnd * 100)If odd2 < 10 Or odd2wei Mod 2 = 0 Then GoTo Xh MsgBox "生成的2位
奇数
为:" & odd2wei...
编程
计算1~
100的
所有偶数的和,结果保存到SUM中
答:
mov cx,
100
xor ax,ax Acculate:test cx,1 jnz next ;
奇数
,不累加 add ax,cx ;偶数,累加 next:loop Acculate mov SUM,ax ;保存
vb
用函数过程
1到
9中
奇数
阶乘的和
答:
Private Sub Command1_Click()Dim n,i,a,b n =
100
'假设是100之内的数 For i = 1 To n - 1 If i Mod 2 = 1 Then a = a + fc(i)Else b = b + fc(i)End If Next Print n & "之内
奇数
阶乘之和=" & a & vbNewLine & n & "之内偶数阶乘之和=" & b End Sub Funct...
VB程序设计
。在窗体上输出
100
——200之间(包括100和200)不能被3整除...
答:
用for循环
100
-200 在循环中用if判断数字能否被三整除,如果能就输出,并放入累加器中 网吧没装
vb
,写代码比较麻烦。。。(这个代码很容易写)
棣栭〉
<涓婁竴椤
4
5
6
7
9
10
8
11
12
13
涓嬩竴椤
灏鹃〉
其他人还搜