可视化程序设计综合题及答案资料

1、可视化程序设计综合题一、单项选择题1. 下列运算符中，运算级别最高的是（B） - 1504C 卷 5A、 + B、 * C 、 D 、 Mod下列选择项中（ C ）不能获得焦点。 -1412B 卷 1A、使用 Tab 键 B、用鼠标选择对象C、设置 GetFocus 的值为 True D、使用 SetFocus 方法3. 执行下面的程序段后，x 的值为 (A )- 1412B卷 2x=5For i = 1 To 20 Step 2x=x+i5Next iA、 21B、22C、 23D、 244. 有如下程序，执行程序后单击Button1 按钮，窗体上显示的是什么（C）-1409A卷 3、150

2、4C 卷Private Sub Command1_Click()Dim a Dim b As Integera = 5 / 2b = 5 / 2Print a, bEnd Sub ( 本题分数： 3 分，本题得分：0 分。 )A、22 B 、 22.5C、 2.52D 、2.52.55. 如果希望用变量X 存放数据12345.67890123 ，应将 X 定义为什么类型？（A ） -1504C卷 43以下说法正确的是（ D ） -1412B 卷 7A、通用过程可以出现在窗体模块和标准模块中B、不同模块中的通用过程可以重名C、同一标准模块中的通用过程可以同名D、不同标准模块中的通用过程不能同名下

3、列哪组语句可以将变量 A、B 的值互换（ C ）。 -1504C 卷 7、1401 批次 7A、 A=B： B=AB、 A=C： C=B： B=AC、 A=A+B： B=A B： A=A BD、 A=（A+B） /2 ： B=（ A-B） /2将文本框的（ A）属性设置为 True 时，文本框可以输入或显示多行文本，且会在输入的内容超出文本框的宽度时自动换行。 -1409A 卷 5A、 MultiLineB、 ScrollBarsC、 TextD、 Enabled9. 在表达式 y = InputBox ( a, b, c )中， b为输入函数对话框的（A ）。 - 1409A卷 6A、标题

4、B、 提示 C、 预设值D、帮助文件名如果要退出 Do, Loop 循环，可使用语句（ B ）。 - 1409A 卷 7A、 ExitB、 Exit DoC 、 Exit For D、 Exit Sub11.VB 中，将命令按钮控件在窗体中失效（不可用）的属性语句是（C ）。 -1412B卷 16A、 default B 、 CancelC、 EnabledD 、 Visible在 VB 中，称对象的数据为（ A ）。 -1504C 卷 9 A、属性 B、方法 C、事件 D、 封装13. 下面的哪一项不能用来在模块之间传递数据（D ） 。 -1409A卷 8A、全局变量 B 、对象属性 C 、

5、全局数组D、模块级变量令 A、 B、 C 都是整型变量， A=3， B=4， C=5，下列表达式结果为 TRUE的是（ C）A、(A+B)C-10B、B+C*AB*B=B+C*AB*BC、 (A - C) * Sqr(B) + B = 0D、 A 2 + B 2 - C 2 max Then max=a ElseElse if max=bEnd IfB、 If bmax Then max=aElsemax=bEnd IfC、 If amax Then max=aElsemax=bD、 If amax Thenmax=aElsemax=bEnd If30. 函数 Int(Rnd*99+1)A、

6、1,98B、 1,99产生随机数的范围是C、1 ，100(C )D 、1。 -1409A ， 101卷 21、 1412B 卷22下列关于多文档界面（ MDI）应用程序，说法错误的是（ B ） -1504C 卷 8A、一个多文档界面应用程序只能包含一个MDI窗体B、一个多文档界面应用程序只能包含一个子窗体C、子窗体的MDIChild 属性应设置为TrueD、最小化父窗口时，所有子窗口也被最小化2.下列属性中，目录列表框和文件列表框都有的属性为（C ）。 -1409A卷 1A、 ListB、 valueC、 PathD 、 Pattern3. 下列关于菜单访问键和快捷键的说法正确的是（D ） -

7、1412B卷 3A、若一菜单项的Caption 属性为“打开 (&O) ”，则其快捷键是Ctrl+OB、快捷键指用于执行一个命令的功能键或组合键，可以在菜单编辑器中将快捷键设为Alt+FC、可以为任意的菜单项都添加快捷键或访问键D、通过访问键打开某个子菜单时，必须先使焦点位于其上一级菜单4.下面关于随机文件的描述，不正确的是：（B ）-1504C 卷 2A、每条记录的长度必须相同B、 一个文件中记录号不必惟一C、 可通过编程对文件中的某条记录方便地修改D、 文件的组织结构比顺序文件复杂5.下列说法正确的是（ A ） -1409A 卷 2、 1412B 卷 4、 1401 批次 5A、如果框架的

8、 Enable 设为 False ，则框架内的所有控件都不可用。B、 时钟控件的 Visable属性设为 True 时，该控件在程序运行时可见，设为False 时，则不可见。C、 在列表框中能够将项目按字母顺序从大到小排列。D、移动框架时，框架内的控件不随之移动。6.用户可以通过设置菜单项的（B ）属性值为 False来使该菜单项不可见。-1409A 卷 4A、 HideB、 VisibleC、 Cheched D 、 Enable7.要暂时关闭计时器，需设置（B ）属性。 -1412B卷 5A、 VisibleB、 EnabledC、 Lock D、 Cancel8.若要得到列表框中项目的数

9、目，可以访问（C ）属性。 -1412B卷 6A、 List B、 ListIndexC、 ListCountD 、 Text在顺序文件中（ D ）。 -1412B 卷 8A、每条记录的记录号接从小到大排序B 、 每条记录的长度按从小到大排序C、按记录的某个关键数据项的排序顺序组织文件D、记录按写入的先后顺序存放，并按写入的先后顺序读出10.通过设置 Line 控件的（ D）属性可以绘制虚线、点划线等多种样式的直线。-1504C 卷 6A、 ShapeB 、 Style C、 FillstyleD、 Borderstyl e11.Seek方法用于在（C ）类型的记录集中查找满足条件的记录。-1

10、412B卷 9A、动态集B、快照C、表D、任意12.数据控件用于设置指定数据控件所访问的记录来源的属性是（A ） - 1409A卷 9A、 RecordSourceB 、 DataSource C、 DatabaseName D、 RecordSetTypeAVI 动画类似电影，由若干帧组成， Animation 控件可以显示（ A ）的音频视频动画（ AVI 文件）。 -1409A 卷 11A、无声 B、有声C 、无声和有声都可以D 、单声道14. 在用菜单编辑器设计菜单时，必须输入的项有（D ）。 -1504C卷 11A、快捷键B 、标题C 、索引D、名称假设窗体上已添加了通用对话框Com

11、monDialog1，下列选项中能打开 “颜色”对话框的是 （ C ）- 1409A卷 12A、 CommanDialog1.Action = 3B、 CommonDialog1.showColorC、 A 和 B 都可以D 、 A 不可以，16. 当鼠标移动时，有关 MouseMove事件的说明正确的是（ A ） -1504C卷 12A、 MouseMove事件不断发生B 、 MouseMove事件只发生一次C、 MouseMove事件经过每个象素都会触发D、 当鼠标指针移动得越快，则在两点之间触发的MouseMove事件越多当 BOF属性为 Ture 时，表示（ B ）。 -1409A 卷

12、 13、 1301 批次 B 卷 9 A、当前记录位置位于 Recordset 对象的第一条记录B、当前记录位置位于Recordset对象的第一条记录之前C、当前记录位置位于Recordset对象的最后一条记录D、当前记录位置位于Recordset对象的最后一条记录之后18. 在随机文件中（D ） -1409A卷 14A、记录号是通过随机数产生的，可以通过记录号随机读取记录B、记录的内容是随机产生的，记录的长度是任意的C、记录号不是通过随机数产生的不可以通过记录号随机读取记录D、记录的内容不是随机产生的，记录的长度不是任意的19.通过文本框的（D ）事件过程可以获取文本框中键入字符的A、 Ch

13、angeB 、 GotFocusC、 LostFocusD、 KeyPressASCII码值。以下关于索引的说法，错误的是（B ）。 -1412B 卷 17、 1504C 卷 16、1401 批次 12A、一个表可以建立一个到多个索引B、 每个表至少要建立一个索引以下叙述错误的是（ D） -1504C 卷 17A、在 KeyUp和 KeyDown事件过程中，从键盘上输入A 和 a 是相同的B、在 KeyUp和 KeyDown事件过程中，从键盘上1 和小键盘上的1 看作不同数字C、 KeyPress事件中不能识别键盘上某个键的按下与释放D、 KeyPress 事件中可以识别键盘上某个键的按下与释

14、放文本框控件与 DATA控件绑定到一起时，文本框的DataSource 属性指定了文本框所要绑定的（B ）-1504C卷 18A、数据库名B、 数据表名C 、 字段名D 、以上都不是23.用于设置或返回文件类型的属性是（C ）。 -1409A卷 17、 1301 批次A、 DriveB、 PathC、 PatternD 、 FileTitleB 卷10运行时，要清除图片框 P1 中的图像，应使用语句（ B ）。 -1504C 卷 19A、 Pl.Picture=“”B、 P1.Picture=LoadPicture（）C 、 Picturel.Picture=LoadPictureD、 Pic

15、turel.Picture=LoadPicture(“C： WINDOWSClouds.bmp ” )25.若要清除列表框的所有项目内容，可以使用（A、 AddItemB、 ReMoveC、 ClearD 、26.改变驱动器列表框的Drive 属性将引发（A、 LoadB、 ClickC、 Pattern changeC ）方法。-1409APrintD ）事件。 -1401批次D、 Change卷 1418以下的属性和方法中（ C ）可重定义坐标系 。 -1409A 卷 19、 1504C 卷 20A、 DrawStyle属性B 、 DrawWidth 属性C、 Scale方法D 、 Sca

16、leMode 属性28.语句“ Select From 学生基本Where 性别 =”男”中的“”号表示（D ）。 -1409A 卷 20A、所有表B 、 所有指定条件的记录C 、所有记录D、 指定表中的所有字段29.如果当前的List1中为空（即没有选项），运行下列语句后，List1中的内容是（ D ）- 1504C 卷Private Sub Command1_Click()21Dim s As StringFor n = 1 To 3s = Chr(65+n)List1.AddItem s, nNextEnd SubA、AB 、BC、CD、D以下正确的语句是：（ C ）-1412B 卷 2

17、1A、 CommonDialogl.Filter=All Files|*.*|PicturesB、 CommonDialogl.Filter=” All Files” | ”C、 CommonDialogl.Filter=” All Files|*.*|PicturesD、 CommonDialogl.Filter=All Files|*.*|Pictures*.*（ *.Bmp） |*.Bmp” | ” Pictures（ *.Bmp）”（ *.Bmp ）|*.Bmp ”（*.Bmp ） |*.Bmp|” *.Bmp ”编写如下事件过程： -1504C 卷 22Private Sub For

18、m_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If (Button And 3) = 3 ThenPrint AAAAEnd IfEnd Sub程序运行后，为了在窗体输出“AAAA”，应按下的鼠标键为（D）A、左B 、右C 、 同时按下左、右D、 按什么键都不显示当使用 Seek 方法或 Find 方法进行查找时， 可以根据记录集的 （ B ）属性判断是否找到了匹配的记录。-1409A卷 22A、 MatchB、 NoMatchC 、 FoundD、Nofound1.下列过程不能包含在标准模块

19、中定义的是（A ）。A.事件过程B. 子过程 C. 函数过程D. 公共过程下列关于数据库说法错误的是（ C ）A.一个表可以构成一个数据库B. 多个表可以构成数据库C. 一个表的每一条记录中的各数据项具有相同的类型D. 同一个字段的数据具有相同的类型5.要设置列表框的选择方式，应使用（B ）属性。A. ColumnsB. MultiSelectC. StyleD. List6.下面关于随机文件的描述，不正确的是：（B）-1401 批次 4A.每条记录的长度必须相同B. 一个文件中记录号不必惟一C. 可通过编程对文件中的某条记录方便地修改D. 文件的组织结构比顺序文件复杂下列控件中，（ A ）不

20、是用于文件操作的控件。A. List BoxB. DriveListBoxC. DirListBoxD. FileListBox9.可以在窗体模块的通用声明段中声明（A ）。 -1401 批次 6A.全局变量B.全局常量C. 全局数组D. 全局用户自定义类型11.当函数 EOF()的返回值为真时，表示文件的指针指向（B ）-1401 批次 8A.开头B. 尾部C. 最后一个字节D.最后一个记录14.将通用对话框CommonDialog1的类型设置为“另存为”对话框，该调用该控件的（C ）方法。A. ShowOpenB. ShowColorC. ShowSave D. ShowFont在下列关于

21、对话框的叙述中，错误的是（A ）：A. 作为对话框窗体的 Borderstyle 、 ControlBox 、 MaxButton 和 MinButton 应分别设置为 l 、 True 、 False 和 False 。语句 frmAbout Show vbModeless ， frmMain 将 fmAbout 窗体显示为 fmMain 的无模式子窗体。可以将对话框分成两种类型：模式的和无模式。语句 frmAbout Show将 frmAbout 作为无模式对话框显示。以下说法正确的是（ D ）。A.使用 Data 控件可以直接显示数据库中的数据B. 使用数据绑定控件可以直接访问数据库中的

22、数据使用 Data 控件可以对数据库中的数据进行操作，却不能显示数据库中的数据Data 控件只有通过数据绑定控件才可以访问数据库中的数据22.下面关于多重窗体的叙述中，正确的是（B ）。 -1401批次 13A.作为启动对象的 main 于过程只能放在窗体模块内B.如果启动对象是main 子过程， 则程序启动时可不加载任何窗体，以后由该过程根据不同情况决定是否加载或加载哪一个窗体C. 没有启动窗体，程序不能执行D.以上都不对25.下面关于过程作用域，错误的描述是（D ）。 -1409A卷10全局级过程的作用域为整个工程在某一窗体模块中定义的全局级过程，若被该模块外的模块所调用，必须在该过程名前

23、加上窗体名称C. 在不同模块中定义的模块级过程可以同名D. 在不同模块中定义的工程级过程不能同名确定一个控件在窗体上的位置的属性是(D )A. Width或 HeightB. Width和 LeftC. Top或 HeightD. Top 和 Left2.标准模块中的内容存放在以（B）为扩展名的文件中。-1401批次 1A. frmB. basC. clsD. xt下面的程序的输出结果是 (B)x=5For i = 1 To 20 Step 2x=x+i5Next iPrint x, iA. 21 20B. 21 21C. 22 20D. 22 214.要使某控件在运行时不可显示，应对（B）属

24、性进行设置。-1301批次 B 卷 1A. EnabledB. VisibleC. BackColorD. Caphon5.假设 A=3， B=7，C=2，则表达式AB OR B C的值是 (A )A. TrueB. FalseC.表达式错误D.不确定求 COS35可以使用的函数是（ D）。下列赋值语句中（ C）是错误的。 -1401 批次 2A. x x B. x x yC. x yx D. x10.若要取消窗体的最小化按钮，可以设置（D）属性来实现。-1401批次 3A. Top B. Enabled C. MaxButtonD. MinButton“ X 是小于 100 的正实数”写成

25、VB表达式正确的是： (A)A.X0ANDX0ORX=0ANDX=0ORX100在 VB中不能表示逻辑真的是 (D) 。A. True B. 1C. 1D. T15.语句 Print 6 * 6 6 / 6的输出结果是（ D）A.0 B.1C. 6D. 3617.下列可作为 Visual Basic中所允许的形式的数是(C)A. 25.74B. 3.457E-100C. 368 D. 1.87E+5019.若有数组说明语句： Dim t(1 To 10) As Variant，则 t 被定义为（ D）。 -1401批次 9-A.数值数组B.可调数组C. 字符串数组D. 可变类型数组20.Fun

26、ction过程要由函数名返回一个值。如果不使用As 数据类型选项来指定函数的类型，函数类型默认为（ B）类型。 -1401批次 10A. IntegerB. VariantC. LongD. Siring21.设有数组说明语句：Dim b （ To， To），则数组b 中元素的个数是（D ）。A. 12B. 15C. 16D. 2024.把数值型转换为字符（串）型需要使用下列哪一个函数？（B）A. ValB. StrC. AscD. Chr下面的数写成普通的形式是 1.21576654590569E+019 ( D) A. 12157665459056900 B. 12157665459056

27、9000C. 1215766545905690000D. 121576654590569000002.下列赋值语句合法的是（ A）A. A=A+B B. A+B=A C. A=A D. A=2B4.设 a=2， b=3， c=4， d=5，下列表达式的值是（D）。 not a=c or 4*c=b2 and ba+cA. 1B. 1C. trueD. false5.若将命令按钮设置为默认命令按钮，可以通过（C ）属性来实现。A. ValueB. CancelC. DefaultD. Enabled6.通用过程可以通过执行“工具”菜单中的（A）命令来建立。 -1301批次 B卷2A.添加过程B.

28、通用过程C. 添加窗体D. 添加模块7.假设 A=3， B=7， C=2，则表达式 NOT ( BA)的值是 (B)- 1301批次 B卷3A. TrueB. FalseC. 表达式错误 D.不确定9.在表达式 y = InputBox ( a, b, c )中， b为输入函数对话框的（A）。A.标题B. 提示C. 预设值D. 帮助文件名11.为了使窗体的大小可以改变，必须把它的BorderStyle 属性设置为 (B)- 1301批次B卷4A. 1B. 2C. 3D. 412.若有数组说明语句： Dim t(1 To 10) As Variant，则 t 被定义为（ D）。 -1301批次B

29、卷5A.数值数组B.可调数组C.字符串数组D. 可变类型数组不论何对象，都具有（ B）属性。15.下列语句正确的是（C）。 -1301批次 B 卷 7end下列过程调用合法的是（ C）A. Call Prog a,bB. Prog(a,b)C. Call Prog(a,b)D.以上都不对数学式子 Sin25 写成 VB表达式是（ ）。A. Sin25B. Sin（ 25）C. Sin（ 25）D. Sin （ 25*3.14/180 ）19.以下程序段中循环语句（B）。 -1301批次 B 卷 8x%=0While Not xx=x+1Print xWendA.有语法错误B.溢出C.循环体执行

30、一次D.循环体一次也不执行21.用下面的语句所定义的数组的元素个数是( ) Dim arr(3 To 6, -2 To 2)A. 12 B. 16 C. 18D. 2023.下列一维数组说明语句错误的是（C。A. Dim b(100) AS DoubleB. Dim b(-5 To 0) AS ByteC. Dim b(-10To 20) AS IntegerD. Dim b(5 To 5) AS String24.设已定义函数过程f ，它有三个整型数值参数，再设a,b 和 c 为实型变量，则调用该函数过程使用的语句为（D）。A. fB. f( a+b, b+c )C. f ( a+b, b+

31、c ,c+a )D. f a+b, b+c, c+a25.执行下面程序段时，内循环的循环次数是（D）。For m=1 To 3n=0While n1008、设Form1.Scaleleft=-150Form1.Scalertop=-200Form1.Scalewidth=350Form1.Scaleheight=500，则 Form1 的右下角坐标为（ 200,300）。 - 1412B 卷 81、注释语句可以放在可执行语句的后面，但必须是一行中最后 一个语句。 - 1504C 卷 13、如果把菜单项的Checked 属性设置为True ，则该菜单项成为一个选项。- 1504C 卷 35、若使

32、命令按钮Command1重新生效，则使用的赋值语句为Command1.Enabled=True 。 - 1504C 卷 67、将窗体Form1 移动到屏幕（ 300， 500）的位置，并将大小改变为3000 2000 使用的语句是（）。form1.left=300form1.top=500form1.width=3000form1.height=2000-1504C 卷7四、程序阅读题1.Private Sub Form_Click()num = 0Do num= num+ 1Print numLoop Until num 2End Sub程序运行后，单击窗体，输出结果是_ -1412B1 2

33、 32. 写出下面事件过程的执行结果。-1409A卷 2Private Sub Command1_Click()Dim s(1 To 6) As IntegerFor i=1 To 6卷2s(i)=iNext iFor i=1 To 3For j=4 To 6t=s(i)s(i)=s(j)s(j)=tNext jNext i654321下面程序运行后的结果是什么？该程序的功能是什么？Private Sub Commandl_Click（）Dim x$ ， n n=20Do While n 0a n Mod 2n n 2x Chr （ 48 a） xloopPint xEnd Sub运行后结果为

34、10100，该程序的功能是将十进制数转换成二进制字符串。4. 执行下面的程序， 单击命令按钮Command1后在窗体上显示的图形功能是什么? -1409A卷 4、1412B卷 4、 1504C卷 4Private Sub Command1_Click()ClsPrintFor n = 1 To 8Print Tab(2 * n + 2);For m = 1 To 8Print Spc(1); *;Next mPrintNext nEnd Sub由“ * ”号组成的平行四边形1.下面程序的功能是什么？-1401 批次 C 卷 3Private Sub Command1_Click()Dim a%

35、, s%, n%a = Val(InputBox(Please input a number:)Do While (a 0)s = a Mod 10a = a / 10n = n + func(s)LoopPrint nEnd SubPrivate Function func(x%) As Integerfunc = x * xEnd Function答：求一个数各位上的数的平方和。下面程序的功能是什么？ -1504C 卷 1 Private Sub Command1_Click()Dim s%, n% Dim a As String n = 0a = InputBox(Please inpu

36、t a number:) For s = 1 To Len(a)If (func(Val(Mid(a, s, 1) Thenn = n + 1NextPrint nEnd SubPrivate Function func(x%) As BooleanIf (x Mod 2 = 0) Thenfunc = TrueElsefunc = FalseEnd IfEnd Function答：判断一个数各位上的偶数个数写出下列事件过程的执行结果。Private Sub Command1_Click()Dim s% s=f(5)Print s=; sEnd SubPrivate Function f(By

37、Val n As Integer)If n=1 Thenf=1Elsef=n+f(n - 1)End IfEnd Function答： s=154.完成一个时钟定时的程序，要求按下Command1按钮后开始计时，每半个小时调用一次PrintTime()子过程，在窗体上打印当前的日期和时间。要求每空只能写一个执行语句，不允许用“一起。: ”将多个语句写在Private Sub Command1_Click()_Timer1.Interval = 30000_Timer1.Enabled = True_End SubPrivate Sub Timer1_Timer()Static n As Int

38、eger_n = n + 1_If (n = 60) ThenCallPrint Time_n = 0_End IfEnd SubPrivate SubPrintTime()Form1.FontSize = 30Form1.ForeColor = RGB(0, 255, 0)Form1.BackColor = RGB(0, 0, 0)Print _Time(), Date()_End Sub写出下列事件过程的执行结果。Public x As Integer Private Sub Command1_Click()x=10Print xCall s1Print xCall s2Print xEn

39、d SubPrivate Sub s1()x=x+20Print xEnd SubPrivate Sub s2()Dim x As Integerx=x+20Print xEnd Sub答：执行结果为：10 30 30 20 301、 下面事件过程的功能是输入某班学生的某门课程成绩，并存放到文件“填上适当内容。-1301批次 B卷 1、 1401 批次 C卷 2Private Sub Command1_Click()Dim n%, i%, score!n = InputBox(输入学生人数：)Open d:file2.datFor OutputAs #1For i = 1 To nscore

40、= InputBox(输入第 & Str(i) & 个学生的成绩：)Write #1, scoreNext iClose #End Subd:file2.dat”中，在横线上2、在窗体上画一个文本框，有如下事件过程：-1301批次B 卷 2Private Sub Text1_KeyPress(KeyAscii As Integer)Dim char As Stringchar= Chr(KeyAscii)KeyAscii = Asc(UCase(char)Print String(6, KeyAscii)End Sub程序运行后，如果在键盘上输入字母“a”，则窗体上显示的结果为：AAAAAA。

41、3、阅读程序Sub form_click()a = 10:b = 15c = 20d = 25Print a; Spc(5); b; Spc(7); cPrint a; Space$(8); b; Space$(5); cPrint c; Spc(3); +; Spc(3); d;Print Spc(3); =; Spc(3); c + dEnd Sub运行上面的程序，单击窗体，输出结果是（） -1301批次B 卷3输出是这样10 15 2010 15 2020+25=45分为顺序文件和结构文件4、 Private Sub Command1_Click()Dim n As IntegerDim

42、 t As Integern = 354t = 0While (n 1)t = t + f1(n Mod 10) n = n 10WendPrint tEnd SubPublic Function f1(n As Integer)If (n = 0) Thenf1 = 0Else If (n = 1) Thenf1 = 1Else f1 = n * f1(n - 1)End IfEnd Function单击一次Command1按钮一次，窗体上显示的是什么？150-1301批次5、下面程序的功能是对两个整型变量的值进行交换，在横线上填上适当内容。B 卷 4-1301批次B 卷 5Private

43、Sub Command1_Click()Dim a As Integer, b As Integera=10b=20Print a=; a, b=; bswap a, b或 Call swap( a, b)Print a=; a, b=; bEnd SubPrivate Sub swap(ByRef a As Integer, ByRef b As Integer)Dim t As Integert=a: a=b: b=tEnd Sub1、 Private Sub Command1_Click()For I= 1 To 4For J = 0 To IPrint Chr$(65 + I);Nex

44、t JPrintNext IEnd Sub程序运行后，如果单击命令按钮Command1，则在窗体上显示的内容是69。 - 1401 批次 C 卷 1Private Sub Form_Click() num = 0Donum = num + 3Print numLoop Until num Mod 4 = 0End Sub程序运行后，单击窗体，输出结果是_。 答： 3 6 9 12-1409A卷1写出下列事件过程的执行结果。 -1409A 卷 3 Private Sub Command1_Click()Dim i%For i=1 To 3 Call s4 Next iEnd Sub Static

45、 Sub s4() u=u+1: v=v+1 Print u=; u, v=; vEnd Sub 答：u=1v=1u=2 v=2u=3 v=31. 写出下列事件过程的执行结果。-1412B 卷 1Private Sub Command1_Click()s3 （ 1）s3 （ 1）End SubPrivite Sub s3(By Val a As Integer)Dim x As IntegerStatic y As Integerx=x+ay=y+aPrint “ x=”； x，“ y=”； yEnd Subx=1 y=1x=1 y=23. 有如下事件过程，写出运行结果-1412B 卷 3Pr

46、ivate Sub Command1_Click()s=0i=1Do While i=5s=s+i 2i=i+1loopPrint “ s=” & sEnd Subs=552、下面程序运行后的结果是什么？该程序的功能是什么？- 1504C 卷 2Private Sub Commandl_Click（）Dim x$ ， n n=20Do While n 0a n Mod 2n n 2x Chr （ 48 a） xloopPint xEnd Sub答：运行后结果为10100，该程序的功能是将十进制数转换成二进制字符串。3、 有下面一段程序，运行后单击 Command4按钮，过 3 分钟后 Text

47、1 中的内容是什么？ - 1504C 卷 3 Public a As Integer Private Sub Form_Load( )a=0End SubPrivate Sub Command4 Click（）Timer1. Enabled = 1Timer1. Interval = 100End SubPrivate Sub Timer1_Timer( )Static a%a = a + 1If a Mod 10 = 0 Thenf1 aEnd IfEnd SubStatic Sub f1(s%)a = a + 1s =0Text1.Text = Str(a)End Sub答： 18五、 问

48、答题1. 通过调试窗口中的“立即”窗口、“本地”窗口和“监视”窗口调试时的差别？-1504C 卷 4答：“立即” 窗口是调试窗口中使用最方便、最常用的窗口。可以在程序代码 中利用 Top“立即”窗口是调试窗口中使用最方便、最常用的窗口。 可以在 程序代码 中利用 DebugPint方法， 把输出送到 “立即”窗口，也可以直接该窗口使用Print 语句或“？”显示变量的值。“本地”窗口显示当前过程中所有变量的值。当程序的执行从一个切换到另一个过程时，“本地”窗口的内容会发生改变，它只反映当前过程中可用的变量。“监视”窗口可显示当前的监视表达式。在设计阶段必须在设计阶段，利用“调试”菜单的“添加监

49、视命令”或“快速监视”命令添加监视表达式以及设置的监视类型，运行时可显示在“监视”窗口。2.RGB 函数中的参数按什么颜色排列，其有效的数值范围是多少？怎样用RGB函数实现色彩的渐变？-1412B 卷 4答： RGB函数中的三个参数按红、绿、蓝的方式排列，RGB函数三基色的取值在0255 之间，当该值大于255 时， RGB函数将其当作255 处理。为实现色彩的渐变，只要在循环内连续改变三基色的取值。3.Now 函数和 Date 函数有何区别？答： Now 函数和 Date 函数都是求当前机器内日期，不同之处是Now函数除日期外还带回时间。4. 调用函数的一般格式是什么？ -1409A卷 4答

50、：计算机编或运行时，使用某个函数来完成相关命令。调用方法：函数名（参数列表）有参函数函数名 无参函数1. 在 Visual Basic中可使用哪些格式的图形文件？-1504C卷 1答： Visual Basic可处理图形文件主要有bmp、 ico 、 wmf、 jpg 、gif和 cur 。解释一下 keycode 参数的用法？答：Keycode 参数表示按下的物理键。 上档键字符和下档键字符也是使用同一键，它们的 Keycode 值相同。keycode 参数通过 ASCII 值或键代码常数来识别键。字母键的键代码与此字母的大写字符的ASCII 值相同。3. 菜单名与菜单项有什么区别？-140

51、1批次C卷1答：菜单名是菜单栏上表示包含菜单项列表的对象，菜单项可以包括命令、分隔条和子菜单标题。每个菜单命令项对应一个应用程序，菜单项可以有热键与快捷键，而菜单名只能有热键。4. 如何在目录列表框表示当前选定的目录?答：在程序运行时双击目录列表框的某目录项，则将该目录项改变为当前目录，其Dirl Pah 的值做相应的改变。而当单击选定该目录项时，Dirl Path 的值并没有改变。为了对选定的目录项进行有关的操作，即与 ListBox 控件中某列表项的选定相对应，则表示如下：Dirl List （ Dirl Listlndex）如何解决大数相乘产生“溢出”问题？答：例如：在以下程序代码中，当

52、n 的值为较大如1000 时，则运行如下程序段会产生“溢出”问题：Dim n Pi=2For n=1 To 1000Pi=Pi* （ 2*n ） 2 (2*n-1 ）* （ 2*n+1 ）Nex n改进方法一： n 声明为双精度类型。改进方法二：大数先除以大数再相乘，即程序段如下：Dim n Pi=2For n 1 To 1000Pi= Pi*（ 2*n ） (2*n-1 ） * （2*n ）（ 2*n+1 ）Next n1、 VB 坐标系中旋转什么方向是正向？ -1301批次 B 卷 1答：在 VB坐标系中，逆时针方向为正，各绘图方法都参照此坐标系。计算对象的坐标点时务必注意这一点。2、要使单精度变量x,y,z分别保留1 位、 2 位、 3 位小数位，并在窗体显示，使用什么函数？如何写对应的 Print 方法？ -1301 批次 B卷 2答：使用Format 函数，具体如下：Print Format(x,” 0.0 ” ) 显示 1 位小数位Print Format(x,”0.00 ” )显示 2 位小数位Print Format(x,”0.000 ”)显示 3 位小数位2、运算符是否有优先级，VB是怎样规定运算符的优先级的？-1401批次C