实验前五章复习作业

点可查找书（加深印象！并以“班作业构化程序设计与数一、目的和要一、判断若行If语句中逻辑表达式值为True，则关键字Then后的若干语在行If语句中，关键字EndIf是必不可少的块If结构中的Else子句可以缺省For/Next语句中，循环控制变量只能是整型变量For/Next语句中Step1”可以缺省For/Next循环正常（未执行ExitFor）结束后，控制变量的当前在循环体内，循环变量的值不能被改变Do/LoopWhile结构中的循环体，至少被执行一次Do/LoopUntil结构的循环，是“先判断、后执行（循环体”的二、选择下列关于SelectCase之测试表达式的叙述中，错误的 A、只能是变量 B、可以是整 C、可以是字符D、可以是浮点类下列关于SelectCase的叙述中，错误的 A、Case10To 表示判断Is是否介于10与100之B、Case"abc","ABC" C、Case 表示判断Is是否为大写字母D、Case- 表示判断Is是否等于字符串"-由“Fori=1To16Step3”决定的循环结构被执行 ）次A、 B、 C、 D、若i的初值为8，则下列循环语句的循环次数 次DoWhilei<=17A、3 B、4 C、5 D、6由“Fori=1To9Step-3”决定的循环结构被执行 6．窗体通用部分的语句“OptionBase1，决定本窗体中数组下标 A、下界必须为 B、缺省的下界为 C、下界必须为D、缺省的下界为三、填空1．若x＞y，则交换变量x、y 值的行If SelectCase结构中测试表达式的值，在其表达式列表中用用InputBox函数为数组B所有元素B(0)、B(1)、…、B(9)依次赋 动态数组的语句 语句语句“DimcAs Caption的值。用Dimc(2to5)AsInteger语句定义的数组占用 四、程序阅读题（写出下列程序的运行结果程序1.请写出单击窗体后，窗体上的显示结果PrivateSubDimaAsInteger,sAsIntegera=5:s=0DoWhilea<=s=s+a:a=a-1Prints;aEndSub程序2.请写出输入8、9、3、0后窗体上的显示结果PrivateSubDimiAsInteger,sumAsInteger,mAsIntegermInputBox("请输入m",累加和等于&Ifm=0ThenExitDosum=sum+mPrintsumEnd程序3.请写出单击窗体后，窗体上的显示结果PrivateSubDima(5)AsByte,iAsBytea(0)=1Fori=1Toa(i)=a(i-1)+i:Printa(i);NextiEnd程序4.请写出单击窗体后，窗体上的显示结果PrivateSubDimiAsInteger,jAsIntegerFori=1To6PrintSpc(6-i)Forj=1To(2*i)-1:Print"W";:NextjNextiEndSub程序5.写出运行结PrivateSubForm_Click()DimA(10)AsIntegerFori=1To10A(i)=i*2-1NextiFori=1To10Step3PrintA(i);NextiEndSub程序6写出运行结PrivateSubForm_Click()DimB(5)AsIntegerFori=1To5Step2B(i)=iNextFori=0To5PrintB(i);NextiEnd程序7写出运行结PrivateSubForm_Click()DimC(1To5)AsIntegerDimSAsIntegerS=Fori=1To5C(i)=iS=S+NextiPrint"S=";程序8写出运行结PrivateSubForm_Click()DimD(10)AsIntegerD(0)=0:D(1)=1Fori=2ToD(i)=D(i-1)+D(i-NextFori=1To10PrintD(i)NextiEnd作业VB语法一、目的和要全面复习“VB的数据类型、常量和变量定义与应用、以及常用函数整型变量有Byte、Integer、Long类型3种Byte类型的数据，其数值范围在-255～255之间VisualBasicDouble类型数据可以精确表示其数值范围内的所在逻辑运算符NotOrAnd运算优先级由高到低依次为Not、Or、And。关系表达式是用来比较两个数据的大小关系的，结果为逻辑值用DIM定义数值变量时，该数值变量自动赋初值为0函数InputBox的前3个参数分别是输入框的提示信息、标题函数MsgBox的前3个参数分别表示默认按钮、按钮样式以及标样式二、选择1．Integer类型数据能够表示的最大整数A、 B、215- C、。D、216-2．货币类型数据小数点后面的有效位数最多只。A、1B、6C、16D、43．输入框InputBox的返回值的类型 A、取整为Byte类型 B、取整为Integer类型C、四舍五入为整 D、四舍五入为Byte类Int(Rnd*100)表示的 范围内的整数A、 B、 C、 D、下列程序段的输出结果 a=10:b=10000:x=log(b)/log(a):PrintA、 B、 C、 D、返回删除字符串前导和尾随空格符后的字符串，用函 A、 B、 C、 D、Print语句的一个输出表达式为 A、 B、 C、 D、语句Print"5*5"的显示结果 D、出现10．语句“Form1.PrintTab(10);"#"”的作用是在窗体当前输出 A、第10列输出字符 B、第9列输出字符C、第11列输出字符“#” D、输出10个字符“#”语句“DimCAs ”定义的变量C，可用于存放控件的Caption的值。长整型变量（Long类型）占 个字节表达式Right(String(65,Asc("abc")),3)的值 表达式2*4^3+4*6/3+3^2的值 表达式16/2-2^3*7Mod9的值 表达式81\7Mod2^2的值 已知字符串变量x存放"1234"表达式Val("&H"+Left$(x,的值 语句PrintNot10>15And8<5+2的输出结果 设x为一个两位数将其个位和十位数交换后所得两位数的 用随机函数产生一个两位整数的VisualBasic表达式 求a与b之积除以c的余数，用VisualBasic表达式可表示 算术式ln(x)+sin(30º)的VisualBasic表达式 单精度常量PI代表3.1415926的语句 #20/5/01#表 类型常量设I为大于0的实数写出大于I的最小整数的表达式 作业三表达式和函数复习1、6.8\2＝ 6.8\2.1＝ 3^3－25/4\2＝ 2、-25MOD3＝ 6.8\2.1MOD-2＝ #11/6/2008#＋ #1/6/2008# xyy3 2y33xyy3 2y3342 5、 +13＝ +"13"＝ "100"&13＝ ；10 &"23"＝ &13＝ 6、#11-15-1999#>#6-13-2001#的结果是 len（”中医临床”）<>3的结果是（ “A”<”9”的结果是（ ”黑龙江中大学附属1院”>”黑龙江中大学附属2院”的结果是（ 23<=13<-10的结果是 199>"189"的结果是 7、利用VB的语法基础知识，将公式4<X≤10转化为VB能够识别 8、如果a=123，b=133，那么a<b>=3的结果是 9、如果x=13.11，y=33，fix(x-y)*int(-x)+sgn(x-45)＝（ 10、如果x=#1/11/2009#；那么Year(Date)=（ Month(Date)=（ 11len(Str(323.1)) len(Str(- al(“1.24”) Val(“1.34ASD45”)= Val(“ASD123”)= ；Val(“1.2e2”) 作业四五章综合复Dima，bAsInteger以下关于这段代码的叙述中，错误的是a被定义为Integer类型变b被定义为Integer类型变c中的数据是字符d中的数据是日期类以下能从字符串"VisualBasic"中直接取出子字符串"Basic"的函数 B)C) D)设a=4，b=3，c=2，d=1，下列表达式的值是。a>b+1Orc<dAndbModc B)C)- D)以下可以作为VisualBasic变量名的是 B)C) D)设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是PrintPrint假定有如下令按钮(名称为Command1)事件过程：PrivateSubCommand1_Click()x=InputBox("输入："，"输入整数：””EndSub程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙x的值是数值输入框的标题是“输入整数信息框的标题是“输入数据信息框中显示的是“输入的数据是PrivateSubCommand1_Click()Fori=1To2Forj=1To4IfjMod2<>0ThenEndIfNextjNextPrintaEndSub程序运行后，单击命令按钮，输出结果是A) B) C) D)下列各种形式的循环中，输出"*"的个数最少的循环a=5:Print"*"LoopWhilea=5:Print"*"LoopUntila=5:DoUntila-bPrint"*"a=5:DoUntila>bPrint"*"a=a+1执行下列程序段后，输出的结果Fork1=0To4Fork2=0To3Fork3=0To2y=y+10Nextk3Nextk2Nextk1Printy下列程序段的执行结果Ifa>60ThenI=1Ifa>70ThenI=2Ifa>80ThenI=3Ifa>90ThenI=4Print"I=";Ix=Int(Rnd()+4)SelectCasexCase5Print"excellent"Case4Print"good"Case3Print"pass"CaseElsePrint"fail"EndSelectForI=1To3f=a+bPrintf;NextI23232322下列符号常量的中，不合法的ConstaAsConstConstaAsConstaAs要将名为MyForm的窗体显示出来，正确的使用方法MyFormMyFormFork=1To0a=a+kNextkPrintk;a-1-1111I=I+x=x+LoopUntilIPrint"I=";I;Print"x=";Ifop$="+"Thena=a+2Ifop$="-"Thena=a-2Printa2-0D)窗体文件的扩展名a=a+bb=b+LoopWhilea<10Printa;b112a10有如下事件过程PrivateSubCommand1_Click()DoUntilb=-a=InputBox("请输入a的值")b=InputBox("请输入b的值")a=a*bPrintaEndSub程序运行后，依次输入数值30，20，10，－1，输出结果-执行下面的程序段之后，s的值为Fori=2.35Tos=s+1以下程序段执行后的输出结果是Whilenum<=2num=num+1Printnum;（，is=1:i=DoWhile5s=s+ii=i+Ifi=7ThenExitDo在窗体上画1个命令按钮，其名称为Command1，然后编写如程序PrivateSubCommand1_Click()Dima(10)AsIntegerDimxAsIntegerFori=1To10Printa(f(x)+x)EndSubFunctionf(xAsInteger)End程序运行后，单击命令按钮，输出结果为A) B)C) D)在窗体上画3个3个文本框(名称分别为Text1Text2和1个命令按钮(名称为Command1)。PrivateSubForm_Load()EndSubPrivateSubCommand1_Click()EndDoWhiley<