《Visual Basic程序设计基础》课程教学资源：习题1 集成开发环境和程序设计入门

习题1集成开发环境和程序设计入门 、单项选择题 lC2A3D4A5C6C7B8C9D10B(bat是一种MS-DOS的批处理文件) 二、填空题 1..frm,. vbp 2. Picture. Load Picture 3.对象,事件驱动 4. Enabled, True, False 5. Visible, True, False 6. Form= Form l frm. Form=FrmXXX frm 7. Text, Caption, Picture, Value 8.(1)Labell Move(Forml Scale Width-Labell Widthy2,(Forml. ScaleHeight-Labell Height)y2 (2) Label l Caption="标签被单击”(3) Label l Fore Color= brEd 9.(1)TextI Change (2)Picl. Print TextI Text (3)PiclCls 0(1) Labell Left= Label l. Left-50(2)Labell Left= Labell Left+50 (3)Label l Top= Labell Top-24(4)Label l Top= Labell. Top+25 (5)True (6)Caption (7)FontName (8)Font Bold (9)FontSize (10) Fore Color (11)1(Or: Opaque)(12 )Fore Color (13)0(Or: Transparent) 习题2基本数据类型及运算类型 单项选择题 lC2D(A错:数字不能开头,B、C错:不能用ⅤB关键字) 3A4D(Rnd*6的最小值是0,最大值是5999,故取整数部分后得到的值为0~6) 5d 6B 7A 8B 9B IOD 二、填空题 1.220(asc("a")的值是数值97,然后进行数值运算,注意优先级) 2.876554(数值型,因为Va函数将数字字符串转换为数值) 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计算得到字符串的字符个数)

习题 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) (注意：e 2=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转换为数值时相当于-l, 而c的值是1,故True>c的值是 False) 9 String(4," string")的功能是字符串:"ss 10.国ch(Mid函数取子字符串,从原字符串的第2个字符开始取,一共取了3个字符) 习题3程序控制结构 、单项选择题 1B2A3C(先计算小括号内的数值加法,再将结果57转换成字符串“579”显示,但字符 串的引号是不显示的)4B(因为ab得到的值是字符型的5”和6”,字符相连得“56”) 5A 6D 7B 8C 9D 10C 、填空 1.3(本程序的功能是:在a的字符串中找子串er”的个数) 2.【1】9 【2】nMod3=0 3.【1】 【2】121 4.85.06.57.1608.29.101 10.【1】93【2】2*x+4*(99-x)=210(鸡、兔腿数和)【3】99x(兔的只数) 习题4数组与类型 、单项选择题 1D(元素有8个:A(-3),A(-2)A(O)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(44) 5C(本题是输出数组a中最大元素的值及其下标,下标是从1开始) 6无(本题无一答案正确) 7D(Dm语句定义数组不能用变量名表示下标范围; ReDim语句则可以用变量名表示下标 范围,只要变量已给定值) 8A(B错,因为Aray函数只能对可调、变体形数组赋值。C错,赋值语句两边类型不 致,且此时不能自动转换。D错,b=a语句要求b数组不能为定长的静态数组:且b数组必 须与a数组类型一致,而Dm语句中只指定了b为 Integer,,并没有指定a为 Integer,实际 上a不是 Integer而是 Variant) 填空题

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=arrl(i 【2】2【3】0【4】20 5.【1】DimW(99) As My lype【2】W(99) 【3】Xm="王晓明 【4】.Bm="财务处 【5】Gz=1500【6】With 习题5常用标准控件 单项选择题 IC 2C 3B 4B 5D D 二、填空题 1.【1】8 【2】2【3】List(2) AddItem Str(a) 【4】 Labell FontName= List.Text【5】 Labell. Fontsize=List2.lext 2.【5】验证口令【6】请输入口令【7】 3.【1】 Picture. Picture= Load Picture(C: AWindows'picfile jpg”) 4.【1】 Interva【2】500 5.【1】1000【2】 Timer【2】Time(此处的Time是返回当前时间的函数)。 6.【1】-6【2】 【3】 Picture.Line(-3,-2)-(3,2), brEd,BF 【4】 Picture l. Circle(0,0),3 【5】 Picture.PSet(x,y), brEd 【6】 Picture. cls 习题6过程与函数 单项选择题 B2B3D4D(注意:实参y与形参x对应,而实参x与形参y对应) 5B6B7 、填空题 1.【1】f(A)【2】B(k)【3】X+B(k)【4】Y+B(k 2.【1】1 【2】m【3】Fac*m 3.【1】Prin4【2】1Toj【3】(-1)*10+k 4.【1】 Optional【2】 ParamArray【3】 Control【4】Form

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】 Forml.x=12 【9】y=12 【10】 Call Form1. MySubl【】 MySub2【2】不能 习题7菜单与对话框 单项选择题 1B2A3B4A5D( Button=2表示鼠标按下的是右键)6A7A 、填空题 1.【I】-(即减号,或叫短划线) 2.【1】 InitDir【2】1 【3】 Common Dialog. File Name【4】 Common Dialog. File Title 【5】2【6】 Common DialogI. FileName【7】 CommonDialogl. File Title 3.【1】 FormatBold Checked= False【2】 FormatBold Checked 【3】 False【4】 False 注意:这是一种典型二态转换算法,即:(1)如果原来状态是A,就将状态变成B (2)否则(如果原来状态是B),就将状态变成A。交替执行(1)、(2) 习题8多重窗体与环境应用 单项选择题 IC 2A 3A 4D 5C 6A 7A 8A 9B I0D 二、填空题 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】 Active Forn【2】 Active Control 8.【1】会 【2】不会 习题9键盘与鼠标事件 、单项选择题

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 键盘与鼠标事件 一、单项选择题

1B2B3B(本题的ml没指定初值,则m1为0:因此内循环中的If语句条件恒为 False, 故不会执行If语句块:所以a1和a2都维持原初值。)4D5A6C7D8C9B10A 二、填空题 1.【1】 Mouse Down【2】 PopupMenu 2【1】( KeyAscil>=97)And( KeyAscil<=122)(如果按下的字符属于“a”到"z的Asci码范围) 【2】(-32)(Ascⅱi码值减去32,就是相应字母的大写字母Asci码) 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”的Asci码是49) 【2】498【3】5(求数组A的元素最大值、最大值元素下标) 习题10文件 单项选择题 A 2C 3A 4D 5B 6A 7B 8C 9B 10D 填空题 1.【1】 Input#文件号,变量名 【2】 Line Input#文件号,变量名 【3】 Input要读取的字符数,#文件号) 2.【1】True或 False【2】判断当前文件指针是否到达文件尾 3.【1】 a=22【2】y=66 a=44 4.【l】 linelline2line3( Line Input语句将回车符、换行符跳过不读) 【2】lin line3( Input语句能读取所有字符,包括回车符、换行符) 5.【1】 Filel. FileName 【2】 LoadPicture(Fn)(Fn的值就是图片文件对应的带路径和文件名的字符串) ie H: If Len(Dirl Path)=3 Then Fn=DirlPath+FilelFileName 意思是:若磁盘当前目录处于某磁盘的根目录时,路径字符串将是C这种长度为3个字 符的形式这时路径字符串已经带了反斜杠“"”,Fn就只要直接加上文件名 Filel fileName部 分即可

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 部 分即可