2022年VB语言程序设计试题库.pdf

《2022年VB语言程序设计试题库.pdf》由会员分享，可在线阅读，更多相关《2022年VB语言程序设计试题库.pdf（20页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VB语言程序设计试题库VB程序设计一、判断题1、 同一 Form窗体中的各控件可以相互重叠, 其显示的上下层次的次序不可以调整。( X ) 2、 一个对象的若能识别多个事件, 我们只能对其中一个事件编程( ) 3、 单选按钮与复选框对象的Value 属性类型不同 , 且只能取值 True 与 False 。( ) 4、 事件过程由某个用户事件或系统事件触发执行, 它不能被其她过程调用。 ( ) 5、 图片框的 Move方法不仅可以移动图片框 , 而且还可以改变该图片框的大小, 同时也会改变该图片框有关属性的值。( ) 6、 “A=B=C ”就是一个合法的Visual Basic语句。( ) 7

2、、 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时, 组合框会自动把这一条目添加到它的列表框中。( ) 8、 Visual Basic程序的运行可以从 Main() 过程启动 , 也可以从某个窗体启动。( ) 9、 在图片框中放置的控件既可以在该图片框内移动, 也可以移出该图片框外。( ) 10、 对于文件系统控件 , 当驱动器控件Drivel中的驱动器符改变时 , 文件夹列表控件Dir1中显示的文件夹也作相应的改变, 可以在 Drive1 中的 Change事件中使用如下命令。Dir1 、Path Drive1 、 Drive( ) 11、 滚动条控件可作为用户输入数据的一种方

3、法。( ) 12、 单选按钮控件与复选框控件都具有Value 属性, 它们的作用完全相同。 ( ) 13、 静态变量就是一种局部变量, 当原过程再次被执行时 , 静态变量的初值就是上一次过程调用后的值。 ( ) 14、 Visual Basic 提供的几种标准坐标系统的原点都就是在绘图区域的左上角, 如果要把坐标原点放在其她位置 , 则需使用自定义坐标系统。( ) 15. 注释语句 REM 可自成一语句。 ( ) 16、 用鼠标选中某菜单控件时, 触发Click事件 ; 而用键盘选中该菜单控件时, 触发KeyPress( ) 17、 组合框兼有文本框与列表框两者的功能, 用户可以通过键人文本或

4、选择列表中的项目来进行选择。 ( ) 18、 当定时器控件的 Interval属性值设置为 0 时, 会连续不断地激发Timer 事件。 ( ) 19. 执行程序 x=0:for I=2 to 10 step 2:x=x+10:next I后 x 的值为 0。( ) 2、 句“FontName= 宋体 ”与“Form1 、 FontName= 宋体 ”的作用完全相同 , 无一例外。( ) 21 局变量只能在窗体的通用区内用Public 或 global定义。 ( ) 22、 在盘驱动器列表框Drivel的 Change事件过程中 , 代码 Dirl 、 Path Drivel 、 Drive的

5、作用就是 : 当 Drivel的驱动器改变时 ,Dirl的目录列表随不同驱动器作相应改变。 ( ) 23. 直到型循环至少能执行一次循环体。( ) 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 1 页，共 20 页 - - - - - - - - - - VB语言程序设计试题库24、 Variant就是一种特殊的数据类型 ,Variant类型变量可以存储除定长字符串数据及自定义类型外的所有系统定义类型的数据。Variant类型变量还可具有Empty、Error与 Null等特殊值。 ( ) 25、 如果

6、一个菜单项的 Visible属性为 False, 则它的子菜单也不会显示。( ) 26、运行程序后在同一窗体上不可能同时选中两个单选钮。( ) 27、 窗体的 Enabled 属性值为 False时, 该窗体上的按钮、文本框等控件就不会对用户的操作做出反应。 ( ) 28. 定时器的 interval属性值为 0 时, 不会发生 timer 事件。 ( ) 29、 框架控件与形状控件都不能响应用户的鼠标的单击事件。( ) 30、 在一个窗体的代码中不能使用Unload 语句来卸载本窗体 , 即一个窗体只能由其她窗体卸载。 ( ) 31. 移动图片框时 , 以该图片框为载体的各控件的Left 与

7、 Top 属性值不变。 ( ) 二. 单选题32、 组合框的 Change( ) 事件在下列那种情况下发生？( C ) A、在程序改变控件的大小时发生 B、用户在下拉列表中改变选项时发生C、用户在编辑文本区内容时发生 D、当程序改变组合框的Style 属性时发生33、 为了使标签框的中的文字能自动折行, 必须同时设置下面两个属性为 True。( D ) A、Caption 与 AutoSize B、AutoSize 与 Aligment C、Visible 与 Enable D、AutoSize 与 WordWarp 34、如果希望文件列表框只显示可执行文件, 应该修改 ( B )属性。A、P

8、attern B、Filter C、Path D、35、为了使某个命令按钮处于不可用状态, 应该设置该命令按钮的属性。 ( B ) A、Default B、Enabled C、Cancel D、TabIndex 36、通用对话框控件的返回值表示所选择文件的( B ) 。A、路径名 B、全名 C、文件主名 D、文件扩展名37、关于单选按钮与复选框 , 下列说法正确的就是 :( C ) A、单选按钮与复选框的Value 属性值可能就是 0 或 1 B、同一窗体上的单选按钮只能有一个处于选中状态C、复选框不支持 DblClick事件D、单选按钮选中状态的改变只能由用户进行, 而不能由程序设置38、下

9、列控件中哪个控件没有Change事件( D ) A、滚动条 B、目录列表框 C、标签 D、单选按钮39、菜单项显示分隔线就是通过设置( A )属性来实现的。A、Caption B、Visible C、Checked D、Enabled 40、运行时组合框控件Comb1 中所选择的表项 , 可以表示为 ( C )。A、 Comb1 、 Text B、 Comb1 、 List C、 Comb1 、 ListIndex D、 Comb1 、 ListCount 41、要使 Shape控件以实心方式填充 , 应该设置其 ( B )属性。A、FillColor B、FillStyle C、BackSt

10、yle D、Shape 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 2 页，共 20 页 - - - - - - - - - - VB语言程序设计试题库42、向文本框中输入一个字符, 下列 事件不会发生。 ( C ) A、Change B、KeyPress C、GotFocus D、KeyDown 43、下面关于框架、复选框与单选钮的叙述, 正确的就是。( B ) A、框架没有 Caption 属性, 而复选框与单选钮都有Caption 属性 B、一个框架中的复选框有可以多个被选中C、一个窗体中单选钮

11、有且只有一个可以被选中A、 可以把窗体中已存在的单选钮拖到框架中, 成为框架中的一员44、用户在窗体上单击时 , 将先后触发该窗体的 ( D ) A、MouseDown 事件、 Click事件、 MouseMove 事件、 MouseUp 事件B、Click 事件、MouseDown 事件 、MouseUp 事件、 MouseMove 事件C、MouseDown 事件、 Click事件、 MouseUp 事件 、MouseMove 事件D、MouseDown 事件 、MouseUp 事件、 Click事件、 MouseMove事件45、下面 方法不属于列表框与组合框。( A ) A、Cls B

12、、AddItem C、GetFocus D、RemoveItem 46、在图片框控件 Picture1上坐标 (x,y) 处画一个绿色点 , 写作( D ) 。 A、Pset(x,y),Rgb(0,255,0) B、Picture1 、Pset(x,y),Green C、Pset(x,y),vbGreen D、Picture1 、Pset(x,y),vbGreen 47、下面关于滚动条与计时器控件的叙述, 其中错误的就是。( B ) A、当滚动条的 Value 值改变时 , 发生 Change事件B、当拖动滚动条时 , 释放鼠标时发生 Scroll事件C、计时器控件在运行时就是不可见的D、计时

13、器与滚动条控件都有Enable 属性48、单击滚动条两端的任一个滚动箭头, 将触发该滚动条的 ( C ) 事件。A、Scroll B、KeyDown C、Change D、Dragover 49、设置某子菜单项的Caption( 标题 ) 属性为“画图(&D)”,ShortCut(快捷键 ) 属性为“Ctrl+L ”。启动工程时 , 下面 不会触发该子菜单的Click 事件。 ( D ) A、打开主菜单 , 按 D键 B、直接按 Ctrl+L 键C、用鼠标单击该子菜单项 D、打开主菜单 , 按 Alt+D 50、要改变控件的宽度 , 应修改该控件的 ( C ) 属性。A、Top B、Left

14、C、Width D、Height 51、顺序文件有三种打开方式, 下面 种不就是。 ( A ) A、Random B、Input C、Output D、Append 52.( C ) 对象不能作为控件的容器。A、Form B、PictureBox C、Shape D、Frame 53、 将命令按钮 Command1 设置为不可见 , 应修改命令按钮的 ( A ) 属性。A、Visible B、Value C、Caption D、Enabled 54. 下列数据类型中 , 占用内存最小的就是 ( B ) 。A、Boolean B、Byte C、Integer D、Single 55、 ( D )

15、 对象具有 Clear 方法。A、图片框 B、窗体 C、复选框 D、列表框精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 3 页，共 20 页 - - - - - - - - - - VB语言程序设计试题库56. 一个对象可以执行的动作与可被对象识别的动作分别称为( B ) 。A、事件、方法 B、方法、事件C、属性、方法 D、过程、事件57. 已知 A、 B、 C中C最小, 则判断 A、 B、 C可否构成三角形 3 条边长的逻辑表达式就是 ( B )。A、A=B And B=C And C0 B、ACB

16、And BCA And C0 C、(AB=C Or AC=C) And C0 D、ABC And ABC And C0 58、将通用 对话框 CommonDialog1的类型设置成“另存为”对话框 , 可调用该控件的的 ( B ) 方法。A、ShowOpen B、ShowSave C、ShowColor D、ShowFont 59. 下面( C )就是日期型常量。A、 “12/19/99 ” B、12/19/99 C、#12/19/99# D、 12199960、 重新定义图片框控件的坐标系统, 可采用该图片框的 ( A ) 方法。A、Scale B、ScaleX C、ScaleY D、Set

17、Focus 61._D_ 对象不具有 Caption 属性。 D A、Label B、Option C、Form D、Timer 62.Integer类型的变量可存的最大整数就是( D ) 。A、255 B、256 C、32768 D、32767 63. 要改变控件的宽度 , 应修改该控件的 ( C )属性。A、Top B、Left C、Width D、Height 64、对于窗体级变量 , 以下说法错误的有 : ( B ) A、所在窗体的各子程序都可以访问 B、其她窗体的子程序不能访问 C、所在窗体的子程序能访问用Private定义的窗体级变量 D、一定要在所在窗体的通用区内定义65. 在窗

18、体 Forml 的 Click 事件过程中有以下语句 :( C ) “Label1 、 Caption ”“Visual Basic”若本语句执行之前 , 标签控件的 Caption 属性为默认值 , 则标签控件的 Name 属性与 Caption 属性在执行本语句之前的值分别为。 A、 “Label ” 、“Label ” B、“Labei1” 、 “Visual Basic” C、 “Label1” 、 “Label1” D、Caption 、 “Label ”66、 下面关于变量的作用域与生存周期的描述正确的就是( C ) A、全局变量可在窗体的通用区内定义B、窗体级变量与静态变量具有相

19、同的作用域与生存周期C、同一过程中用“ Dim ”定义的局部变量与用“ Static ”定义的局部变量具有相同的作用域D、同一过程中用“ Dim ”定义的局部变量与用“ Static ”定义的局部变量具有相同的生存周期67. 一个菜单项就是不就是一个分隔条, 由( B ) 属性决定。A、Name( 名称) B、Caption C.Enabled D、Visible 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 4 页，共 20 页 - - - - - - - - - - VB语言程序设计试题库68、In

20、teger类型的变量可存的最大整数就是。( D ) A、255 B、256 C、32768 D、32767 69. 下面( B )对象在运行时一定不可见。A、Line B、Timer C、Text D、Option 70. 形状控件所显示的图形不可能就是( D )。A、圆 B、椭圆 C、圆角正方形 D、等边三角形71. 以下( A )方式打开的文件只能读不能写。A、Input B、Output C、Random D、Append 72、 对象不具有 Caption 属性。 ( D ) A、Label B、Option C、Form D、Timer 73. 由 For k 35 TO 0 Ste

21、p 3: Next k 循环语句控制的循环次数就是( A ) A、0 B、12 C、-11 D、-10 74、以下 ( A )方式打开的文件只能读不能写。A、Input B、Output C、Random D、Append 75、由 For k 35 TO 0 Step 3: Next k 循环语句控制的循环次数就是( A ) A、0 B、12 C、-11 D、-10 76、想要改变控件在窗体中的左右位置, 可以修改该控件的 ( B )属性。A、Top B、Left C、Width D、Right 77、要在文件列表框中显示不同类型的文件可以通过设置( A )属性A、Pattern B、Pat

22、h C、 D、ListIndex 78、窗体的 DrawWidth 属性值设置为大于1 时, 下列( C )属性会失去作用A、Backcolor B 、FillStyle C、Drawstyle D 、Fillcolor 79. 如果在图片框上使用绘图方法绘制一个圆, 则图片框的 ( A )属性不会对该圆的外观产生影响。A、Backcolor B、ForeColor C、DrawWidth D、Drawstyle 80、 菜单编辑器中呈现以下状态, 程序运行后下列 ( D )操作无法执行“复制”功能A、 打开“编辑”菜单后按下“C”B、直接按下 Ctrl+C C、鼠标单击“复制”菜单项D、 “

23、 Alt+E ”“ Alt+C ” 三. 填空题81.VB 的字符串运算符有 _+_ 与 & 两种, 其中运算符两边的表达式类型必须为字符型的运算符就是 _ &_ 。82、 设 x=6,y=4,z=7, 下面表达式的值就是true _xy and yx-z or xz 83、 设 n 就是一个自然数 , 那么求 n 的位数 L 的表达式可以就是L= _ len(str(n)-1_。 例如: 若 n=12345,则 L=5 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 5 页，共 20 页 - - - -

24、 - - - - - - VB语言程序设计试题库84、 在打开某窗体时 , 初始化该窗体中的各控件, 应选用 load 事件。85. 滚动条的当前值用 _ value _表示。86、 设 x 为大于零的实数 , 则大于 x 的最小奇数的 Visual Basic表达式就是(Int(x)+1)2)*2+l(或(Fix(x)+1)2)*2+1)。87、 在代码设计中 , 为了给某控件的BackColor 属性赋一个颜色值 , 可以有三种方法获得颜色, 它们分别就是 QBColor() 函数、颜色常数与 _ RGB( ) 函数_。88、 a1 与 a2 之中有且只有一个与a3 的值相等 , 相应的

25、Visual Basic 逻辑表达式就是 a1=a3 Xor a2=a3( 或 a1=a3 And aa3 Or a1a3 And a2=a3) 。89、以图片框 Picture1的中心为圆心 , 以 1000为半径在 Picture1上画一个圆的方法就是 _ picture1 、circle (picture1、width/2,picture1、height/2),1000_ 。90、 设 init的初值为 10 , 则由下列循环语句控制的循环次数就是 6 。Do While init =5 Init=init-1 Loop 91、 窗体的 Enabled 属性值为 _ False _ 时,

26、 该窗体上的按钮、文本框等控件就不会对用户的操作做出反应。92、 在 Visual Basic中, 变量从它的作用范围来瞧。可分为全局变量、模块级变量与局部变量 3 种。93.Visual Basic 提供了对文件的三种存取方式, 分别就是 _ Input _ 、_ output _ 与_ Append _ 。94、 8 语句 Picture1 、 Circle(800,1000),500的含义就是以图片框Picture1 中的(800,1000)为圆心 , 以 500为半径画一个圆。95、用 Visual Basic 开发应用程序的 三步曲 就是:_ 界面设计 _、_属性设置 _与_代码设计

27、 _。96. 在 VB中, 若要产生一消息框 , 则可用函数 _ msgbox _ 来实现。97、已知 n 为一个三位正整数 , 写出求 n 中十位数的 Visual Basic表达式 _(n10) mod 10_。98. 若要获得用户在驱动器列表控件中所选择的驱动器, 可通过访问该对象的 _ Drive _ 属性来实现。99、 表达式 (4、82)*7 Mod 3 、14 的运行结果就是 _2_。精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 6 页，共 20 页 - - - - - - - - - -

28、 VB语言程序设计试题库100、 目录列表框 (DirListBox)中, 当前文件夹对应项目的ListIndex属性值为 _ -1 _ 。101. 利用 Line 方法可以画 _ 直线_ 、_矩形_ 与 _ 实心矩形 _ 。102.Visual Basic的菜单可分为 _ 下拉式 _ 菜单与 _弹出式 _ 菜单两种。103、在 Visual Basic中,_文件列表框 _与 _通用对对话框 _控件具有属性。104. 在 VB中, 用于产生输入对话框的函数就是_ Inputbox _,其返回值类型为 _字符型_ , 若要利用该函数接收数值型的数据, 则可利用 _ Val _ 函数对其返回值进行

29、转换而得到。105、用 PictureBox与 Image 控件装载图形图像时 , 为了使图形图像与所在的控件大小相等,可以改变106、形状的 Shape属性可以取 _6_个值, 分别代表各种不同的形状。107、如果在图片框上使用绘图方法绘制一个圆, 则图片框的 _ Backcolor _属性不会对该圆的外观产生影响。 PictureBox的_ stretch _ 属性与 Image的_ autosize _ 属性。108. 求与之积除以的余数, 用 VB 表达式为 _mod(a*b)/c) _ 。109、 Visual Basic常见控件中可以作为其她控件容器的控件有_框架_ 与_图片框 _

30、 。110.Visual Basic 的菜单可在 _菜单编辑器 _中设计完成。若要使某项菜单在运行时不可见,可设置该菜单对象的 _Visible _ 属性为 False 来实现 ; 若要使某项菜单在运行时失效, 则应设置菜单项对象 _ Enabled _ 属性为 False 。111、在代码设计中 , 为了使定时器 Timer1 能处于关闭状态 , 使系统不响应它的Timer() 事件,可以设置 Timer1、Enabled=False 或_ timer1 、Interval=0_。112、 表达式 Chr(Asc( “R ”)- Asc(“A”) +Asc( “a”) 的值就是 _ r _

31、。113.Print Mid$(Str$(-1234),3,2)的结果为 _23 _ 。程序阅读题四、阅读下列程序 , 写出运行结果。1、 程序 1 Private Sub Command1_Click() Dim x As Integer, s As Integer x = Val(InputBox(请输入一个正整数 =) If x i a = a + x x = x + 3 Loop End Sub 写出程序运行时连续3次单击 Command1 后,a1 、dat 文件的最终结果。程序阅读题答案 :1 、s=5 s=10 s=40 2、w=3 k=2 w=4 k=4 w=5 k=6 w=6

32、 k=8 3、L H 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 9 页，共 20 页 - - - - - - - - - - VB语言程序设计试题库F D B 4、y=5 a=5 y=15 a=10 y=30 a=15 五、程序填空题仔细阅读下列各小题的程序说明与相应的程序, 在每小题提供的若干可选答案中, 挑选一个正确答案。1、 【程序说明】本程序求 3100之间的所有素数 ( 质数) 并统计个数 , 同时将这些素数从小到大依次写入顺序文件 e:dataout、txt,素数的个数显示在窗体 For

33、m1上。【程序】Private Sub Command1_Click() Dim count As Integer, flag As Boolean Dim ti As Integer, t2 As Integer (1) count = 0 For ti = 3 To 100 flag = True For t2 = 2 To Int(Sqr(t1) If (2) Then flag False Next t2 (3) count = count + 1 Write #1, t1 End If Next t1 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下

34、载 名师归纳 - - - - - - - - - -第 10 页，共 20 页 - - - - - - - - - - VB语言程序设计试题库(4) Close #1 End Sub (1)A 、Open e:dataout、txt For Output As #1 B、Open e:dataout、txt For Input As #1 C、Open e:dataout、txt For Output As #2 D、Open e:dataout、txt For Output As #1 (2) A 、t2t1=0 B、t1 Mod t2=0 C 、t1t2=0 D 、t2 Mod t1=0

35、(3)A 、If flag Then B、If t2t1 Then C、If t1t2 Then D、If t2int(sqr(t1) Then (4) A 、 Forml 、Print素数个数 : ; count B、 Print #l 素数个数 :;Count C、 Form1、Print素数个数 :; count D、 Form1、Print素数个数 : Count 2、 程序说明 由输入对话框输入n(设 n为大于零且小于 30 的自然数 ), 计算下列表达式并在标签框Label1上显示。/( *2)+1/(2*3)+1/(3*4)+1/(n*(n+1) 【程序】Private Sub

36、Form_Click() Dim n As Integer, sum As Double, k As Integer Do (5) n = Val(InputBox(n=, 请重输 ) Loop sum = 0 (6) Do k = k + 1 sum= (7) Loop Until k = n Label1 、Caption = Sum + Str(sum) End Sub 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 11 页，共 20 页 - - - - - - - - - - VB语言程序设计试

37、题库(5) A 、While n=30 B 、While n=30 C、Until n0 Or n =0 and n Len(Str1)/2 D、Until m A And (5) ) Or (Ch a And Ch z) Then St2 = St2 + Ch End If Next i Text1 、Text = (6) End Sub 3、 下面的程序完成以下功能 : 窗体上有两个命令按钮“产生”(Command1) 与“排序”(Command2) 。单击“产生”按钮时, 随机产生 10个1,20 范围内的整数放在数组A中,并在窗体上输出。单击“排序”按钮时, 用选择法排序这10个数并输

38、出。Dim A(10) As Integer Private Sub Command1_Click() Dim i As Integer Randomize Print 排序前的数列 : For i = 1 To 10 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 13 页，共 20 页 - - - - - - - - - - VB语言程序设计试题库A(i) = (7) Print Str(A(i) + ; Next i Print End Sub Private Sub Command2_Click(

39、) Dim i, j, Min, Temp As Integer Print Print 选择排序后的数列 : For i = 1 To 9 Min = A(i) For j = (8) To 10 If A(j) Min Then Temp = A(j) A(j) = (9) Min = Temp End If Next j A(i) = Min (10) For i = 1 To 10 Print Str(A(i) + ; Next i Print End Sub 程序填空题答案 :(1) n*Jc(n-1) (2) result (3) string (4) len(str) (5) c

40、h=0 、 00000001 八、1、 分别写出下面两段程序执行三次后的结果。Private Sub Form_Click() Dim i As Integer Static j As Integer j = j + 1 i = i + 1 Print i=; Str(i), j=; Str(j) End Sub Dim i, j As Integer Private Sub Form_Click() j = j + 1 i = i + 1 Print i=; Str(i), j=; Str(j) End Sub 参考答案 : 1 左: 右: I=1 j=1 I=1 j=1 I=1 j=2 I

41、=2 j=2 I=1 j=3 I=3 j=3 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 16 页，共 20 页 - - - - - - - - - - VB语言程序设计试题库九、 写出下面程序执行后的结果( 其中在 Form_Click() 事件中调用了子过程Proc) 。Private Sub Form_Click() Dim x, y As Integer Dim u, v As Integer x = 1 y = 2 u = 3 Proc x, y u = u + x + y Print x=

42、; Str(x), y=; Str(y), u=; Str(u) End Sub Private Sub Proc(ByVal a As Integer, ByRef b As Integer) Dim u As Integer a = a + 1 b = b + 1 u = u + a + b Print a=; Str(a), b=; Str(b), u=; Str(u) End Sub 程序阅读题答案 : 2 a=2 b=3 u=5 x=1 y=3 y=5 十. 用输入对话框输入x, 根据下式计算对应的y, 并在窗体上输出 y 的值。注: 程序写在命令按钮Commandl 的 Click

43、 事件中。答案程序如下 : Private Sub Command1_Click() Dim x As Single x = Val(InputBox(x=, 请输入数据 ) Select Case x Case Is 10 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 17 页，共 20 页 - - - - - - - - - - VB语言程序设计试题库y = Sqr(x) + Sin(x) Case 10 y = 0 Case Else y = 2 * x 3 + 6 End Select Prin

44、t y=; y End Sub 十一. 共用户界面如下图所示 , 用于实现左右两个组合框中数据的左移与右移功能。程序开始运行时 , 在左边组合框中生成10 个由小到大排列的随机3位正整数 (假设在设计阶段该组合框的Sorted 属性值已设置为 True,现要求完成 : 、单击“”按钮 , 左边组合框中的 10 个数全部移到右边组合框中, 并由大到小排列 , 同时使“”按钮能响应, “”按钮不能响应。、单击“”按钮 , 右边组合框中的 10 个数全部移到左边组合框中, 并由小到大排列 , 同时使“”按钮能响应, “”按钮不能响应。、单击“结束”按钮 , 结束程序运行。用户界面部分程序代码如下 :

45、 Private Sub Form_load() Dim i As Integer Label1 、Caption = 组合框 1 Label2 、Caption = 组合框 2 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 18 页，共 20 页 - - - - - - - - - - VB语言程序设计试题库CmdRight、Caption = CmdRight、Enabled = True CmdLeft、Caption = CmdLeft、Enabled = False cmdExit 、Capt

46、ion = 结束 ComboLeft、Text = For i = 1 To 10 ComboLeft、AddItem Int(Rnd * 900) + 100 Next i ComboRight、Text = End Sub 请分别编写 3 个命令按钮的单击事件。答案程序如下 : Private Sub cmdExit_Click() End End Sub Private Sub CmdLeft_Click() Dim i As Integer, last As Integer last = ComboRight、ListCount - 1 For i = 0 To last ComboL

47、eft、AddItem ComboRight、List(0) ComboRight、RemoveItem 0 Next i CmdLeft、Enabled = False CmdRight、Enabled = True End Sub Private Sub CmdRight_Click() Dim i As Integer, last As Integer last = ComboLeft、ListCount - 1 For i = 0 To last 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 19 页，共 20 页 - - - - - - - - - - VB语言程序设计试题库ComboRight、AddItem ComboLeft 、List(last - i) ComboLeft、RemoveItem last - i Next i CmdLeft、Enabled = True CmdRight、Enabled = False End Sub 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 20 页，共 20 页 - - - - - - - - - -