第页第二章简单的VB程序设计一、填空题1、Tabstop2、Left、top、height、width3、enabled4、backcolor5、name6、name和caption7、属性8、标准模块文件9、运行模式二、选择题1、D2、D3、C4、C5、D6、B7、D8、D9、D10、D11、B12、A13、D14、C15、B16、B17、B18、D第三章VB基本语言一、填空题1、Const2、Variant3、隐式声明、显示声明4、optionbase、ubound、lbound5、强制变量声明6、表示a2是一个可选参数7、End8、Msgbox、Inputbox9、*.*、showprint10、Mid()11、612、redimpreservearraya(ubound(arraya())+1)13、static14、015、f16、rem、’17、变量、数组18、1to4,1to519、Inde20、按地址21、OptionExplicit22、1323、ityo24、符号25、LCase26、ESC27、部件28、断点29、False30、OptionExplicit31、UCase32、Mid33、#34、过程35、private36、求x的绝对值37、2.5二、选择题1、D2、B3、D4、C5、B6、C7、D8、C9、D10、A11、A12、D13、B14、B15、D16、B17、A18、D19、D20、C21、D22、B23、B24、B25、B26、A27、B28、C28、B30、C四、读程序题1、结果如下：B2、结果如下：BBCCCDDDDEEEEE3、功能如下：在20个由小到大排列的数据中插入一个数，插入数据后的数据仍按由小到大的顺序排列。4、输出结果为：24685、输出结果为：36、输出结果为：24527、输出结果为：1200208、输出结果为：3332五、编程题1、参考代码如下：PrivateSubCommand1_Click()Dimyear,xAsIntegeryear=Val(Text1.Text)IfyearMod400=0ThenLabel2.Caption="是闰年"Else'下面是嵌套块If语句IfyearMod4=0AndyearMod100<>0ThenLabel2.Caption="是闰年"ElseLabel2.Caption="不是闰年"EndIfEndIfEndSub2、程序参考代码如下：PrivateSubCommand1_Click()Dimm,n,rAsIntegerm=Val(Text1.Text)n=Val(Text2.Text)Ifm<0Orn<0Then‘若判断为非法数据，Then子句输出相应信息Label2.Caption="输入数据有错！"Else‘若判断为合法数据，Else子句用辗转相除法求余数r=mModnDoWhiler<>0m=nn=rr=mModnLoop‘循环结束后n中存放的就是最大公约数，输出n值Label2.Caption="最大公约数为："&nEndIfEndSub3、参考代码如下：PrivateSubCommand1_Click()DimxAsSinglex=Val(Text1.Text)Ifx>100Orx<0ThenText2.Text="error"ElseIfx<60ThenText2.Text="不及格"ElseIfx<70ThenText2.Text="及格"ElseIfx<80ThenText2.Text="中等"ElseIfx<90ThenText2.Text="良好"ElseText2.Text="优秀"EndIfEndSub4、参考代码如下：PrivateSubForm_Load()DimiAsIntegerShow'使输出可见Form1.Font="新宋体"Fori=9To16Step1Form1.FontSize=iPrinti;"号字型"NextiEndSub5、参考代码如下：PrivateSubCommand1_Click()Dima(1To11)AsSingle'定义静态数组a含11个元素Dimi,jAsIntegerDimnumAsSingle'给数组元素赋初值，即原始队列a(1)=3:a(2)=5:a(3)=7:a(4)=8:a(5)=9a(6)=13:a(7)=16:a(8)=19:a(9)=33a(10)=38'输出原始队列Fori=1To10Label2.Caption=Label2.Caption&a(i)&"