习题1 集成开发环境和程序设计入门一、单项选择题
1C 2A 3D 4A 5C 6C 7B 8C 9D 10B (.bat是一种MS－DOS的批处理文件)
二、填空题
1.,frm,.vbp
2,Picture,LoadPicture
3,对象，事件驱动
4,Enabled，True，False
5,Visible，True，False
6,Form＝Form1.frm,Form=FrmXXX.frm
7,Text,Caption,Picture,Value
8,(1) Label1.Move (Form1.ScaleWidth-Label1.Width)/2,(Form1.ScaleHeight-Label1.Height)/2
(2) Label1.Caption="标签被单击" (3) Label1.ForeColor=vbRed
9.(1) Text1_Change (2) Pic1.Print Text1.Text (3) Pic1.Cls
10,(1) Label1.Left= Label1.Left-50 (2) Label1.Left= Label1.Left+50
(3) Label1.Top= Label1.Top-24 (4) Label1.Top= Label1.Top+25
(5) True (6) Caption (7)FontName (8)FontBold (9)FontSize
(10) ForeColor (11) 1 (Or,Opaque) (12)ForeColor (13) 0 (Or,Transparent)
习题2 基本数据类型及运算类型一、单项选择题
1C 2D (A错：数字不能开头，B、C错：不能用VB关键字)
3A 4D (Rnd*6的最小值是0，最大值是5.99999…，故取整数部分后得到的值为0～6)
5D 6B 7A 8B 9B 10D
二、填空题
1,220 （asc("a")的值是数值97，然后进行数值运算，注意优先级）
2,876554 （数值型，因为Val函数将数字字符串转换为数值）
3,(10*x+Sin(2*x))/(x*y) （注意乘号不能省，括号不能省）
4,(Sin(a+b))^2/(3*x)+5*Exp(2) (注意：e2=Exp(2) )
5,(x>=10) And (x<20) （2个关系式的逻辑与）
6,单精度 （或,Single）
7,6 （函数Mid从字符串第1个字符起取6个字符，函数Len计算得到字符串的字符个数）
8.False (a>b的值是True；True跟数值c比较时要转换为数值，True转换为数值时相当于-1，而c的值是1，故True>c的值是False)
9.String（4，"string"）的功能是字符串："ssss"
10,国ch (Mid函数取子字符串，从原字符串的第2个字符开始取，一共取了3个字符)
习题3 程序控制结构
一、单项选择题
1B 2A 3C (先计算小括号内的数值加法，再将结果579转换成字符串“579”显示，但字符串的引号是不显示的) 4B (因为a,b得到的值是字符型的“5”和“6”,字符相连得“56”)
5A 6D 7B 8C 9D 10C
二、填空题
1,3 （本程序的功能是：在a的字符串中找子串“er”的个数）
2.【1】 9 【2】n Mod 3=0
3.【1】 100 【2】121
4,8 5,0 6,5 7,160 8,2 9,101
10.【1】93 【2】 2*x+4*(99-x)=210 （鸡、兔腿数和） 【3】99-x (兔的只数)
习题4 数组与类型
一、单项选择题
1D （元素有8个：A(-3),A(-2),A(0),A(1),A(2),A(3),A(4),A(5)）
2A （k=5+p(1)*2+p(2)*2+p(3)*2=5+1*2+4*2+9*2=33)
3D (s=a(4)*1+a(3)*10+a(2)*100+a(1)*1000=4321)
4D (输出：a(3,3) a(4,3) 换行 a(3,4) a(4,4)）
5C (本题是输出数组a中最大元素的值及其下标，下标是从1开始）
6无 (本题无一答案正确）
7D (Dim语句定义数组不能用变量名表示下标范围；ReDim语句则可以用变量名表示下标范围，只要变量已给定值）
8A (B错，因为Array函数只能对可调、变体形数组赋值。C错，赋值语句两边类型不一致，且此时不能自动转换。D错，b=a语句要求b 数组不能为定长的静态数组；且b数组必须与a数组类型一致，而Dim语句中只指定了b为Integer，并没有指定a为Integer，实际上a不是Integer而是Variant）
二、填空题
1,【1】 33
2.【5】 5 （求数组a中元素11的下标，下标是从0开始）
3.【1】 Max 【2】 Max＝arr1(i)
4.【1】 a 【2】 2 【3】 0 【4】 20
5.【1】 Dim W(99) As MyType 【2】 W(99) 【3】,Xm="王晓明"
【4】,Bm="财务处" 【5】,Gz=1500 【6】 With
习题5 常用标准控件一、单项选择题
1C 2C 3B 4B 5D 6C 7D
二、填空题
1.【1】 8 【2】 2 【3】 List(2).AddItem Str(a)
【4】Label1.FontName = List1.Text 【5】Label1.FontSize = List2.Text
2.【5】 验证口令 【6】 请输入口令 【7】 *
3.【1】 Picture1.Picture = LoadPicture(“C:\Windows\picfile.jpg”)
4.【1】 Interval 【2】 500
5.【1】1000 【2】 Timer 【2】 Time （此处的Time是返回当前时间的函数）。
6.【1】 -6 【2】 -4
【3】Picture1.Line (-3,-2) - (3,2),vbRed,BF
【4】Picture1.Circle (0,0),3
【5】Picture1.PSet (x,y),vbRed
【6】Picture1.Cls
习题6 过程与函数一、单项选择题
1B 2B 3D 4D (注意：实参y与形参x对应，而实参x 与形参y对应）
5B 6B 7A
二、填空题
1.【1】 f1(A) 【2】 B(k) 【3】 X+B(k) 【4】 Y+B(k)
2.【1】 1 【2】 m 【3】 Fac*m
3.【1】 Print4 【2】 1 To j 【3】 (j-1)*10+k
4.【1】 Optional 【2】 ParamArray 【3】 Control 【4】 Form
5 【1】 Dim 【2】Static 【3】 1 【4】 Static
【5】 Private 【6】Public 【7】省略关键字 【8】 Form1.x=12
【9】 y=12 【10】Call Form1.MySub1 【11】MySub2 【12】不能
习题7 菜单与对话框一、单项选择题
1B 2A 3B 4A 5D (Button=2表示鼠标按下的是右键） 6A 7A
二、填空题
1,【1】 - (即减号，或叫短划线）
2,【1】 InitDir 【2】 1
【3】 CommonDialog1.FileName 【4】 CommonDialog1.FileTitle
【5】 2 【6】 CommonDialog1.FileName 【7】 CommonDialog1.FileTitle
3.【1】 FormatBold.Checked=False 【2】 FormatBold.Checked
【3】 False 【4】 False
注意：这是一种典型二态转换算法，即,(1)如果原来状态是A，就将状态变成B；
(2) 否则 (如果原来状态是B)，就将状态变成A。交替执行(1)、(2)
习题8 多重窗体与环境应用一、单项选择题
1C 2A 3A 4D 5C 6A 7A 8A 9B 10D
二、填空题
1.【1】 Load 【2】 UnLoad
2,在启动一个窗体之前执行一些初始化语句
3.【1】应用程序处于闲置状态时执行的循环 【2】控制权 【3】操作系统
4.【1】 标准模块中 【2】 一
5.【1】 Hide 【2】 Show
6.【1】 UnLoad 【2】 Show
7.【1】 ActiveForm 【2】 ActiveControl
8.【1】 会 【2】 不会
习题9 键盘与鼠标事件一、单项选择题
1B 2B 3B（本题的m1没指定初值，则m1为0；因此内循环中的If语句条件恒为False，故不会执行If语句块；所以a1和a2都维持原初值。）4D 5A 6C 7D 8C 9B 10A
二、填空题
1.【1】_MouseDown 【2】 PopupMenu
2.【1】(KeyAscii>=97) And (KeyAscii<=122) （如果按下的字符属于“a”到“z”的Ascii码范围）
【2】（-32）（Ascii码值减去32，就是相应字母的大写字母Ascii码）
3.【1】 66 【2】66 【3】 98 【4】17 【5】66 【6】 98 【7】66
【8】 65 【9】17 【10】66
4.【1】 KeyDown 【2】 KeyUp
5.【1】 49 (数字键“1”的Ascii码是49）
【2】 498 【3】 5 (求数组A的元素最大值、最大值元素下标）
习题10 文件一、单项选择题
1A 2C 3A 4D 5B 6A 7B 8C 9B 10D
二、填空题
1,【1】Input ＃文件号，变量名
【2】Line Input ＃文件号，变量名
【3】Input(要读取的字符数,＃文件号)
2.【1】True 或 False 【2】 判断当前文件指针是否到达文件尾
3.【1】y=22 a=22 【2】 y=66 a=44
4.【1】line1line2line3 （Line Input语句将回车符、换行符跳过不读）
【2】line1
line2
line3 （Input语句能读取所有字符，包括回车符、换行符）
5.【1】File1.FileName
【2】LoadPicture(Fn) (Fn的值就是图片文件对应的带路径和文件名的字符串)
说明：If Len(Dir1.Path)=3 Then Fn=Dir1.Path+File1.FileName
意思是：若磁盘当前目录处于某磁盘的根目录时，路径字符串将是“C:\”这种长度为3个字符的形式,这时路径字符串已经带了反斜杠“\”,Fn就只要直接加上文件名File1.FileName部分即可。
1C 2A 3D 4A 5C 6C 7B 8C 9D 10B (.bat是一种MS－DOS的批处理文件)
二、填空题
1.,frm,.vbp
2,Picture,LoadPicture
3,对象，事件驱动
4,Enabled，True，False
5,Visible，True，False
6,Form＝Form1.frm,Form=FrmXXX.frm
7,Text,Caption,Picture,Value
8,(1) Label1.Move (Form1.ScaleWidth-Label1.Width)/2,(Form1.ScaleHeight-Label1.Height)/2
(2) Label1.Caption="标签被单击" (3) Label1.ForeColor=vbRed
9.(1) Text1_Change (2) Pic1.Print Text1.Text (3) Pic1.Cls
10,(1) Label1.Left= Label1.Left-50 (2) Label1.Left= Label1.Left+50
(3) Label1.Top= Label1.Top-24 (4) Label1.Top= Label1.Top+25
(5) True (6) Caption (7)FontName (8)FontBold (9)FontSize
(10) ForeColor (11) 1 (Or,Opaque) (12)ForeColor (13) 0 (Or,Transparent)
习题2 基本数据类型及运算类型一、单项选择题
1C 2D (A错：数字不能开头，B、C错：不能用VB关键字)
3A 4D (Rnd*6的最小值是0，最大值是5.99999…，故取整数部分后得到的值为0～6)
5D 6B 7A 8B 9B 10D
二、填空题
1,220 （asc("a")的值是数值97，然后进行数值运算，注意优先级）
2,876554 （数值型，因为Val函数将数字字符串转换为数值）
3,(10*x+Sin(2*x))/(x*y) （注意乘号不能省，括号不能省）
4,(Sin(a+b))^2/(3*x)+5*Exp(2) (注意：e2=Exp(2) )
5,(x>=10) And (x<20) （2个关系式的逻辑与）
6,单精度 （或,Single）
7,6 （函数Mid从字符串第1个字符起取6个字符，函数Len计算得到字符串的字符个数）
8.False (a>b的值是True；True跟数值c比较时要转换为数值，True转换为数值时相当于-1，而c的值是1，故True>c的值是False)
9.String（4，"string"）的功能是字符串："ssss"
10,国ch (Mid函数取子字符串，从原字符串的第2个字符开始取，一共取了3个字符)
习题3 程序控制结构
一、单项选择题
1B 2A 3C (先计算小括号内的数值加法，再将结果579转换成字符串“579”显示，但字符串的引号是不显示的) 4B (因为a,b得到的值是字符型的“5”和“6”,字符相连得“56”)
5A 6D 7B 8C 9D 10C
二、填空题
1,3 （本程序的功能是：在a的字符串中找子串“er”的个数）
2.【1】 9 【2】n Mod 3=0
3.【1】 100 【2】121
4,8 5,0 6,5 7,160 8,2 9,101
10.【1】93 【2】 2*x+4*(99-x)=210 （鸡、兔腿数和） 【3】99-x (兔的只数)
习题4 数组与类型
一、单项选择题
1D （元素有8个：A(-3),A(-2),A(0),A(1),A(2),A(3),A(4),A(5)）
2A （k=5+p(1)*2+p(2)*2+p(3)*2=5+1*2+4*2+9*2=33)
3D (s=a(4)*1+a(3)*10+a(2)*100+a(1)*1000=4321)
4D (输出：a(3,3) a(4,3) 换行 a(3,4) a(4,4)）
5C (本题是输出数组a中最大元素的值及其下标，下标是从1开始）
6无 (本题无一答案正确）
7D (Dim语句定义数组不能用变量名表示下标范围；ReDim语句则可以用变量名表示下标范围，只要变量已给定值）
8A (B错，因为Array函数只能对可调、变体形数组赋值。C错，赋值语句两边类型不一致，且此时不能自动转换。D错，b=a语句要求b 数组不能为定长的静态数组；且b数组必须与a数组类型一致，而Dim语句中只指定了b为Integer，并没有指定a为Integer，实际上a不是Integer而是Variant）
二、填空题
1,【1】 33
2.【5】 5 （求数组a中元素11的下标，下标是从0开始）
3.【1】 Max 【2】 Max＝arr1(i)
4.【1】 a 【2】 2 【3】 0 【4】 20
5.【1】 Dim W(99) As MyType 【2】 W(99) 【3】,Xm="王晓明"
【4】,Bm="财务处" 【5】,Gz=1500 【6】 With
习题5 常用标准控件一、单项选择题
1C 2C 3B 4B 5D 6C 7D
二、填空题
1.【1】 8 【2】 2 【3】 List(2).AddItem Str(a)
【4】Label1.FontName = List1.Text 【5】Label1.FontSize = List2.Text
2.【5】 验证口令 【6】 请输入口令 【7】 *
3.【1】 Picture1.Picture = LoadPicture(“C:\Windows\picfile.jpg”)
4.【1】 Interval 【2】 500
5.【1】1000 【2】 Timer 【2】 Time （此处的Time是返回当前时间的函数）。
6.【1】 -6 【2】 -4
【3】Picture1.Line (-3,-2) - (3,2),vbRed,BF
【4】Picture1.Circle (0,0),3
【5】Picture1.PSet (x,y),vbRed
【6】Picture1.Cls
习题6 过程与函数一、单项选择题
1B 2B 3D 4D (注意：实参y与形参x对应，而实参x 与形参y对应）
5B 6B 7A
二、填空题
1.【1】 f1(A) 【2】 B(k) 【3】 X+B(k) 【4】 Y+B(k)
2.【1】 1 【2】 m 【3】 Fac*m
3.【1】 Print4 【2】 1 To j 【3】 (j-1)*10+k
4.【1】 Optional 【2】 ParamArray 【3】 Control 【4】 Form
5 【1】 Dim 【2】Static 【3】 1 【4】 Static
【5】 Private 【6】Public 【7】省略关键字 【8】 Form1.x=12
【9】 y=12 【10】Call Form1.MySub1 【11】MySub2 【12】不能
习题7 菜单与对话框一、单项选择题
1B 2A 3B 4A 5D (Button=2表示鼠标按下的是右键） 6A 7A
二、填空题
1,【1】 - (即减号，或叫短划线）
2,【1】 InitDir 【2】 1
【3】 CommonDialog1.FileName 【4】 CommonDialog1.FileTitle
【5】 2 【6】 CommonDialog1.FileName 【7】 CommonDialog1.FileTitle
3.【1】 FormatBold.Checked=False 【2】 FormatBold.Checked
【3】 False 【4】 False
注意：这是一种典型二态转换算法，即,(1)如果原来状态是A，就将状态变成B；
(2) 否则 (如果原来状态是B)，就将状态变成A。交替执行(1)、(2)
习题8 多重窗体与环境应用一、单项选择题
1C 2A 3A 4D 5C 6A 7A 8A 9B 10D
二、填空题
1.【1】 Load 【2】 UnLoad
2,在启动一个窗体之前执行一些初始化语句
3.【1】应用程序处于闲置状态时执行的循环 【2】控制权 【3】操作系统
4.【1】 标准模块中 【2】 一
5.【1】 Hide 【2】 Show
6.【1】 UnLoad 【2】 Show
7.【1】 ActiveForm 【2】 ActiveControl
8.【1】 会 【2】 不会
习题9 键盘与鼠标事件一、单项选择题
1B 2B 3B（本题的m1没指定初值，则m1为0；因此内循环中的If语句条件恒为False，故不会执行If语句块；所以a1和a2都维持原初值。）4D 5A 6C 7D 8C 9B 10A
二、填空题
1.【1】_MouseDown 【2】 PopupMenu
2.【1】(KeyAscii>=97) And (KeyAscii<=122) （如果按下的字符属于“a”到“z”的Ascii码范围）
【2】（-32）（Ascii码值减去32，就是相应字母的大写字母Ascii码）
3.【1】 66 【2】66 【3】 98 【4】17 【5】66 【6】 98 【7】66
【8】 65 【9】17 【10】66
4.【1】 KeyDown 【2】 KeyUp
5.【1】 49 (数字键“1”的Ascii码是49）
【2】 498 【3】 5 (求数组A的元素最大值、最大值元素下标）
习题10 文件一、单项选择题
1A 2C 3A 4D 5B 6A 7B 8C 9B 10D
二、填空题
1,【1】Input ＃文件号，变量名
【2】Line Input ＃文件号，变量名
【3】Input(要读取的字符数,＃文件号)
2.【1】True 或 False 【2】 判断当前文件指针是否到达文件尾
3.【1】y=22 a=22 【2】 y=66 a=44
4.【1】line1line2line3 （Line Input语句将回车符、换行符跳过不读）
【2】line1
line2
line3 （Input语句能读取所有字符，包括回车符、换行符）
5.【1】File1.FileName
【2】LoadPicture(Fn) (Fn的值就是图片文件对应的带路径和文件名的字符串)
说明：If Len(Dir1.Path)=3 Then Fn=Dir1.Path+File1.FileName
意思是：若磁盘当前目录处于某磁盘的根目录时，路径字符串将是“C:\”这种长度为3个字符的形式,这时路径字符串已经带了反斜杠“\”,Fn就只要直接加上文件名File1.FileName部分即可。
