老题目
1、下列VB程序运行时，在文本框Text1中输入20，在文本框Text2中输
Private Sub command1 click()
a=)
b=)
<=a+b
end sub
2、下列程序段中循环体执行次数是 (3)
s=0
i=0
do while s<10
i=i+1
s=s+i*i
loop
print i
print s
实际运行结果：i=3    S=14时程序结束，此时循环体执行3次。
dim a as integer
dim b as integer
dim c as integer
a=1
b=1
for i=1 to 4
c=a+b
a=b
b=c
next i
print c
5、分析下面问题，请选择最合适的算法—（C）
搬砖问题：100块砖，100人搬，一个男人搬4块，一个女人搬3块，两个小儿抬一块，要求一次全搬完，问需男、女、小儿各多少人。
A、解析法
B、递归法
C、穷举法
D、排序法
6、完善程序：考拉兹猜想又称3n+1猜想，是指对于每一个正整数，如果它是奇数，则对它乘3再加1,；如果它是偶数，则对它除以2；如此循环，最终都能够得到1。如n=6，根据上述规则得出6—3—10—5—16—8—4—2—1。（共有8个步骤）以下是验证考拉兹猜想的主要VB程序片段，请你补全代码。
n=val(inputbox("n="))
cnt =0  '统计步骤数
do while n>1
cnt=cnt+1
if n mod 2=0 then
loop
print cnt  '输出步骤数
1、VB事件过程如下
private sub command1_click()
a=)
b=a*a+1
<=b
end sub
输入2以后，第一次运行b=a*a+1，结果是5，5给a，第二次运行
b=a*a+1，结果是26。
3、写出程序运行结果
dim x as integer
dim y as integer
y=val(inputbox("y="))
for i=1 to 3
x=val(inputbox("x="))
if x<y then
y=x
end if
next i
print y      ‘程序运行后，依次输入45 96 11 37
输入４５后赋值给ｙ，９６赋值给ｘ，运行if x<y then y=x，不符合要求，ｙ值保留４５，输入１１给ｘ，运行if x<y then y=x，符合要求，ｙ值为１１，输入３７给ｘ，运行if x<y then y=x，不符合要求，ｙ值输出１１，注意for i=1 to 3限制了ｘ的输入数据个数，ｘ需要输入３个数据，如果改为for i=1 to ４，则ｘ需要再输入４个数据
A、Mid(s,7,8)
B、Right(Left(s,14),8)
C、Mid(s,7,4)+Mid(s,11,2)+Mid(s,13,2)
D．Left(s,14)-Left(s,6)
5、“完数”一个自然数恰好等于它的因子（不包含本身）之和，如6的因子为1,2,3，又6=1+2+3  6就是完数。如28的因子是1,2,4,7,14，而28=1+2+4+7+14，故28就是完数。问题：输入一个正整数N，判断该正整数是否为完数，要判断一个整数N是否否完数，最简单的方法是：求出1到n-1之间 n的所有因子和为sum，如果sum的值和n的值相同，则n就为完数
代码
dim n as long
dim sum as long
n=inputbox("n=")
for i=1 to n-1
编程递归函数
else
print n&"不是完数"
end if
1、如果给出三条线段的长度分别为a,b,c，且已知a<=b<=c，要问这三条线段能否构成三角形，需要下列选项中的那个判定条件即可
2、二分查又称折半查，是一种应用于有序数列的高效查算法。下列数列中适合二分查算法的是（2,4）
(1)11 99 15 17 12 39
(2)30 52 63 71 78 81
(3)27 62 68 16 15 14
(4)85 78 59 53 19 18
3、dim a as intger的作用是 （定义一个变量）
4、dim n as long
dim s as long
dim x as long
n=val(inputbox("n="))
s=0
do while n>0
x=n mod 10
s=s+x
n=n\10
loop
print s
15/10=1.5是除，据定义类型对余数四舍五入；15\10=1是整除，去掉余
数；当循环执行到x=n mod 10时如果此时的ｎ值小于１０，ｎ直接赋值给ｘ后参与s=s+x运算，并输出结果。
5、输入一个正整数n，判断该正整数是否为素数（质数），要判断一个数n是否是素数，最简单的方法是，统计2到n-1之间的所有能整除n的整数个数s，若s大于0，则n不是素数，否则就是素数，完善代码：
n=val(inputbox("n="))
s=0
for i=2 to n-1
if n mod i=0 then
end if
next i
else
print n"不是素数"
end if
1、程序运行题目
For i = 1 To 10
For j = 1 To i
Print "*";
Next j
Print
Next i
2、VB中绘制圆的方法是  circle(x,y),r  格式说明，其中(x,y)为圆心坐标，r为圆的半径，请补充算法2，使其实现与算法1的功能，表中算法1是在窗体中绘制以(2000,2000)为圆心，半径依次为

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。