循环实验VB作业
VB循环程序例题100道附答案解析
VB循环程序例题附答案1.素数1. [100，999]范围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字；⑵该数是素数; 求有多少个这样的数？15n = 0For i = 100 To 999a = i \ 100b = i \ 10 Mod 10c = i Mod 10If (c + b) Mod 10 = a Thenx = 0For j = 2 To i - 1If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Then n = n + 1End IfNext iPrint n2. [300，800]范围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字；⑵该数是素数；求满足上述条件的最大的三位十进制数。
761 For i = 300 To 800a = i \ 100b = i \ 10 Mod 10c = i Mod 10If (c + b) Mod 10 = a Thenx = 0For j = 2 To i - 1If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Then s = iEnd IfNext iPrint s3. 除1和它本身外，不能被其它整数整除的正整数称为素数（注：1不是素数，2是素数）。
若两素数之差为2 ，则称两素数为双胞胎数，问[31,601]之间有多少对双胞胎数。
22n = 0For i = 31 To 601 - 2x = 0If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Theny = 0For j = 2 To Sqr(i + 2)If (i + 2) Mod j = 0 Then y = 1: Exit ForNext jIf y = 0 Then n = n + 1End IfNext iPrint n4. 数学家哥德巴赫曾猜测：任何大于6的偶数都可以分解成两个素数（素数对）的和。
【测试】分支循环测试作业(VB第五章测试题)
【测试】分支循环测试作业(VB第五章测试题)我的试卷得了88.0分1。
单一主题:(4.0分)有以下步骤:私有子命令1 _ click () x = inputbox (\选择案例x案例大于0 y = x + 1案例Is = 0 y = x + 2案例Else y = x + 3结束选择打印x；Y端Sub 假设运行时从键盘输入-5，输出结果是_ _ _ _ _ _a.-5-2-5-4-5-3-5-5b.c.d.答案:A参考答案:A2。
单一主题:(4.0分)执行以下程序段，结果为_ _ _ _ _ _X = 2Y = 1如果X * Y 0A。
真b.假-1 1c .d .答案:B参考答案:B3。
单一主题:(2.0分)关于陈述如果x=1那么y=1，下面的陈述是正确的_ _ _ _ _ _x=1和y=1是赋值语句x=1和y=1是关系表达式x=1是关系表达式，y=1是赋值语句x=1是赋值语句，Y=1是关系表达式a .b .C .d .答案:C参考答案:C单项选择:(2.0分)在Select Case语句结构中，测试项目有三种形式，正确的是_ _ _ _ _ _ 案例20>Is案例x9和IsxA。
B。
C。
D。
:D参考答案:D5。
单一主题:(4.0分)在表单上绘制一个名为Command1的命令按钮和两个分别名为Text1和Text2的文本框。
然后编写以下事件过程:private子命令1 _ click()n = text 1 . text select casen case 1到20x = 10case2，4。
6x = 20例x = 30例10x = 40结束选择文本2。
text = x end sub程序运行后，如果在文本1中输入10，然后单击命令按钮，则文本2中显示的内容是_ _ _ _ _a.10 20 30 40b.c.d.答案:A参考答案:A单一主题:(4.0分)运行以下程序。
如果输入85，输出结果为_ _ _ _ _调暗a As Integer，i As Integer a = InputBox(\如果a > 60，则i = 1如果a > 70，则i = 2如果a > 80，则I = 3如果a > 90，则i = 4打印\a.i = 1i = 2i = 3i = 4b.C。
VB实验四
VB实验四循环结构
【实验目的】
1.For—NEXT循环结构
2.DO—LOOP循环结构
【复习】
For循环语句 (一般用于循环次数已知)：
For 循环变量＝初值to 终值[Step 步长]
语句块
[Exit For]
语句块
Next [循环变量]
DO WHILE—LOOP循环语句(一般用于循环次数未知)：
Do While <条件表达式>
语句块
[Exit Do]
语句块
Loop
【实验内容】
1.求表达式1！+2!+…+10！的值。
2.设一张纸厚0.5mm，面积足够大，将这张纸对折多少次后，其厚度可达到（珠穆朗玛峰）8848m，编程计算对折次数。
3．求所有三位数的水仙花数，所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。
例如，153是水仙花数，因为153=13+53+33。
可以用三重循环或者一重循环实现。
可参考例3.12。
4.计算不定方程
22
x y10000
x y
⎧+=
⎨
⎩≤共有多少组自然数解（注意自然数包含0）
5 求两自然数m、n的最大公约数和最小公倍数。
VB实验任务9答案
课程名称：程序设计基础VB 实验名称——实验九循环结构程序设计实验1阅读程序，人工列表写出下列循环的运行次数和执行结果(注意输出格式)，并上机验证结果，并充分使用单步调试工具（单步执行、立即窗口、本地窗口和监视窗口），弄清楚循环执行流程，以及相应变量值的变化情况。
（1）（2） Tab(8-I)将输出位置定位到第8-i列；String(I,Trim(Str(i)))输出i个相同的字符I（3）（4）实验2我国现有13亿人口，设年增长率为1%，编写程序，计算多少年后增加到或超过20亿？Private Sub Form_Click()Dim n As Integer, peoplenum As Doublepeoplenum = 13Don = n + 1peoplenum = peoplenum * (1 + 0.01) ‘或者peoplenum = 13 * (1 + 0.01)^nLoop Until peoplenum >= 20 ‘或者While peoplenum < 20Print n; "年后我国人口将达到"; peoplenum; "亿"End Sub实验3将10进制数转化成2进制数。
Private Sub CmdTrans_Click()Dim B As String, x As Double, r As Integerx = Val(TxtD)If Int(x) = x And x > 0 Then ‘对输入的一个10进制正整数x进行数据有效性的判断 Dor = x Mod 2 ‘将x除以2，记录余数rx = x \ 2 ‘x整除2的商作为下一次的被除数xB = CStr(r) & B‘逆序连接每一次的余数rLoop Until x = 0 ‘x整除2的商为0结束TxtB = B ‘通过文本框TxtB输出显示结果Else ‘若输入数据x不符合题目要求，则给出出错提示信息MsgBox "必须输入一个正整数！", vbExclamation, "输入错误"TxtD = ""TxtD.SetFocusEnd IfEnd Sub实验4实验8-1Private Sub Form_Click()Dim m As IntegerDoIf m Mod 2 = 1 And m Mod 3 = 2 And m Mod 4 = 3 And m Mod 5 = 4 And m Mod 6 = 5 And m Mod 7 = 0 Then Print mExit DoEnd Ifm = m + 1LoopEnd Sub实验5书后习题1随机产生20个两位正整数，分别统计其中偶数和奇数的个数，以及各类的数据之和。
VB循环结构上机题
循环结构及常见算法
作业1：求1×1+2×2+…+100×100之和。
作业2：求1+（1×2）+（1×2×3）+…+(1×2×3×…×n)的值。
n 由用户指定。
作业3：输入任意一个正整数，将其反向输出。
如输入1234，输出4321。
作业4：求圆周率∏的近似值。
公式为4∏= 1-31+51-71…+（-1）（n+1）×121-n ，直到最后一项的绝对值小于0.0001 为止。
（累加算法）
提示：先用公式计算，最后乘个4就是圆周率∏的结果,结果为：3.141397 方法一：
方法二：
作业5：若口袋里放12个球，3个红的，3个白的，6个黑的，从中任取8 个，编写程序，列出所有可能的取法。
（穷举算法）
作业6：有一分数序列
12、23、35、5
8……，求这个数列前20 项之和。
（迭代/累加算法）
提示：运行结果为32.66026
作业7：求S=a+aa+aaa+…+aaa(n个a)。
其中a是一个随机函数产生的[1，9]的一个整数，n 是一个随机函数产生的[2，9]之间的一个整数。
如a=2，n=4，则求S=2+22+222+2222。
（迭代/累加算法）。
VB实验二 实验报告
实验报告二实验目的（1）掌握基本循环控制结构（For-Next、While-Wend、Do-Loop）语句（2）掌握循环嵌套结构（3）掌握素数算法（4）掌握控制结构相关控件（列表框、组合框等）（5）能综合运用循环控制结构解决较复杂的问题实验内容【实验1】编写一个简易计算器编写程序计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+…当第i项的值<10-5时计算结束结束。
实验结果：【实验1 代码】【实验1 典型结果】【实验2】将200~300之间的素数输出到列表框中实验结果：【实验2 代码】【实验2 典型结果】【实验3】编写程序，在窗体上输出上三角形式的九九乘法表。
实验结果：【实验3 代码】【实验3 典型结果】【实验4】从键盘输入10个整数，存放在一个一维数组中，然后将前5个元素与后5个元素交换，即第1个与第10个交换，第2个与第9个交换……实验结果：【实验4 代码】【实验4 典型结果】【实验5】静态声明一个二维数组，输入和输出该数组各元素的值要求：1.计算并输出数组主对角线和次对角线元素的和。
2.交换1、3行后输出整个数组的值3.交换数组的行与列后输出整个数组的值12345678910111213141516171819202122232425⎡⎤⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎢⎥⎣⎦实验结果：【实验5 代码】【实验5 典型结果】【实验6】编写程序，将随机产生的1000个[1000,99999]范围内的随机整数存入数组，然后分别用“比较交换法”、“选择法”、“冒泡法”进行升序排序实验结果：【实验6 代码】【实验6 典型结果】【选做1】编写程序，输入X，要求计算精度10-6，求sinX ，计算公式如下所示实验结果：【选做1代码】)!1n2(x)1(...!7x!5x!3x1x(x)sin1n21n753--++-+-=--【选做1典型结果】【选做2】任意输入一个或者多个英文句子，统计这些句子中的单词数量实验结果：【选做2代码】【选做2典型结果】【选做3】利用一维数组，统计一个班学生成绩0~59，60~69，70~79，80~89，90~100各分数段的人数，生成一个各分数段的柱状图。
【测试】分支循环测试作业（VB第五章测试题）
【测试】分⽀循环测试作业（VB第五章测试题）我的试卷测试得分： 88.0 分1. 单选题：（4.0分）有如下程序：Private Sub Command1_Click()x = InputBox("input value")Select Case xCase Is > 0y = x + 1Case Is = 0y = x + 2Case Elsey = x + 3End SelectPrint x; yEnd Sub假设运⾏时从键盘上输⼊-5，输出结果是_______。
A. -5 -2B. -5 -4C. -5 -3D. -5 -5解答：A参考答案： A2. 单选题：（4.0分）下列程序段的执⾏结果是_______。
X = 2Y = 1If X * Y < 1 Then Y = Y - 1 Else Y = -1Print Y - X > 0A. TrueB. FalseC. -1D. 1解答：B参考答案： B3. 单选题：（2.0分）关于语句If x=1 Then y=1，下列说法正确的是_______。
A. x=1和y=1均为赋值语句B. x=1和y=1均为关系表达式C. x=1为关系表达式，y=1为赋值语句D. x=1为赋值语句，y=1为关系表达式解答：C参考答案： C4. 单选题：（2.0分）Select Case 语句结构中，测试项可以有三种形式，以下使⽤正确的是_______。
A. Case 20>IsB. Case x<=8 ，10 to 25C. Case Is>9 And Is<25D. Case Is>x解答：D参考答案： D5. 单选题：（4.0分）在窗体上画⼀个名称为Command1的命令按钮和两个名称分别为Text1、Text2的⽂本框，然后编写如下事件过程：Private Sub Command1_Click()N = Text1.TextSelect Case NCase 1 To 20X = 10Case 2, 4, 6X = 20Case Is < 10X = 30Case 10X = 40End SelectText2.Text = XEnd Sub程序运⾏后，如果在⽂本框Text1中输⼊10，然后单击命令按钮，则在Text2中显⽰的内容是____A. 10B. 20C. 30D. 40参考答案： A6. 单选题：（4.0分）运⾏下⾯程序，如果输⼊85，则输出结果是_____。
vb实验报告实验6--循环结构
MsgBox outstr, , "The Output Result " End Sub
Run
运行界面及程序清单：
（二）程序填空
图 4-12 运行界面
【实验步骤】
1．主要属性设置，无。 2. 编写事件代码：
Option Explicit Private Sub Form_Click()
Dim m As Integer, n As Integer, r As Integer m = InputBox(" 输入 m 的 值： ") n = InputBox(" 输入 n 的 值： ") Do While n <> 0 '*** ** *** **F OUN D** ** *** ***
运行界面及程序清单：
第二题
【实验要求】
运行界面如图 4-15 所示，鼠标单击窗体，在窗体上打印出以下图形。
'
*
'
***
'
*****
' *******
'
*****
'
***
'
*
【实验步骤】
1．主要属性设置，无 2. 编写事件代码：
Private Sub Form_Click() Dim i%, j%, k% For i = 3 To 0 Step -1 For j = 0 To 2 * i
【实验步骤】
图 4-14 运行界面