本文目录
- 用VB的循环结构编写数字金字塔
- vb循环结构设计的5个题目,好心人帮帮忙,明天要用!!急!!!!!!!
- 一道VB选择题，关于循环结构
- VB For循环结构的题，如何写程序代码
- VB循环结构程序设计
- VB（循环结构）
- VB循环结构程序设计 上机题 用Do Loop Until或While …Wend循环 用π/4 π≈1-1/3+1/5-1/7+ （-1）
- VB循环结构题目,如图
用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
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 Me.Print ((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 IntegerMe.Clsf1 = 1: f2 = 2: f3 = 3: n = 4Do Until fn 》 5000000 fn = 3 * f1 + 2 * f2 + f3 f1 = f2 f2 = f3 f3 = fn n = n + 1LoopMsgBox "小于5000000的最大项为 " & fn & "，此时n=" & n & "。即 f(n)max=f(" & n & ")=" & fn & vbCrLf & "所以f(n)max的平方为 " & (fn ^ 2)End Sub
一道VB选择题，关于循环结构
do until 是指直到什么条件下才不去循环0其实是指条件为假 所以会执行循环 但我们不敢保证下一次循环还是为假但至少都会循环一次所以选B
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的数量为" & KEnd 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 = Text1.Text 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 Text2.Text = n1 Text3.Text = n2 Text4.Text = n3End Sub
VB（循环结构）
Private Sub Command1_Click()Dim n As Integer, income As Long, total As Longn = 1: income = 50000: total = 0 ’初始化变量Do total = total + income * 0.6 n = n + 1 income = income * 1.1Loop While total 《 1000000Print n - 1 ’最后一次循环n多加一次，所以此处减1End Sub结果：16
VB循环结构程序设计 上机题 用Do Loop Until或While …Wend循环 用π/4 π≈1-1/3+1/5-1/7+ （-1）
Module module3 Sub Main() Console.WriteLine("PI = " & GetPI()) End Sub Function GetPI() As Double Dim i, flag As Double Dim item, sum, temp As Double i = 0 flag = -1 sum = 0.0 While True temp = sum flag *= -1 item = flag / (2 * i + 1) sum += item If Math.Abs(sum - temp) 《 0.000001 Then ’控制误差 Exit While End If i += 1 End While Return sum * 4 End FunctionEnd Module
VB循环结构题目,如图
答案是10外层的3个循环都是幌子， 因为每次循环的时候 x的值都被重新初始化了。所有前边n次的循环x的值再怎么+ 到最后一次 j循环还是会被 x=0 的，所以你只需要算 一遍K的循环就好了k =1 的时候 x= x+5 = 0+5 =5k=2, x = x +5 = 5+5 = 10,然后就跳出循环了程序运行验证通过
