资源描述：
《第04章算法基础及vb的基本语句》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、第四章算法基础及VB的基本语句的知识点习题考点详细分析1、能写一些简单的算法，明白算法即是一解题步骤2、赋值语句和input和msgbox函数注意不同类型数据的赋值转换，俩函数的参数3、分支结构•分支结构语句if语句的三种转换形式select-case-endselect结构语句的使用4、循环结构与循环结构语句do-loop结构语句（当型与直到型在条件不满足时区别）for-next结构语句（注意循环控制参数）循环嵌套（初值的位置、随机函数的使用）（关于算法）明白算法就是给出解决问题的步骤给出下列题bl的算法：1、给出
2、一个求一元俩次方程根的算法（ax2+bx+c=0）2、求一个圆的周长和面积3、根据个人工资给出交税数目4、设计一个判断某正整数是一个冋文数的算法。（冋文数：该数的左右数字完全对称的口然数，如121、1551等）（关于赋值语句和俩两数）1、赋值语句的一般形式2.当系统执行一个赋值语句时，先求出“二”_右边表达工的值，然后再把该值保存到—左边变量中，这就是“赋值”分析：基本概念答案：右边表达式左边变量3、针对语句If1=1thenJ=l,T列说法正确的是_C_（03春）A.1=1和J=1均为赋值语句B.均为关系表达式C.
3、1=1为关系表达式，J=1为赋值语句D.1=1为赋值语句，J=1为关系表达式分析：基本结构语句答案:C4、运行下面的程序，单击命令按钮commandI,则立即窗口上显示的结果是(03春)privatesubcommand1_click()dimAasinteger,BasBoolean,CasInteger,DasintegerA=20/3:B=true:C=B:D=A+CDebug.PrintA,D,；A=A+CEndsubA^76FalseB、665.6FalseC、76A=6D、78A=8分析：不同数据类型赋值
4、问题答案:A5、在文本框Textl中输入数字12,Text2中输入数字34,执行以下语句，只有B可使文木框Text3中显示46o(02秋)A、Text3.Text=Textl.Text&Text2.TextB、Text3.Text=val(Text1.Text)+val(Text2.Text)C^Text3.Text=Text1.Text+Text2.TextD^Text3.Text=val(Textl.Text)&val(Text2.Text)分析：不同数据类型赋值问题答案：B6、据下图写出Inputbox函数中的
5、参数(00秋)inputbox(,,)注意10没有引号分析：Inputbox函数中的参数答案：“请输入半径”“输入对话框”107、如图所示信息框的MSGBOXXi数程序示例世上无难爭x=Msgbox(,,)分析：MSGBOX函数中的参数答案：“世上无难事”48“程序示例”(关于分支结构与分支语句)1、分析下列语句，给出执行结果PrivateSubForm_Click()ConstpiAsSingle=3.14a%=7IfaMod4>piThenPrint“努力”ElsePrint“学习”EndIfEndSub执行结果
6、为，其判决条件的值为分析：分支结构基本语句的执行答案：努力TRUE分析下列语句PrivateSubForm_Click()DimxAsCurrency,yAsCurrencyx=Val(InputBox(H输入你的工资数目"，“交税计算窗口”，1000))Ifx<=1000Theny=0Elsclfx<=2000Theny=x*0.1Print“你应该缴纳”&y&”元税金“Elselfx<=3000Theny=x*0.2Print“你应该缴纳”&y&”元税金“Elsey=x*0.3Print“你应该缴纳”&y&”元税
7、金“EndIfEndSub若你的工资为2999元，则该程序的输出结果为分析：多重分支结构棊本语句的执行答案：你应该缴纳599.8元税金2、阅读下而程序，单击窗体后在窗体上显示的内容是,若将程序中的A语句与B语旬的位置互换，再次执行程序，显示内容是o(02春)OptionExplicitPrivateSubForm_Click()DimsumAsInteger,iAsIntegerFori=7To4Step-1SelectCaseiCase4,7sum=sum+i4A语句Case3,5sum=sum+2语句CaseEl
8、sesum=sum+1EndSelectNextiPrintMsum=H;sumEndSub分析：多重分支结构SELECT基本语句的执行答案：141()(关于循环结构与循环语句)1、阅读程序，写出执行结果为PrivateSubForm_Click()DimaAsInteger,bAsIntegera=1:b=0DoWhilea<0b=b+a*a
