vb循环结构程序设计例题（VB（循环结构））

本文目录

• VB（循环结构）
• VB循环结构题目,如图
• VB For循环结构的题，如何写程序代码
• VB循环结构程序设计 上机题 用Do Loop Until或While …Wend循环 用π/4 π≈1-1/3+1/5-1/7+ （-1）
• VB题目：设有一下循环结构
• 用VB的循环结构编写数字金字塔
• vb循环结构设计的5个题目,好心人帮帮忙,明天要用!!急!!!!!!!
• VB循环结构程序设计
• 一道VB选择题，关于循环结构

VB（循环结构）

Private Sub Command1_Click()
Dim n As Integer, income As Long, total As Long
n = 1: income = 50000: total = 0 ’初始化变量
Do
total = total + income * ***
n = n + 1
income = income * ***
Loop While total 《 1000000
Print n - 1 ’最后一次循环n多加一次，所以此处减1
End Sub
结果：16

VB循环结构题目,如图

答案是10
外层的3个循环都是幌子， 因为每次循环的时候 x的值都被重新初始化了。所有前边n次的循环x的值再怎么+ 到最后一次 j循环还是会被 x=0 的，所以你只需要算 一遍K的循环就好了
k =1 的时候 x= x+5 = 0+5 =5
k=2, x = x +5 = 5+5 = 10,然后就跳出循环了
程序运行验证通过

VB For循环结构的题，如何写程序代码

Private Sub form_Click()’不能是form1_click
Dim M%, N%, K%, T%
M = 0: N = 0: K = 0: T = 0
For i = 1 To 10
ch = InputBox("input a character")
If ch = "q" Or ch = "Q" Then
T = T + 1
If T = 3 Then Exit For’如果T大于3，则跳出For循环
Else

If ch = "a" Or ch = "A" Then M = M + 1

If ch = "b" Or ch = "B" Then N = N + 1

If ch = "c" Or ch = "C" Then K = K + 1

’--------------------- ’判断a、b、c的个数
End If
Next i
’--------------------- ’分别打印出a b c的数量
Print "a的数量为" & M
Print "b的数量为" & N
Print "c的数量为" & K
End Sub

VB循环结构程序设计 上机题 用Do Loop Until或While …Wend循环 用π/4 π≈1-1/3+1/5-1/7+ （-1）

Module module3
Sub Main()
C********("PI = " & GetPI())
End Sub
Function GetPI() As Double
Dim i, flag As Double
Dim item, sum, temp As Double
i = 0
flag = -1
sum = ***
While True
temp = sum
flag *= -1
item = flag / (2 * i + 1)
sum += item
If *****(sum - temp) 《 ***** Then ’控制误差
Exit While
End If
i += 1
End While
Return sum * 4
End Function
End Module

VB题目：设有一下循环结构

A
Do
循环体
Loop While《条件》
的特点是在执行完循环体后再判断表达式的值。即使为假，也会执行一次。

用VB的循环结构编写数字金字塔

Private Sub Command1_Click()

For i = 1 To 9

Print Spc(9 - i);

For j = 1 To i

Print Chr(48 + j);

Next j

For j = i - 1 To 1 Step -1

Print Chr(48 + j);

Next j

Print

Next i

End Sub

vb循环结构设计的5个题目,好心人帮帮忙,明天要用!!急!!!!!!!

我会陆续把每一题的解答加上去的。
1.
如果617 716 与 716 617是不同的话就有6个，否则3个。
419、914
518、815
617、716
716、617
815、518
914、419
程序如下：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, i As Integer
i = 0
For a = 0 To 9
For b = 0 To 9
For c = 0 To 9
If ((a * 100) + (b * 10) + c) + ((c * 100) + (b * 10) + a) = 1333 Then
***** ((a * 100) + (b * 10) + c); ((c * 100) + (b * 10) + a)
i = i + 1
End If
Next c
Next b
Next a
MsgBox "共有 " & i & " 个三位数符合题意。"
End Sub
2.
f(n)max=9426875, n = 21, f(n)max的平方为 88865972265625
程序如下:
Private Sub Command2_Click()
Dim f1 As Single, f2 As Single, f3 As Single, fn As Single, n As Integer
*****
f1 = 1: f2 = 2: f3 = 3: n = 4
Do Until fn 》 5000000
fn = 3 * f1 + 2 * f2 + f3
f1 = f2
f2 = f3
f3 = fn
n = n + 1
Loop
MsgBox "小于5000000的最大项为 " & fn & "，此时n=" & n & "。即 f(n)max=f(" & n & ")=" & fn & vbCrLf & "所以f(n)max的平方为 " & (fn ^ 2)
End Sub

VB循环结构程序设计

代码如下： Private Sub Command1_Click()
Dim i As Integer
Dim strText As String
Dim Char As String
Dim n1 As Integer, n2 As Integer, n3 As Integer
strText = *****

For i = 1 To Len(strText)
Char = Mid$(strText, i, 1)
If "0" 《= Char And Char 《= "9" Then
n1 = n1 + 1
ElseIf ("A" 《= Char And Char 《= "Z") Or ("a" 《= Char And Char 《= "z") Then
n2 = n2 + 1
Else
n3 = n3 + 1
End If
Next
***** = n1
***** = n2
***** = n3
End Sub

一道VB选择题，关于循环结构

do until 是指直到什么条件下才不去循环
0其实是指条件为假 所以会执行循环
但我们不敢保证下一次循环还是为假
但至少都会循环一次
所以选B