- 1、本文档共10页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB第4章 复习资料VB第4章 复习资料
第4章 补充资料
习题解答
1.计算下列循环语句的次数:
(1)For I= -3 To 20 Step 4
答:循环次数为6次。循环体内I的值分别为:-3,1,5,9,13,17;出了循环体后I的值为21。
(2) For I= -3.5 To 5.5 Step 0.5
答:循环次数为19次。
(3) For I= -3.5 To 5.5 Step -0.5
答:不循环,步长0,循环初值终值。
(4) For I= -3 To 20 Step 0
答:无数次,步长=0。
2. 下列30~90为语句标号,分别标记该语句,第40号语句共执行了几次,第50号语句共执行了几次,执行第90号语句后显示的结果是多少?
30 For j = 1 To 12 Step 3
40 For k =6 To 2 Step -2
50 mk = k
60 Print j,k
70 Next k
80 Next j
90 Print j , k , mk
答:第40号语句共执行了4次,是外循环的循环体;第50号语句共执行了12次,是内循环的循环体,循环次数为两重循环次数的乘积;第90号语句显示的结果是13 0 2。
3.如果实现不知道循环次数,如何用For … Next 结构来实现?
答:只要将循环的终值设置成一个非常大的值,然后再循环体内增加If语句,判断是否满足循环结束的条件。形式如下:
For 循环变量 =1 To 非常大的数
…
If 满足循环结束条件 Then Exit For
…
Next 循环变量
4.利用循环结构,实现如下功能:
(1)
答:
s =0
For i =1 To 10
s = s +( i+1)*(2* i +1)
Next i
(2)分别统计1~100中,满足3的倍数、7的倍数的整数各有多少?
答:
s3=0
s7=0
For i =1 to 100
If i mod 7=0 Then s7=s7 +1
If i mod 3=0 Then s3=s3+1
Next i
(3)将输入的字符串以反序显示。如输入 “ASDFGHJKL”,显示 “LKJHGFDSA”。
答:
s=InputBox(“输入字符串”)
For i =Len(s) To 1 Step -1
Print Mid(s,i,1);
Next i
5.下面程序的运行结果是什么?该程序的功能是什么?
Private Sub Command1_ Click( )
Dim x$,n%
n = 20
Do While n 0
a = n Mod 2
n = n\2
x = Chr(48 + a)& x
Loop
Print x
End Sub
答:运行后结果为10100,该程序的功能是将十进制数转换成二进制字符串。
6.下面程序的运行结果是什么?该程序的功能是什么?
Print Sub Command1_Click( )
Dim x%,y%,z%
x = 242: y = 44
z =x * y
Do Until x = y
If x y Then x = x – y Else y = y – x
Loop
Print x, z/x
End Sub
答:运行结果为22和484;该程序的功能是用相减法求x,y的最大公约数和最小公倍数。
7.利用随机函数产生50~100范围内的20个随机数,现实其中的最大值、最小值和平均值。
Private Sub Form_Click( )
Dim i%, min% , max% , avg%, x%
min = 100 ‘设置最小值、最大值和平均值的初态
max = 50
avg = 0
For i = 1 To 20
x = Int(Rnd * 51+50)
Print x;
If x max Then max = x
If x min Then min = x
avg =avg + x
Next i
Print
Print “最小值=”;min , “最大值 =”;max, “平均值=”;avg/20
End Sub
常见错误和难点分析
1.一般循环控制变量在循环体内可以引用但不要被赋值
如在循环控
您可能关注的文档
- Stata基础命令02_listStata基础命令02_list.pdf
- STM32-CAN总线通信文档STM32-CAN总线通信文档.pdf
- STM32-uCOS移植STM32-uCOS移植.pdf
- STM32系列 的IIC通信例程STM32系列 的IIC通信例程.pdf
- STM32自定义USB设备开发详细流程讲解及全套资料源码下载STM32自定义USB设备开发详细流程讲解及全套资料源码下载.pdf
- STR-30无线通信模块STR-30无线通信模块.pdf
- Struts2入门经典实例Struts2入门经典实例.pdf
- STRATIX_工业交换机介绍STRATIX_工业交换机介绍.pdf
- Subversion版本控制工具Subversion版本控制工具.doc
- super 生涯发展理论super 生涯发展理论.ppt
文档评论(0)