vbfor循环语句图案例题（关于vb循环结构的几道题··高手啊···求救·在线等······）

本文目录

• 关于vb循环结构的几道题··高手啊···求救·在线等······
• vbFOR循环的几道题请教
• 求大神教VB的for循环的两道题目
• vb for循环题目
• 有关VB for循环的习题（求过程，最好结合讲解）
• 高中的VB循环语句作业，详细见图
• 一道VB For 循环题，求解

关于vb循环结构的几道题··高手啊···求救·在线等······

完成了，在窗体上添加4个命令按钮，分别对应你的四个题，在窗体上直接输出结果，测试没问题，有疑问消息我Private Sub Command1_Click()Dim i As IntegerClsFor i = 0 To 500If isprime(i) Then Print iNextEnd SubFunction isprime(n As Integer) As Boolean ’求质数 isprime = True ’赋初值 For i = 2 To Int(Sqr(n)) If n Mod i = 0 Then ’如果能除尽 isprime = False ’证明是素数 Exit For End If Next iEnd FunctionPrivate Sub Command2_Click()Dim x(1 To 10) As IntegerRandomizeClsFor i = 1 To 10x(i) = Int(Rnd * 100)Print x(i)NextPrint "最大："; max(x())Print "最小："; Min(x())End SubFunction Min(a() As Integer) As Integer ’求最小Min = a(1)For i = 2 To 10If a(i) 《 Min Then Min = a(i)NextEnd FunctionFunction max(a() As Integer) As Integer ’求最大max = a(1)For i = 2 To 10If a(i) 》 max Then max = a(i)NextEnd FunctionPrivate Sub Command3_Click()ClsFor m = 1 To 4For i = 1 To 5Print i;NextPrintPrint Space(m);NextPrints = "abcde"For i = 1 To 5Print ss = Right(s, 1) & Left(s, 4)NextPrintFor i = 1 To 7 Step 2Print Space((8 - i - 1) / 2);Print String(i, "*")NextEnd SubPrivate Sub Command4_Click()ClsFor x = 0 To 9For y = 0 To 9For z = 0 To 9If x * 100 + y * 10 + z + y * 100 + z * 10 + z = 532 Then Print x, y, zNextNextNextEnd Sub

vbFOR循环的几道题请教

1、M=val(text1.text) N=val(text2.text) if N》M then M=N N=Mend iffor i=N To M if (i mod 2)《》0 then s=s+i end if next print s 2.for i=N to M if (i mod 5)=0 or (i mod 7)=0 then s=s+i end if next print s 3.for i=1 to n for j=1 to i s=s+j next k=k+s next print k

求大神教VB的for循环的两道题目

第一题的代码，我等会把源程序传上来，现在做第二题。Private Sub Command1_Click() Dim i As Integer, x As Integer x = Val(InputBox("请输入数据")) Print x & "的因子有：" For i = 1 To x - 1 If x Mod i = 0 Then Print i; End If Next iEnd Sub第二题上来了，经测正确无误！Private Sub Command2_Click() Dim i As Integer, x As String, n As Integer Dim a As String, b As String x = InputBox("请输入数据") n = Len(x) For i = 1 To n \ 2 a = Mid(x, i, 1) b = Mid(x, Len(x) + 1 - i, 1) If a 《》 b Then Exit For End If Next i If i 》= Len(x) \ 2 Then Print x & "是一个回纹数" Else Print x & "不是一个回纹数" End IfEnd Sub

vb for循环题目

是15~~俺运行滴我单步来解释下：i=1,j=1x=x+6在第二层循环x=3的（x=4一直是被第二层循环冲掉的，所以无视）k=1 x=x+6=9k=2 x=x+6=15---------------------i=1,j=2x=3(同样是x=4被冲掉了)k=1 x=x+6=9k=2 x=x+6=15---------------------i=1,j=3x=3(同样是x=4被冲掉了)k=1 x=x+6=9k=2 x=x+6=15---------------------i=2,j=1x=3(同样是x=4被冲掉了)k=1 x=x+6=9k=2 x=x+6=15...一直运行到i=4 j=3 k=2 x始终在4，3，15间切换 囧最后跳出整个循环 就是x=15

有关VB for循环的习题（求过程，最好结合讲解）

楼上regnad 的买鸡有问题Private Sub Command1_Click()’用100元买100只鸡，母鸡每只2元，公鸡每只1元，小鸡每只0.5元’等价:用200元买100只鸡，母鸡每只4元，公鸡每只2元，小鸡每只1元’避免小数运算 Dim 母鸡 As Integer, 公鸡 As Integer, 小鸡 As Integer For 母鸡 = 0 To 50 For 公鸡 = 0 To 100 小鸡 = 100 - 母鸡 - 公鸡 If 200 = 4 * 母鸡 + 2 * 公鸡 + 1 * 小鸡 Then _ Debug.Print "母鸡:" & 母鸡 & "只，公鸡:"; 公鸡 & "只，小鸡:" & 小鸡 & "只" Next 公鸡 Next 母鸡End Sub---------------------------------------------Private Sub Command1_Click()’（n!分之一）的和’方法1 Dim i As Double, j As Double Dim t As Double Dim n As Double n = Val(InputBox("")) t = 0 j = 1 For i = 1 To n j = j * i t = t + 1 / j Next i Debug.Print tEnd Sub---------------------------------------------Private Sub Command1_Click()’（n!分之一）的和’方法2 Dim i As Double Dim n As Double Dim t As Double n = Val(InputBox("")) t = 0 For i = 1 To n t = t + 1 / Factorial(i) Next i Debug.Print tEnd SubPrivate Function Factorial(ByVal n As Double) As Double’返回n的阶乘 Dim i As Double, t As Double t = 1 For i = 1 To n t = t * i Next i Factorial = tEnd Function

高中的VB循环语句作业，详细见图

初始s=10第一个循环：i=1、4、7、10、13、16、19，共循环7次，执行s=s+i七次，最后s=10+1+4+7+10+13+16+19=80第二个循环：j=1.2.3，共循环3次，s=s*j共执行3次，最后s=80×1×2×3=480题目中的问题：程序运行后，变量i的值是(22)，变量j的值是(4)，变量s的值是(480)，语句……+i执行的次数为(7)，语句……+j执行的次数为(3)。有什么问题请留言。

一道VB For 循环题，求解

运行的结果应该如下： i s2.6 63.2 73.8 84.4 9即i的值从2.6起，每次加0.6，共加到4.4，加了4次，4.4+0.6＝5.0，大于循环终值4.9，所以循环结束不做了。