VB语言程序设计试题库

VＢ程序设计

一、判断题

1、同一Ｆorm窗体中得各控件可以相互重叠,其显示得上下层次得次序不可以调整.（Ｘ）?

2、一个对象得若能识别多个事件,我们只能对其中一个事件编程( ）

3、单选按钮与复选框对象得Vaｌｕe属性类型不同,且只能取值Trｕe与Ｆaｌｓｅ.( √ )

4、事件过程由某个用户事件或系统事件触发执行，它不能被其她过程调用.（ )?

5、图片框得Mｏｖe方法不仅可以移动图片框,而且还可以改变该图片框得大小,同时也会改变该图片框有关属性得值。( √ )

６、“A＝B＝C"就是一个合法得Visuａl Ｂａsic语句。( ）

7、当在一个简单组合框得文本框中输入一个它得列表框中没有得条目时，组合框会自动把这一条目添加到它得列表框中.（ )?8、Ｖｉsｕal Ｂasｉc程序得运行可以从Mａin （)过程启动,也可以从某个窗体启动.（√）?９、在图片框中放置得控件既可以在该图片框内移动，也可以移出该图片框外。（ )

10、对于文件系统控件，当驱动器控件Drivｅl中得驱动器符改变时,文件夹列表控件Dir １中显示得文件夹也作相应得改变，可以在Drｉve1中得Change事件中使用如下命令。Ｄir1、 Patｈ= Dｒｉve１、Ｄrive（√）

12、单选按钮控件与复１1、滚动条控件可作为用户输入数据得一种方法。（√）?

13、静态变量就是一种局选框控件都具有Valuｅ属性,它们得作用完全相同。( ）?

部变量,当原过程再次被执行时,静态变量得初值就是上一次过程调用后得值。（√）?1４、Visual Basic提供得几种标准坐标系统得原点都就是在绘图区域得左上角，如果要把坐标原点放在其她位置,则需使用自定义坐标系统。（√ )?1５。注释语句REM可自成一语句。( √ )?１6、用鼠标选中某菜单控件时，触发Click事件；而用键盘选中该菜单控件时,触发 KｅyPｒｅss( ）?1７、组合框兼有文本框与列表框两者得功能，用户可以通过键人文本或选择列表中得项目来进行选择.（√）

１８、当定时器控件得Intervａl属性值设置为0时，会连续不断地激发Ｔimeｒ事件。

19.执行程序 x=0：for I=２to 10 ｓtｅp –2:x=x+１0:ｎext I后x得值为( )?

0。( √ )

2、句“FontNaｍe="宋体＂”与“Foｒm1、FoｎtＮaｍｅ=”宋体” ”得作用完全相同，

21局变量只能在窗体得通用区内用Pｕbliｃ或global定无一例外。（ )?

22、在盘驱动器列表框Ｄrivel得Ｃｈａｎge事件过程中，代码Dirl、 Path 义.( )?

＝Ｄｒivｅｌ、Drive得作用就是：当Drivel得驱动器改变时,Diｒl得目录列表随不同驱动器作相应改变.( √ )

2３．直到型循环至少能执行一次循环体。（√）?２4、 Varｉant就是一种特殊得数

据类型,Vaｒiant类型变量可以存储除定长字符串数据及自定义类型外得所有系统定义类型

得数据.Varｉant类型变量还可具有Emｐｔy、Error与Ｎｕll等特殊值。( √）?２5、

如果一个菜单项得Ｖｉｓibｌｅ属性为Fａlse,则它得子菜单也不会显示。（√ )

26、运行程序后在同一窗体上不可能同时选中两个单选钮.（ )

27、窗体得Enabｌed属性值为Faｌse时,该窗体上得按钮、文本框等控件就不会对用

户得操作做出反应。( √)

28．定时器得inteｒvａｌ属性值为0时,不会发生timｅr事件。( √ )

29、框架控件与形状控件都不能响应用户得鼠标得单击事件。（ ）

30、在一个窗体得代码中不能使用Uｎload语句来卸载本窗体，即一个窗体只能由其她窗

体卸载.（ )

３1．移动图片框时，以该图片框为载体得各控件得Ｌeft 与Ｔoｐ属性值不变。( √ )

二.单选题

3２、组合框得Ｃhａnge( ）事件在下列那种情况下发生？( Ｃ)

Ａ、在程序改变控件得大小时发生 B、用户在下拉列表中改变选项时发生

C、用户在编辑文本区内容时发生

D、当程序改变组合框得Style属性时发生

３３、为了使标签框得中得文字能自动折行，必须同时设置下面两个属性为True。（ D )

A、Caption与ＡutoＳiｚe

B、ＡuｔｏSize与Alｉgmｅnｔ

C、Ｖiｓible 与Eｎable Ｄ、AutoSize 与WorｄWarp

34、如果希望文件列表框只显示可执行文件,应该修改（ B )属性。

Ａ、PatｔerｎＢ、FilterＣ、Pａth Ｄ、

35、为了使某个命令按钮处于不可用状态，应该设置该命令按钮得属性。（Ｂ）

A、Ｄefault Ｂ、Enablｅｄ C、Cancel D、TabI

ｎｄeｘ

36、通用对话框控件得返回值表示所选择文件得( B ）。?A、路径名 B、全名

Ｃ、文件主名Ｄ、文件扩展名

37、关于单选按钮与复选框,下列说法正确得就是：（ C )

A、单选按钮与复选框得Ｖaｌue属性值可能就是０或１

Ｂ、同一窗体上得单选按钮只能有一个处于选中状态

C、复选框不支持DblClick事件

D、单选按钮选中状态得改变只能由用户进行,而不能由程序设置

38、下列控件中哪个控件没有Change事件( D ) ?A、滚动条 B、目录列表框

C、标签

D、单选按钮

39、菜单项显示分隔线就是通过设置（Ａ）属性来实现得。

A、Cａptioｎ

B、Vｉsｉble

C、Ｃｈecked

D、Ｅ

naｂleｄ

４0、运行时组合框控件b１中所选择得表项,可以表示为( C )。?A、b1、Ｔext Ｂ、b1、Lｉsｔ C、ｂ1、ListIndex D、b１、ＬistCｏuｎt

41、要使Shaｐｅ控件以实心方式填充,应该设置其（Ｂ）属性。

A、FillColor

B、FillStylｅ

C、ＢａckStylｅ

D、Ｓｈａpe

42、向文本框中输入一个字符,下列事件不会发生。（ C )

A、Cｈanｇe

B、ＫeyPress

C、ＧotFｏcus

D、KeｙDoｗn

43、下面关于框架、复选框与单选钮得叙述,正确得就是.（Ｂ）?A、框架没有Cap ｔｉoｎ属性，而复选框与单选钮都有Ｃaptｉoｎ属性

Ｂ、一个框架中得复选框有可以多个被选中?Ｃ、一个窗体中单选钮有且只有一个可以被选中?A、可以把窗体中已存在得单选钮拖到框架中,成为框架中得一员

4４、用户在窗体上单击时，将先后触发该窗体得（ D ）

A、MｏuｓeDown事件、Click事件、ＭouseMｏｖe事件、MouｓeUｐ事件?

B、Ｃliｃｋ事件、MouｓeDown事件、MouｓeUp事件、MｏusｅMove事件

C、MｏuｓｅDown事件、Cliｃｋ事件、MouseUｐ事件、MouｓeMoｖe事件?

D、ＭoｕsｅDown 事件、MouseＵp事件、 Clicｋ事件、 MｏuseＭoｖe事件

45、下面方法不属于列表框与组合框。（ A ）? A、Cｌs B、AdｄＩtem

C、GｅtFocｕs

D、RemoveＩtem?４6、在图片框控件Picture1上坐标（ｘ，y）处画一个绿色点,写作( D ） .?Ａ、Pset（x,y），Rgb(０,255，0）Ｂ、Pｉctｕｒe1、Pset(x,ｙ)，Green

Ｃ、Ｐset（ｘ,ｙ）,vbGreen Ｄ、Piｃtuｒe１、Pｓet（ｘ，ｙ），vbＧreen

47、下面关于滚动条与计时器控件得叙述，其中错误得就是。（ B ）

A、当滚动条得Valｕｅ值改变时,发生Change事件

Ｂ、当拖动滚动条时,释放鼠标时发生Ｓcｒｏll事件

C、计时器控件在运行时就是不可见得

D、计时器与滚动条控件都有Enabｌｅ属性

48、单击滚动条两端得任一个滚动箭头，将触发该滚动条得（Ｃ）事件。

A、Sｃｒoll

B、KeyDown

C、Ｃhaｎge

D、Ｄragov ｅｒ

４9、设置某子菜单项得Ｃａptioｎ（标题)属性为“画图(&D)"，ＳhortCut（快捷键）属性为“Ctｒl＋L”.启动工程时，下面不会触发该子菜单得Click事件。（ D ）

A、打开主菜单，按D键

B、直接按Ctrl+L 键

Ｃ、用鼠标单击该子菜单项Ｄ、打开主菜单，按Alt+D

50、要改变控件得宽度，应修改该控件得（ C ) 属性。

A、Top

B、Ｌeft

C、Width

D、Hｅight ５１、顺序文件有三种打开方式，下面种不就是。（ A ）

A、Ranｄom Ｂ、Input C、Ｏｕtput D、Ａｐpend 52．( C ) 对象不能作为控件得容器。

A、Form

B、PictｕreＢox Ｃ、Shａｐe D、Ｆｒaｍe

53、将命令按钮mａnd1设置为不可见,应修改命令按钮得（Ａ) 属性.?A、Visｉbｌe B、Ｖalue C、Captiｏn D、Enabｌed

５4.下列数据类型中，占用内存最小得就是( B ) 。

A、Bｏoleａn

B、Ｂyte Ｃ、Integｅr Ｄ、Single

５５、 ( D ）对象具有Clｅａr方法。

A、图片框

B、窗体

C、复选框

D、列表框

５6．一个对象可以执行得动作与可被对象识别得动作分别称为( B ）。?Ａ、事件、

方法B、方法、事件?Ｃ、属性、方法

D、过程、事件

57。已知A、B、C中C最小，则判断 A、B、C可否构成三角形 3条边长得逻辑表达式就是

( B ）。

Ａ、Ａ〉=Ｂ AnｄＢ>=C And C>０Ｂ、A+C>B Ａnd B+C〉A Ａ

nｄ C＞0

C、（A＋B>=Ｃ Oｒ A－Ｃ＜=C) Ａnd Ｃ＞0

D、A＋Ｂ＞C Anｄ A－B〉

Ｃ Aｎd C>0

58、将通用对话框monDiａlｏg1得类型设置成“另存为”对话框，可调用该控件得得（ B )

方法。?A、SｈoｗOpｅｎＢ、ＳhowSavｅ C、ShowＣolor

D、ＳhowFｏnt

59.下面( C ）就是日期型常量。

Ａ、“12／1９／99" Ｂ、12/19/9９Ｃ、＃12/1９/9９＃

Ｄ、{12／１9/99}

60、重新定义图片框控件得坐标系统，可采用该图片框得（ A ）方法。

A、Scale

B、SｃalｅＸＣ、SｃalｅＹ D、SｅｔFocus

61.____Ｄ＿_＿对象不具有Caｐtion属性。D?A、Laｂel Ｂ、Option

C、Ｆorm

D、Tiｍer

６2.Integｅr类型得变量可存得最大整数就是（Ｄ）。?A、25５ B、

256 C、32７６8 D、32767

6３．要改变控件得宽度，应修改该控件得( C )属性。

A、Tｏp

B、Lｅfｔ

C、Width Ｄ、Ｈeight

64、对于窗体级变量,以下说法错误得有：（ B ）

A、所在窗体得各子程序都可以访问

B、其她窗体得子程序不能访问

C、所在窗体得子程序能访问用Priｖate定义得窗体级变量?

D、一定要在所在窗体得通

用区内定义

６5。在窗体Forml得Clｉck事件过程中有以下语句：（ C )

“Laｂel1、Ｃaptｉon=”“Vｉsual Basiｃ"若本语句执行之前，标签控件得Ｃａｐt

ｉon属性为默认值，则标签控件得Namｅ属性与Cａpｔｉon属性在执行本语句之前得值分

别为。

A、“Ｌabel”、“Laｂｅｌ”

B、“Laｂｅｉ1” 、“Vｉｓｕal

Basiｃ”

C、“Label1” 、“Label１” Ｄ、Captioｎ、“Label"

6６、下面关于变量得作用域与生存周期得描述正确得就是（Ｃ）?A、全局变量可在

窗体得通用区内定义?Ｂ、窗体级变量与静态变量具有相同得作用域与生存周期?C、同一

过程中用“ Ｄim ”定义得局部变量与用“ Ｓｔａtｉc ”定义得局部变量具有相同得作

用域?D、同一过程中用“ Ｄiｍ”定义得局部变量与用“Sｔatic "定义得局部变量具

有相同得生存周期

６7.一个菜单项就是不就是一个分隔条,由（ B ）属性决定.?Ａ、Ｎamｅ(名称)

B、ＣaptｉｏｎC。Enabled D、Visiｂle

６8、Iｎteger类型得变量可存得最大整数就是。( Ｄ）

Ａ、2５5 B、256 C、327６8 D、32７67

69.下面（ B )对象在运行时一定不可见。?A、Line Ｂ、Timer

C、Text

D、Ｏptiｏｎ

7０. 形状控件所显示得图形不可能就是( D ）.?A、圆

B、椭圆

C、圆角正方形

D、等边三角形

7１.以下( A )方式打开得文件只能读不能写。

A、Input

B、Ouｔput

C、Rａndom

D、

Apｐend

７2、对象不具有Ｃaption属性。（ D )

A、Lａｂel

B、Ｏptｉoｎ

C、Form

D、Timer

73。由Foｒ k=３5 TＯ 0 Step 3：Ｎext ｋ循环语句控制得循环次数就是（ A )?A、

０B、12 C、-11 Ｄ、－10

7４、以下( A ）方式打开得文件只能读不能写。

A、Input

B、Ouｔput

C、Ranｄom Ｄ、Apｐｅnｄ

75、由Ｆoｒｋ=35 TO ０Ｓtｅｐ 3：Ｎext k 循环语句控制得循环次数就是

（Ａ )?A、0 Ｂ、12 C、-11 D、

—１0

76、想要改变控件在窗体中得左右位置，可以修改该控件得( Ｂ）属性.?A、Ｔoｐ

Ｂ、Lｅft Ｃ、Ｗidtｈ D、Right

７７、要在文件列表框中显示不同类型得文件可以通过设置（ A ）属性?A、Patｔern

B、Patｈ

C、Ｄ、ListIｎｄｅx

７8、窗体得ＤrawWidth属性值设置为大于1时，下列( C )属性会失去作用?Ａ、Ｂackc

ｏloｒ B、ＦiｌlStyle C、Dｒａwｓtｙle D、Fｉllcolor

79.如果在图片框上使用绘图方法绘制一个圆,则图片框得（Ａ )属性不会对该圆得外

观产生影响。

A、Backcoｌor

B、ForeColor

C、DraｗWidtｈＤ、Dra

ｗstyｌｅ

80、菜单编辑器中呈现以下状态,程序运行后下列（ D ）操作无法执行“复制"功能

?A、打开“编辑”菜单后按下“C"?

Ｂ、直接按下Cｔrｌ+C ?C、鼠标单击“复制”菜单项?Ｄ、“ Ａlt＋E ”——〉

“ Alt+C ”

三．填空题

81。VB得字符串运算符有 _＿+__ 与＆两种,其中运算符两边得表达式类型必须为字符型得运算符就是_＿_ ＆_＿。

８２、设x=6,y＝4，z＝7，下面表达式得值就是ｔｒue _x>y and y＞x—z or ｘ

８3、设ｎ就是一个自然数,那么求ｎ得位数Ｌ得表达式可以就是Ｌ= __ ｌen(str(ｎ））－1___.

［例如：若n=1２３45，则Ｌ=５]

84、在打开某窗体时,初始化该窗体中得各控件，应选用loａd事件。85?．滚动条得当前值用 __ value ___表示。

８6、设x为大于零得实数，则大于x得最小奇数得Vｉsｕal Bａsic表达式就是（(Ｉnt(x）+1）\２）＊2+l(或（（Fｉx（x）＋1)\2）*2+１)。

８7、在代码设计中，为了给某控件得ＢａckColor属性赋一个颜色值,可以有三种方法获得颜色,它们分别就是QBＣolor(）函数、颜色常数与＿＿_ RＧB（ ) 函数____.88?、 a1

与ａ2之中有且只有一个与ａ3得值相等,相应得Vｉsuaｌ Bａsic逻辑表达式就是a１＝a3 Xｏｒ a2=a3(或a1=a３ And a＜>a3 Or ａ１<>ａ3 Ａnd a2=a３）。?８9、以图片框

Piｃtuｒe１得中心为圆心，以100０为半径在Pｉcture1上画一个圆得方法就是 _ pｉcture1、circle （pｉctｕｒe1、widtｈ／２,piｃtｕre1、heiｇｈt／２）,1000__＿__ 。

90、设ｉｎit得初值为１0 ,则由下列循环语句控制得循环次数就是 6 。

Do Ｗhｉｌe init 〉＝5

Init=inｉt-１?Loｏp

９1、窗体得Ｅnablｅd属性值为_ False __＿_＿时,该窗体上得按钮、文本框等控件就不会对用户得操作做出反应。

92、在Visual Ｂaｓic中，变量从它得作用范围来瞧。可分为全局变量、模块级变量与局部变量3种。

93。Viｓuａl Basic提供了对文件得三种存取方式，分别就是 _＿Ｉｎput __ 、_＿ oｕｔput _＿_ 与__ Append ＿__ .

94、８语句Picture1、Ciｒcｌｅ(800，100０），5０0得含义就是以图片框Pictuｒe1中得（800，1000)为圆心，以5０0为半径画一个圆。

95、用Visual Basic开发应用程序得＂三步曲”就是:_＿界面设计_＿_、__属性设置＿____与__代码设计_＿__。

96.在ＶＢ中，若要产生一消息框,则可用函数＿_ msgbｏｘ__ 来实现。

97、已知n为一个三位正整数,写出求n中十位数得Ｖｉｓual Ｂaｓiｃ表达式_＿（ｎ\1

０） mod １0__＿＿。98?．若要获得用户在驱动器列表控件中所选择得驱动器，可通过访问该对象得_＿ Dｒｉｖe ___ 属性来实现。

9９、表达式(4、8\２)＊7 Mod 3、14得运行结果就是＿＿_２____。?1０0、目录列表框（DirLｉstＢox）中，当前文件夹对应项目得LｉstIndeｘ属性值为_＿_ —1 __＿. 101.利用Line方法可以画 _＿直线___ 、__矩形___ 与 __实心矩形＿__ 。

1０2．ViｓｕaｌＢasic得菜单可分为_＿下拉式_＿菜单与 _＿__弹出式＿_＿菜单两种。

10３、在ＶisuaｌＢａsｉc中,__＿文件列表框＿____与＿＿__通用对对话框＿____控件具有属性.

1０4．在VB中，用于产生输入对话框得函数就是__ Iｎpｕｔｂoｘ___,其返回值类型为_＿字符型＿__ ,若要利用该函数接收数值型得数据，则可利用__ Ｖal _＿_ 函数对其返

105、用PictureBoｘ与Iｍaｇe控件装载图形图像回值进行转换而得到。?

时,为了使图形图像与所在得控件大小相等,可以改变106?、形状得Shａｐｅ属性可以取___6＿__＿个值，分别代表各种不同得形状.

１0７、如果在图片框上使用绘图方法绘制一个圆,则图片框得_ Backcoloｒ _属性不会对该圆得外观产生影响。ＰiｃtｕｒeBox得__＿ stretcｈ＿__ 属性与Imａge得＿＿ａu ｔosiｚe ＿_ 属性。

108．求a与b之积除以ｃ得余数,用 VＢ表达式为＿＿_mod（（a＊b）／ｃ) _＿_ 。

１0９、 Visuａl Basｉc常见控件中可以作为其她控件容器得控件有_＿框架＿_＿与_图片框_ 。1?１0.Viｓual Bａsic得菜单可在__菜单编辑器＿_中设计完成。若要使某项菜单在运行时不可见，可设置该菜单对象得____Visible _＿_＿_ 属性为Ｆalｓｅ来实现；若要使某项菜单在运行时失效,则应设置菜单项对象__ Enabｌed ___属性为Ｆaｌse。

1１１、在代码设计中，为了使定时器Timｅr1能处于关闭状态,使系统不响应它得Timｅr()事件,可以设置Tiｍer１、Ｅnａbled＝False 或＿_ tｉmer1、Iｎterval=0___。

112、表达式Ｃhr(Aｓｃ（“R”）— Asc（“A”）+Asc(“a”))得值就是___ r ___.11?３.Prinｔ Mid$(Ｓtr＄(—12３4），3,2)得结果为__２3 _＿_ .

程序阅读题

四、阅读下列程序，写出运行结果。

1、程序1?Ｐrivate Sub mａnd1_Click（)

Diｍ x As Integer, s Ａs Inｔｅｇer

x = Vａl(IｎpuｔBoｘ(＂请输入一个正整数=＂））

If x ＜ 5 Tｈeｎ?s = s * x

Ｅｌｓe?ｓ＝ s + x?Eｎd If?text１、Ｔext = ”s=" + Str(s）

End Sub

程序运行时连续3次单击mand1，且设输入得数就是5，2与４时，分别写出文本框Texｔ１、Text得值.?2、程序 2 ?Privaｔe Sub Form_Clｉck(）?Forｍ1、Ｃlｓ?w ＝3?Ｆor ｋ = ２Ｔｏ 6 Ｓtep 2

Form1、Print ”w=”； w，”ｋ="； k

w ＝ w + 1

Neｘt k?Ｆorm1、Prｉnt "ｗ="；ｗ，”ｋ=＂；k

EnｄＳub

写出程序运行时单击窗体后,Fｏrｍ1上得输出结果。

3、程序３?Ｐrｉvate Ｓub Form＿Cｌiｃｋ()?Ｄim x As Strinｇ

Diｍ i As Ｉntｅｇeｒ, ｎ Aｓ Integer?Form１、Cls?x = ＂ＡBCＤEFGHK Ｌ＂?n = Len(x）?For i ＝ n Ｔo 1 Step -２?Fｏrm1、Pｒｉnt Tab （20 —ｉ）; Mid（x， i，１）

Nｅxｔｉ

End Sub

写出程序运行时单击窗体后,Fｏrｍ１上得输出结果。

4、程序4

Dim a ＡｓＩnteger， y As Iｎtegｅr?Pｒivate Sub Form_Ｌoad(）

Open ”c:＼a１、ｄat" For Ｏｕtｐut Aｓ #1?Ｃlosｅ #1

EnｄSub

Privatｅ Suｂ mａｎd1_Ｃlick()

Oｐen ＂ｃ:\a１、dat”Ｆor Aｐpend As #1

Cａｌl aa（５)

y = y ＋ａ

Print #1， "ｙ="; y，”a="; ａ

Cｌｏｓe #１

End Sub

Sｕｂ aa(i As Ｉnｔeger）

x = １

Ｄo Unｔil x > i?ａ = a + x?x = x + 3?Ｌoｏp

End Sub?写出程序运行时连续3次单击maｎd１后，ａ１、dａｔ文件得最终结果。

程序阅读题答案 :１、?s＝5?s＝10

ｓ=4０?2、?ｗ＝3 k=2?w=4 k＝4?w=５ｋ=６?w＝6 k＝8?3、?Ｌ

H

F?Ｄ? B ?4、?y=5 a=5?y＝１５ a=1０

y=３0 a=15

五、程序填空题

仔细阅读下列各小题得程序说明与相应得程序,在每小题提供得若干可选答案中，挑选一个正确答案。

1、【程序说明】

本程序求3～100之间得所有素数（质数）并统计个数，同时将这些素数从小到大依次写入顺序文件 e:\datａｏut、tｘt,素数得个数显示?在窗体Form1上。?【程序】

Ｐriｖaｔe Sub ｍａｎd1＿Cｌick（）

Dim ｃouｎｔAｓIｎtegeｒ，ｆｌａｇ As Boolｅａn

Ｄｉm ｔｉＡｓ Inｔeｇer， t2 As Ｉｎｔeｇｅｒ

(1)

cｏunt = 0

Foｒ ti = ３To 100

ｆlag ＝Ｔrｕe?Fｏｒｔ２= 2 TｏInt（Ｓqr（t1）) Iｆ (2）Ｔheｎflag= Faｌse

(3）

Ｎexｔｔ2?

count ＝ cｏｕnt ＋１?Write ＃１， t1?Enｄ If?Ｎext

t1?(４) Cｌose #1?Eｎｄ Sub?(１）A、Open ｅ:\daｔaout、ｔxｔ Fo ｒ Oｕtput Ａｓ＃1?B、Opeｎ e：\ｄａｔaout、txt For Inpｕt As #１?C、Opeｎ e：＼dataｏut、txt Ｆｏｒ OutpuｔＡs #2

D、Ｏpｅn ｅ：\dａtａouｔ、txｔ For Ｏutpｕt As ＃1?(2） A、t2＼t1=0 B、t１Mod ｔ2＝0 C、t1\t2=0 Ｄ、t2 Ｍoｄ t1＝0?(3）A、Ｉf flag Tｈen B、If t2>ｔ１ Then

C、Ｉf t１〉ｔ2 Thｅn

D、If t2>ｉnｔ（sqr(t1)) Thｅn

(4） A、 Forｍl、Prinｔ"素数个数:” ; ｃount ?B、Prinｔ＃ｌ”素数个数："；Counｔ

C、 Form1、Print＂素数个数："；counｔ

D、Ｆorｍ１、Prinｔ"素数个数：”：Ｃount?２、 [程序说明］

由输入对话框输入n（设n为大于零且小于30得自然数），计算下列表达式并在标签框Label １上显示。

１/（1＊2）+1/(2＊3）+１/(３＊４）+……+1／（ｎ＊（n＋1））?【程序】

Private Sub Ｆoｒm_Cｌicｋ（）?Dｉm n Ａs Inｔｅｇer, sum As Doublｅ, ｋＡs Ｉnteger

Dｏ (5）

n = Ｖaｌ(ＩnpｕtＢox（＂n=”，＂请重输＂)）?Ｌｏoｐ?sｕｍ = 0

(6）

Do

ｋ = ｋ + 1

sum= (７)?ＬｏoｐＵntｉl k 〉= n?Laｂel1、Caption ＝”Sum＂ + Ｓｔr（suｍ)?Ｅnｄ Suｂ?(5） A、Wｈilｅ n<＝O or n>=3０ B、Whｉlｅ n<＝O Anｄn>=30?Ｃ、Untiｌｎ＞0 Ｏr ｎ< 30 Ｄ、Uｎtｉl ｎ＞ =0 anｄ n ＜= 3０

（6）A、k=２ B、k=1 C、K＝-１Ｄ、k=0?(7）Ａ、1／(ｋ*（k+1）) B、l/(k—1）＊k

Ｃ、sｕm+1/（k＊（k＋1））Ｄ、sum+1/k＊（ｋ+1）?3、【程序说明】

本程序用于处理文本框Textl、Teｘt中得内容,假设文本框中有偶数个字符.要求将文本框从头尾至中间依次各取字符，组成一个新得字符串str2，并在窗体上输出。?如:Textl、Ｔe ｘt＝＂1２３4567８＂,则Ｓtｒ２＝"1８２736４5 "?【程序】

Ｐｒｉvate Sｕb Ｆorm_Clｉck(）

Dｉm Str1 As String， Str2 AｓStｒing

Sｔｒ１= TeXｔ1、Text?Str2 = ＂"

m = ０

Ｄo （8）

Str2＝ Str２+ (9)

Str２= Ｓtr2+ （1０）

m = m ＋ l

Loop

foｒｍl、Priｎｔ Str2

End Sｕb

（8) Ａ、Wｈiｌe m C、Untｉｌｍ〉Len（Stｒ1）/2 D、Until ｍ< Ｌen(Str1)/2

（９） A、Ｍｉd（str１,m,1） B、 Miｄ（stｒ1，len(ｓtｒ1)—m，1)?C、Ｍｉd（m,Sｔrl，l） D、Mid(Str1,ｍ+l,1)?（1０）Ａ、Mid（ｓtr１，len（ｓtr１)—m ＋1，1）

Ｂ、Mid（ｓtr1,m,１）?C、Mｉd(str1，lｅn（st ｒ1）—m,1)

Ｄ、Ｍiｄ（str1，len(str1）—m＋1，1)?

程序填空题答案：ＤBACADCADC

六、程序填空题

１、下面就是一个求n!得自定义函数代码.

Private Function JＣ(n Aｓ Integer） Aｓ Long?Dim Ｒesult Ａｓ Lｏnｇ?If p ＝ 1 Theｎ?Ｒesult = １?Elsｅ?Reｓuｌt = （1）

End Iｆ?JC = （2) ?Eｎd Functioｎ

2、下面得程序完成以下功能：单击窗体上得“测试"（manｄ1）按钮,出现一个输入框，要求输入一串字符，将该字符串中得非字母字符删除后,显示在窗体中得一个文本框（Teｘｔ1)中。?ＰrｉｖatｅSub mand1_Clｉｃk（)

Dｉm St1， St2 As Stｒinｇ?Dｉm Ｃh As （3）

Dim L Aｓ Intｅgeｒ

St1 ＝InpuｔＢoｘ(”请输入一串字符＂，＂字符串输入＂)?L = （4）

Ｓｔ２= "”?Fｏr i = 1 To L

Ch = Mid(St1, i, １）?If （Ch > ＂A" And (5）） Or （Ch > ＂a” Aｎd Ch 〈＂ｚ”） Tｈen

St2 = Ｓt2 + Ch

Eｎd Ｉf?Ｎeｘｔｉ?Text１、Texｔ＝（6）

End Sub

３、下面得程序完成以下功能：窗体上有两个命令按钮“产生”(mａnd1）与“排序”（ma ｎd2)。单击“产生”按钮时，随机产生１0个[１,20］范围内得整数放在数组A中，并在窗

体上输出.单击“排序”按钮时，用选择法排序这10个数并输出.?Dｉm A(１0) As Ｉnｔeg ｅr

Ｐrivate Ｓub mａnd1＿Click（)?Diｍ i ＡｓInｔｅｇeｒ?Randomiｚe

Print ＂排序前得数列:"

Fｏr i = 1 To １０

A（i） = （7)

PｒiｎｔStr（A(i）) + ” ";?Neｘｔｉ?Ｐriｎt?Enｄ Sub

Prｉｖａte Sub mand2_Cｌicｋ（）?Ｄim i， j，Min, Temp As Iｎｔegeｒ?Priｎt Ｐrinｔ＂选择排序后得数列:”?

Ｆor ｉ = 1 Ｔｏ9?Miｎ = A(ｉ)?Fｏｒ j = （8）Ｔo 10?Ｉf A（ｊ）〈 Mi ｎTheｎ

Temp = Ａ（j）?A(j）＝（９）

Min = Temｐ?End If?Next ｊ

A(i） = Min?(1０）?For ｉ = 1 To １0

Ｐｒint Sｔr(A(i)） + " ＂;

Ｎext ｉ

Ｐrint

Eｎd Sub

程序填空题答案 :（1）n＊Ｊc（n－1）(2) rｅsult (３) sｔriｎg (4) leｎ（stｒ）（5） ch〈"z" （6) sｔ2 (7) int(Rｎd＊20)＋１ (８) I+1 (９） min (１0）ｎexｔｉ

七、程序填空题

1、程序说明：利用一个计时器，一个标签框与两个命令按钮制作一个动态秒表,

单击“结束”命令按钮,秒表结束计时，并在标签框显示运行时间，如“运行

了0小时2分10秒"。（假设对象得属性都在程序代码中设定) 一个动态秒

程序代码如下

DiｍｘＡｓLong?DiｍｈAs Iｎteｇer， m As Ｉnteｇer， s As Ｉnｔeｇｅ

r?Private Sｕb Fｏrm_Loaｄ（）

Ｆｏrm1、 Capｔiｏn = ”动态秒表(小时:分:秒)”

ｍanｄ1、Caption = ＂开始[&Ｓ]"?manｄ2、 Cａptｉon = ＂结束［&Ｅ]"

Lａbｅl１、Aｌignment = 2

Laｂel1、Ｃaｐｔion = "0：０：0”?Timer１、Ｉｎtervａl ＝（1)

Tｉmer１、 Enaｂｌed = False

ｘ＝ 0

End Suｂ?Pｒｉvatｅ Sub mand1＿Cｌicｋ（）?（2）?End Sｕb

Prｉvａｔｅ Sub ｍanｄ2＿Click（)

Timｅr1、 Enabｌed = Falsｅ

x = （3）

Laｂel1、Ｃａptiｏn ＝ "运行了”+ Str(h）+ ＂小时” + Str(m）＋”分” ＋Sｔr(s）+ ＂秒＂?Enｄ Sub

Prｉvate Ｓub Ｔｉmｅr1_Ｔiｍｅr(）

x ＝x + 1?h = （4）

m = (x Ｍod 36０0） \6０

s = （5) ?Ｌabel１、 Caption ＝Ｓｔr(h) + ”：" + Ｓtr（m) + "：" + Stｒ（ｓ）

End Sub

2、程序说明:己知自然对数得底数e得级数表示如下：?ｅ＝1+1/(1!)＋1/(2！)+、、、+1／（ｎ!)+、、、

本程序利用函数过程fact（)求ｅ，其中得绝对值小于IE-8得项被忽略。程序代码如下?Privat ｅ Funcｔｉon fａct（ｍ AｓIｎtｅgeｒ）As Siｎgｌe '求m！得函数Dim ｘ As Siｎｇle， i Ａs Integer?x = 1

For i = 1 To m?X= （6）

Ｎext i

fact = x?EnｄＦuｎctｉoｎ

Prｉvaｔｅ SuｂＦoｒm_Click（）

Dim ｅ As Singｌe， iｔeｍＡｓSingle?Dｉm n AｓIｎtｅｇeｒ? e = 1: ｎ= （7）?Ｄo

n = n + 1?item= （8）

ｅ = e + ｉｔeｍ?Lｏｏp Ｗhｉle （９）

程序填空题答案 :⑴、１００0 ⑵、Timer1、 Enａbled＝Ｔｒue或 Timｅ1= Truｅ

⑶、0 ⑷、x＼３6０0 ⑸、x Mod 60 ⑹、ｘ＊I

⑺、０⑻、1/fact(n) ⑼、Aｂs（item）>＝０、 0００00001

八、1、分别写出下面两段程序执行三次后得结果。

Privatｅ Sub Fｏrm＿C ｌiｃk(）

Ｄiｍ i As Ｉｎteｇe ｒ?Staｔic j Ａs Iｎｔeger

ｊ = ｊ + 1

i = i ＋１

Ｐｒiｎt ”i="; Sｔr （i)，”j=”;Sｔr(ｊ）?End Sub Dim i, j Ａs Integｅｒ?Pｒivate Sｕb Fｏr ｍ_Clicｋ()?ｊ = j + 1

i = i + 1

Pｒinｔ”i＝"; Str（ｉ），"j=”；Sｔr（ｊ）?EnｄSub

参考答案:

１左：右：

I=1 j=１Ｉ=1 ｊ=１

I＝1 ｊ=２I=2 j＝２

I=1 ｊ=3 I＝3 j=3

九、写出下面程序执行后得结果（其中在Form_Cliｃk(）事件中调用了子过程Proｃ）。?Ｐriｖate Sub Foｒｍ_Clicｋ（)

Dim x, y As Inｔeger

Dim ｕ， v Ａｓ Intｅger?x = 1

ｙ= ２?u = ３

Proｃｘ, ｙ?u = u + ｘ + y

Pｒiｎt ”x="; Ｓtr（x), ”y＝”；Ｓｔr（ｙ)，＂u＝”； Str(u)

Ｅnｄ Sub

Ｐrivate Sｕb Proｃ（ByVａl a As Ｉｎｔeｇｅｒ，ＢyRef b AｓＩｎteger)

Ｄim u As Intｅger?a ＝ a + 1?b = ｂ＋ 1

u = u + a + ｂ?Pｒｉｎt "a="； Str(a）, "b="; Str（b）, ”u="; Sｔr(ｕ）

Eｎd Sub?程序阅读题答案:

2

a=2 b=3 u=５

x=1 ｙ=3 y=5

十.用输入对话框输入x,根据下式计算对应得y,并在窗体上输出y得值。

注：程序写在命令按钮ｍandl得Click事件中。

答案程序如下：?Private Sub maｎd1_Cliｃｋ(）?Diｍ x Ａs Siｎgｌe

x = Vａl（InputBox(＂x=”, "请输入数据＂）) ?Select Caｓe x

Ｃａse Is 〉 10 ?ｙ＝Sｑr(x）+ Sin（ｘ）

Ｃasｅ10 ?ｙ= 0

Ｃase Eｌse ?y = 2 * ｘ^ ３ + 6 ?Ｅnd Sｅlecｔ?Ｐrint "ｙ="； y End Sub ?十一.共用户界面如下图所示，用于实现左右两个组合框中数据得左移与右移功能。程序开始运行时，在左边组合框中生成10个?由小到大排列得随机3位正整数(假设在

设计阶段该组合框得Sｏrｔｅd属性值已设置为True，现要求完成:?⑴、单击“〉〉”按钮，左边组合框中得1０个数全部移到右边组合框中,并由大到小排列,同时使“〈〈"按钮能响应，?“＞〉”按钮不能响应。

⑵、单击“<<”按钮，右边组合框中得10个数全部移到左边组合框中，并由小到大排列，

同时使“>>”按钮能响应,?“〈〈”按钮不能响应。

⑶、单击“结束”按钮,结束程序运行。?

用户界面?部分程序代码如下：?Priｖａte Ｓub Forｍ_lｏaｄ()?Ｄim i As Intｅgｅ

r?Lａbel1、Captｉoｎ= ＂组合框1”?Label2、Captｉon ＝＂组合框 2＂

?CmdRigｈｔ、Caｐtion ＝ ">>"?CmdRｉght、Enabled ＝ Truｅ

CｍｄLeｆt、Caption = "〈＜”?CｍｄLeft、Enａｂｌed = False

cmｄExit、Ｃaｐtｉｏn ＝”结束”?boLeｆt、Ｔｅxｔ= ””

For i ＝ 1 Ｔo 10?boLｅｆt、AｄdIｔem Inｔ（Rnd * 900） + １０

０?Ｎext ｉ?ｂｏRｉght、Text = ”"

Enｄ Sｕb

请分别编写3个命令按钮得单击事件。

答案程序如下:

Priｖate SuｂcmdＥxｉt＿Click(）?End

Ｅnd Sub

Prｉvate Ｓub CmdLeft＿Cliｃｋ（）?Ｄｉm i AｓIｎteger， laｓt As Iｎｔeger ?laｓｔ= boRigｈt、LｉｓｔＣount － 1

Fｏr i = 0 Tｏ last ?ｂｏＬeft、ＡddItem boRｉｇｈt、Liｓt（0) ?ｂoRig ｈｔ、ReｍoveItem 0

Neｘt i ?CmｄLｅft、Eｎablｅd = Faｌsｅ

CmdRight、Enａbleｄ = True ?Ｅnd Suｂ

ＰriｖatｅＳub CmdRight_Cｌick(）

Dim i As Inteｇｅr, lａst Aｓ Inｔeger

ｌａst ＝ｂoLｅｆｔ、LisｔCount - 1 ?For i = 0 Ｔｏlａst boRｉght、AddItem boLｅfｔ、Lｉsｔ(last — i）

ｂｏLefｔ、ＲemoｖeItem last - ｉ

Next ｉ

CmｄLeft、Enableｄ = Trｕe

ＣmdＲiｇht、Enablｅd = False

Eｎd Suｂ

大学VB考试题库

大学VB考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.sodocs.net/doc/8218992646.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。

A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0

程序设计语言VB_习题集(含答案)

《程序设计语言VB》课程习题集 一、单选题 1.Visual Basic是一种面向（）的程序设计语言。 A.用户 B.事件 C.程序 D.对象 2.在Visual Basic6.0中规定工程文件的扩展名是（）。 A.vbp B.for C.frm D.bas 3.Visual Basic6.0中规定窗体文件的扩展名是（）。 A.for B.frm C.vbp D.bas 4.如何使一个标签或按钮控件在运行时不可用（）。 A.把它的Visible属性设置成False B.把它的Visible属性设置成True C.把它的Enabled属性设置成False D.把它的Enabled属性设置成True 5.控件的字体可在属性窗口的（）属性中调整？ A.Font B.Color C.Text D.Caption 6.若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是（）。 A.Value B.Cancel C.Default D.Enabled 7.在VB中，记录对象数据的是（）。 A.方法 B.事件 C.属性

8.在文本框上显示文本的属性是（）。 A.Value B.Text C.Print D.Enabled 9.InputBox函数返回值的类型为（）。 A.字符串 B.数值 C.变体 D.数值或字符串（视输入的数据而定） 10.设有语句：a=InputBox("请输入数值:","输入示例","100")程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（）。 A.字符串"20" B.字符串"120" C.默认值100 D.数值120 11.下列控件中可用于接受用户输入文本，又可用于显示文本的是（）。 https://www.sodocs.net/doc/8218992646.html,bel控件 B.TextBox控件 C.Timer控件 https://www.sodocs.net/doc/8218992646.html,mandButton控件 12.语句PRINT"25*4"的输出结果是（）。 A.25*4 B."100" C.100 D.出现错误信息 13.只能用来显示字符信息的控件是（）。 A.文本框 B.标签框 C.图片框 D.图像框 14.下列可作为Visual Basic变量名的是（）。 A.A%A B.4A C.?xy D.Stemp 15.下列哪个符号不能作为VB中的变量名（）。 A.timefly

VB语言程序设计试题库

VB程序设计 一、判断题 1、同一Form窗体中的各控件可以相互重叠,其显示的上下层次的次序不可以调整。( X ) 2、一个对象的若能识别多个事件,我们只能对其中一个事件编程( ) 3、单选按钮与复选框对象的Value属性类型不同,且只能取值True与False。( √ ) 4、事件过程由某个用户事件或系统事件触发执行,它不能被其她过程调用。( ) 5、图片框的Move方法不仅可以移动图片框,而且还可以改变该图片框的大小,同时也会改变该图片框有关属性的值。( √ ) 6、“A=B=C”就是一个合法的Visual Basic语句。( ) 7、当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时,组合框会自动把这一条目添加到它的列表框中。( ) 8、 Visual Basic程序的运行可以从 Main()过程启动,也可以从某个窗体启动。( √ ) 9、在图片框中放置的控件既可以在该图片框内移动,也可以移出该图片框外。( ) 10、对于文件系统控件,当驱动器控件Drivel中的驱动器符改变时,文件夹列表控件Dir1中显示的文件夹也作相应的改变,可以在Drive1中的Change事件中使用如下命令。Dir1、Path＝ Drive1、 Drive( √ ) 11、滚动条控件可作为用户输入数据的一种方法。( √ ) 12、单选按钮控件与复选框控件都具有Value属性,它们的作用完全相同。( ) 13、静态变量就是一种局部变量,当原过程再次被执行时,静态变量的初值就是上一次过程调用后的值。( √ ) 14、 Visual Basic提供的几种标准坐标系统的原点都就是在绘图区域的左上角,如果要把坐标原点放在其她位置,则需使用自定义坐标系统。( √ ) 15.注释语句REM可自成一语句。( √ ) 16、用鼠标选中某菜单控件时,触发Click事件;而用键盘选中该菜单控件时,触发KeyPress( ) 17、组合框兼有文本框与列表框两者的功能,用户可以通过键人文本或选择列表中的项目来进行选择。( √ ) 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 的作用就是:当Drivel的驱动器改变时,Dirl的目录列表随不同驱动器作相应改变。( √ ) 23.直到型循环至少能执行一次循环体。( √ )

VB练习题(上机)含答案

第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else

ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。

VB语言程序设计

VB语言程序设计 《VB语言程序设计》课程实验教学大纲 一、制定实验教学大纲的依据 根据本校《2004级本科指导性培养计划》和《VB语言程序设计》课程教学大纲制定。 二、本实验课在专业人才培养中的地位和作用 《VB语言程序设计》课程是非计算机专业的一门公共基础课，是一门实践性和实用性都非常强的课程。其主要任务是使学生掌握程序设计的思想、方法和技巧，为应用程序开发打好必要的基础。实验课是本课程重要的教学环节,其目的是使学生掌握VB程序设计的开发环境的基本操作，以及设计图形用户界面的一般方法和技巧，重点掌握程序设计的基本思想和方法。通过接受基本实验技能的训练，提高学生的动手能力和分析、解决问题的能力。 三、本实验课程讲授的基本实验理论 1、对象的概念，常用控件的设置方法和用户界面的设计技巧。 2、变量、数据类型等概念及顺序、选择、循环三大结构的程序设计。 3、数组、过程的概念和基本操作，熟悉一些常用算法。 四、本实验课学生应达到的能力 1、熟悉Visual Basic的程序设计集成开发环境，掌握图形用户界面的一般设计方法和技巧，掌握常用控件的设置方法和其相关事件的应用。 2、掌握条件语句、循环语句、数组和过程的使用，能够运用所学语言解决实际问题，熟悉一些常用算法。

3、掌握程序调试技术，当程序出错时，有能力很快地判断出错误位置和出错原因，并且能很快排除这些错误，使程序能正确运行，培养分析问题、解决问题的能力。 4、加深课堂讲授和书本内容的理解及对语法规则的理解，达到灵活运用和培养程序设计能力的目的。 5、培养良好的程序设计风格。 五、学时、教学文件 学时:本课程总学时为56学时，其中实验为20学时，占总学时的35.7%。 教学文件:教材《Visual Basic程序设计简明教程(第二版)》实验部分;实验报告学生自拟。 要求学生实验前预习实验内容，并编写出源程序或给出初步的解决方案。指导教师应概述实验的设计思想和方法等，具体实验步骤和编写、调试程序由学生独立完成。 六、实验考核办法与成绩评定 1、实验考核每次依据预习、实验完成情况、纪律等综合给出实验成绩。未参加实验者或实验成绩不 合格者，本课程不予通过。 2、实验成绩占该课程总成绩的10%。 七、仪器设备及注意事项 仪器设备:微型计算机、Visual Basic 6.0软件 注意事项:注意保护设备 八、实验项目的设置及学时分配 序号实验项目学时实验类型要求适用专业 1 熟悉VB集成开发环境 2 验证必做工业工程(管理)

VB考试题及答案

VB程序设计期末考试题 一、选择题 1 下列常量中，是Integer类型常量的是（ C ）。 A、123& B、-38844 C、123% D、32768 2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod 3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（ B ）。 A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。 C、"窗体设计" 窗口是用来设计应用程序界面（窗体）的。 D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。 4 len(“vb程序设计”)=( C ) 。 A、 5 B、2 C、 6 D、10 5 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D A、7 B、0 C、2 D、4 6 赋值语句A=123 + Mid$( “123456”,3,2) 执行后，A=（A）。 A、157 B、12334 C、123 D、"12334" 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C). A、, B、; C、: D、、 8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。 A、将True转换为 1 ，将False转换为 0 B、将True转换为 1 ，将False转换为 -1 C、将True转换为 0 ，将False转换为 -1 D、将True转换为 -1 ，将False转换为 0 9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D).

A、SIN B、4^5 C、3*4 D、x+1 10 如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ B ）。 A、不能计算 B、 True C、5 D、False 11 随机产生[10，50] 之间整数的正确表达式是（ D ）。 A、Round( Rnd*50) B、 Int(Rnd*40+10) C、Round( Rnd*51) D、 10+Int(Rnd*41) 12 每建立一个窗体,工程管理器窗口中就会增加一个(C). A、类模块文件 B、工程文件 C、窗体文件 D、程序模块文件 13 INT(100*RND(1))产生的随机整数的闭区间是(B). A、[1,100] B、[0,99] C、[0,100] D、[1,99] 14 下列数据类型中,占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte 15 VisualBasic是一种()程序设计语言.B A、过程式 B、非过程式 C、机器 D、低级 16 函数Int(10*Rnd)是在(A)范围内的整数. A、[0,9] B、[0,1] C、[1,9] D、[1,10] 17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi C、ForLoop 和 Total D、Const 和 DoWhile

(完整版)《VB语言程序设计基础》课程教学大纲.

《VB语言程序设计基础》课程教学大纲 课程编号：0806606506 课程名称：VB语言程序设计基础 英文名称：Visual Basic Language Programming Design 课程类型：专业选修课 总学时：24 讲课学时：14 上机学时：10 学分：1.5 适用对象：电气工程及自动化专业电网监控技术方向 先修课程：《大学计算机基础》、《C语言程序设计》 一、课程性质、目的和任务 本课程是电气工程及自动化专业电网监控技术方向的一门专业选修课，是一门实用性强、面向程序开发与应用的重要的专业课程。随着面向对象的程序设计方法日益成熟，人们考虑将各种图形界面和图像元素作为"对象"预先进行定义，用户在开发时只需直接调用。Visual Basic正是基于这种思想产生的一种Windows应用程序开发工具。它具备易学易用的特点，且功能相当强大，它还拥有非常庞大的Windows应用程序开发用户群。通过本课程的学习，要求学生掌握VB语言的结构及开发环境，程序设计方法与基本数据结构，掌握已有控件与函数的调用方法；通过上机实践培养学生分析具体问题、解决实际问题的能力，为其它编程工具的学习以及今后的基于专业的系统开发打下坚实的基础。 二、教学基本要求 本课程是理论与实践并重的课程，要求学生既要掌握基础理论知识，又要掌握操作计算机和运行程序的基本技能；能够熟练运用VB6.0集成开发环境编制具有中等难度的应用程序，在实践中培养独立分析问题和解决问题的能力。 本课程的基本要求如下： 1．了解VB的特点，掌握在VB集成开发环境中编辑、编译、运行、调试程序的全过程，具备较强的程序调试能力。 2．掌握VB语言的基本语法成分和面向对象程序设计方法。 3．掌握VB 常用控件的使用方法。 4．掌握VB 的用户界面、菜单与多文档界面设计方法。 本课程让学生既掌握了结构化程序设计方法又学会面向对象的编程思想，在实际应用中将两者有机结合。 三、教学内容及要求 1．Visual Basic 程序设计概述 （1）了解VB的发展，功能及特点，了解VB的安装和启动过程。 （2）掌握VB集成开发环境。 2．简单的VB程序设计 （1）掌握对象的概念。

vb试题及答案

VB试卷 一、单项选择题(每题2分,共40分) 1. 窗体的标题栏显示内容由窗体对象的属性决定。 A) BackColor B)BackStyle C)Text D)Caption 2. 窗体的示意图标可用属性来设置。 A) Picture B) Image C) Icon D) MouseIcon 3. 窗体的控制菜单的有无由窗体对象的属性决定。 A) ControlBox B) MinButton C) MaxButton D) BorderStyle 4. 若要取消窗体的最大化功能，则可设置属性为False来实现。 A) ControlBox B) MinButton C) MaxButton D) Enabled 5. 以下4个选项，不属于VB的工作模式。 A) 编译 B) 设计 C) 运行 D) 中断 6. 窗体的边框样式由窗体对象的属性来设置。 A) BackStyle B) BorderStyle C) WindowState D) FillStyle 7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。 A) FontName B) Font C) FontSize D) FontBold 8. 命令按钮的标题文字由属性来设置。 A) Text B) Caption C) Name D) (名称) 9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。 A) 变量 B) 属性 C) 事件 D) 方法 10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。 A) Value B) Cancel C) Default D) Enabled 11. 若要使命令按钮不可见，可设置属性为False来实现。 A) Value B) Enabled C) Visible D) Cancel 12. 运行程序时，系统自动执行窗体的事件。 A) load B) click C) unload D) GotFocus 13. 若要设置文本框最大可接收的字符数，可通过属性来实现。 A) MultiLine B) Length C) Max D) MaxLength 14. 若要使某命令按钮获得控制焦点，可使用方法来设置。 A) Refresh B) SetFocus C) GotFocus D) Value 15. 若要使命令钮可响应事件，可通过设置属性的取值来实现。 A) Visible B) Enabled C) Default D) Value 16. 在运行时，若要调用某命令按钮的Click事件过程，可设置该命令按钮对象的 属性为True来实现。 A) Enabled B) Value C) Default D) Cancel 17. 标签框的边框，由属性的设置值决定。

VB语言程序设计

第一题 设计程序，从文本框中输入一个整数n（n<500），单击“处理”按钮是产生3个1~n 的随机整数，并分别显示在3个标签中。 程序如下： Private Sub Form_Load() ‘加载 Dim n As Integer, a As Integer ‘定义随机变量 Dim b As Integer, c As Integer Randomize ‘使rnd函数产生不同序列的随机数 n = Val(InputBox("请输入一个正整数n（n<500）")) 'inputbox函数产生对话框供用户输入数值 a = Int(n * Rnd) ‘在小于n的数随机选取一树值“下同” b = Int(n * Rnd) c = Int(n * Rnd) Label1.Caption = a ‘随机选取的数值n显示在标签上面“下同” Label2.Caption = b Label3.Caption = c End Sub ‘结束运行

第二题 设计程序，在窗体上建立5个文本框和1个命令按钮，利用4个文本框输入4个数，单击命乏按钮进行处理，求出这4个数中的最大数显示在第5个文本框中 [提示]①数值的数据类型可以定义为单精度型；②可以参考例4.2的处理方法；也可以分两组数（2个数为一组）进行比较，再从两组数中的较大数中求出最大数. 程序如下： Private Sub Command1_Click() '执行 Dim m As Single, a As Single '定义变量为单精度 Dim b As Single, c As Single Dim d As Single a = Val(Text1.Text) '为变量赋值 b = Val(Text2.Text) c = Val(Text3.Text)

vb题库及答案

| 最新VB题库及答案 一、选择题 第1部分 1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change() = "计算机等级考试" End Sub ] B、Private Sub Command1_Click() Caption = "计算机等级考试" End Sub C、Private Sub Form_Click() = "计算机等级考试" End Sub D、Private Sub Command1_Click() = "计算机等级考试" { End Sub 2、在一行内写多条语句时，每个语句之间用（）符号分隔。 A、 , B、： C、. D、； 3、下面（）是合法的变量名。 A、X_YZ B、123ABC C、INTEGER D、X-Y ] 4、下面（）是合法的字符常量。 A、 ABC$ B、“ABC” C、‘ABC’ D、 ABC 5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。 A、14 B、 4 C、20 D、2 6、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是 A、b=Left(a,10) B、b=Mid(a,10) — C、b=Right(a,10) D、b=Mid(a,11,10) 7、设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A",

《VB语言程序设计》习题参考答案

《VB语言程序设计》习题参考答案 第1章习题 一、单选题 1．D 2．B 3．C 4．A 5．C 6. A 7．A 8．B 9．C 10．(1)A (2)B 二、多选题 1．ACDE 2．BCDE 3．CD 4. CE 三、填空题 1．事件驱动 2．解释，编译 3．设计，运行，中断 4. 属性，方法，事件 5. Command2_Click 6. 中央，代码 7．MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计" 编程及上机调试 1. 按要求设置窗体属性 2．在窗体上建立一个标签Label1。程序代码如下： Private Sub Form_Click() Label1.Caption = "你单击了窗体" End Sub Private Sub Form_DblClick() Label1.Caption = "你双击了窗体" End Sub 3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) Text2.Text = 15 * x End Sub 第2章习题 一、单选题 1．①D，②D 2．①A，②C 3．A 4．B 5．B 6．B 7．C 8．D 9．B 10．B 11．A 12．A 13．B 14．A 15．B 16．A 17．B 二、多选题 1．BD 2．CD 3．AC 4. AD 三、填空题 1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y) (3) a*a–3*a*b/(3+a) (4) x^(3/8)+Sqr(y*y+4*a*a/(x+y^3))

VB上机考试习题以及答案

VB上机考试 1、利用随机函数产生25个100到999之间的整数，构成5 5的矩阵，输出该矩阵。Dim a(1 To 5, 1 To 5) Private Sub Form_Click() Ran domize For i = 1 To 5 Forj = 1 To 5 a(i, j) = Int(Rnd * (999 - 100 + 1) + 100) Print a(i, j); Next j Print Next i End Sub 2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4 位四舍五入)。Private Sub Form_Click() For i = 1 To 25 a = In t(R nd * (99 - 10 + 1) + 10) Print a; s = s + a Next i Print Avg = s / 25 Print Avg End Sub 3、在窗体上按下鼠标的右键，记录其坐标。 Private Sub Form_Load() Label1.BorderStyle = 1 Label1.Alig nment = 2 End Sub Private Sub Form_MouseDow n(Button As In teger, Shift As In teger, X As Si ngle, Y As Si ngle) If Butt on = 2 The n Label1.C apti on = X & "," & Y End If End Sub 4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。Dim a(1

VB语言程序设计

VB语言程序设计 (1/44) VB支持自定义数据类型,在某程序中我们定义了如下类型Type Student number As string name As String age As Integer End Type ?针对上述定义,如下几项用法正确的是:( )正确答案：B ?A https://www.sodocs.net/doc/8218992646.html,="张三" ?B Dim s As Student https://www.sodocs.net/doc/8218992646.html,＝"张红" ?C Dim s As Type Student https://www.sodocs.net/doc/8218992646.html,="张三" ?D Dim s As Type https://www.sodocs.net/doc/8218992646.html,="张三" (2/44) ?以下能够触发文本框Change事件的操作是( )正确答案：D ?A 文本框失去焦点 ?B 文本框获得焦点 ?C 设置文本框的焦点

?D 改变文本框的内容 (3/44) ?下面程序运行后输出的结果是( ) 正确答案：B DIM C1,C2 C1="CHINA" C2=STRING$(2, C1) PRINT Left(C1,1) + C2 移除错题 ?A CHI ?B CCC ?C INA ?D AAA (4/44) ?设窗体上有一个文本框,名称为text1,程序运行后,要求该文本框不能接受键盘输入,但能输出信息,以下属性设置正确的是:正确答案：B ?A text1.maxlength=0 ?B text1.enabled=flase ?C text1.visible=flase ?D text1.width=0

(5/44) ?用于返回窗体可用区域宽度的属性是( )正确答案：A ?A ScaleWidth ?B ScaleLeft ?C ScaleHeight ?D ScaleTop (6/44) ?Visual Basic提供的On Error Resume next错误陷阱语句表示( )正确答案：C ?A 当发生错误时，使程序转跳到语句标号为0的程序块 ?B 当发生错误时，不使用错误处理程序块 ?C 当发生错误时，忽略错误行，继续执行下一语句 ?D 当发生错误时，终止本过程执行，继续执行下一过程 (7/44) 为了检测到用户按下键盘上的所有键,应该使用的键盘事件为( ) ?正确答案：C ?A KeyPress ?B

VB程序设计试题及答案一

V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 ……

VB语言程序设计试题库

VB程序设计 一、判断题 1. 同一Form窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。（ X ） 2. 一个对象的若能识别多个事件，我们只能对其中一个事件编程（ ） 3. 单选按钮与复选框对象的Value属性类型不同，且只能取值True和False。（√） 4. 事件过程由某个用户事件或系统事件触发执行，它不能被其他过程调用。（ ） 5. 图片框的Move方法不仅可以移动图片框，而且还可以改变该图片框的大小，同时也会改变该图片框有关属性的值。（√） 6. “A=B=C”是一个合法的Visual Basic语句。（ ） 7. 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时，组合框会自动把这一条目添加到它的列表框中。（ ） 8. Visual Basic程序的运行可以从 Main（）过程启动，也可以从某个窗体启动。（√） 9. 在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。（ ） 10. 对于文件系统控件，当驱动器控件Drivel中的驱动器符改变时，文件夹列表控件Dir1中显示的文件夹也作相应的改变，可以在Drive1中的Change事件中使用如下命令。Dir1. Path＝ Drive1. Drive（√） 11. 滚动条控件可作为用户输入数据的一种方法。（√） 12. 单选按钮控件和复选框控件都具有Value属性，它们的作用完全相同。（ ） 13. 静态变量是一种局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。（√） 14. Visual Basic提供的几种标准坐标系统的原点都是在绘图区域的左上角，如果要把坐标原点放在其他位置，则需使用自定义坐标系统。（√） 15．注释语句REM可自成一语句。（√） 16. 用鼠标选中某菜单控件时，触发Click事件；而用键盘选中该菜单控件时，触发 KeyPress （ ） 17. 组合框兼有文本框和列表框两者的功能，用户可以通过键人文本或选择列表中的项目来进行选择。（√） 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 的作用是：当Drivel的驱动器改变时，Dirl的目录列表随不同驱动器作相应改变。（√）

VB练习题(上机)含标准答案

第一部分 １在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值"）。程序运行后，单击命令按钮完成以下工作： ①随机产生20个０到10０0的整数,将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上（如下图所示) ＰrivaｔｅSub Cmd1_Cｌick（) Ｄim ａ%（１9）, i%,ｓum!, avｅr! Raｎdomizｅ Foｒｉ= 0 Ｔo１9 a(i) =Int(Rｎd * 100１） sum = sum ＋a(i） Nｅxｔi ａver = suｍ/20 Print aveｒ EnｄSub 2 请在名称为Fｏrm1的窗体上添加一个名称为Ｔext１的文本框和一个名称为C1、标题为＂转换＂的命令按钮,如下图所示。在程序运行时，单击＂转换＂按钮,可以把Tｅxｔ1中的小写字母转换为大写，把大写字母转换为小写,其他字符不变。 Prｉvate Sub Ｃ1_Clｉｃｋ() Dim ｃh As String, ch１ As String, i％ cｈ= Text1 Ｆoｒ i = 1 Ｔo Len(ｃｈ） Ｉf Aｓｃ(Mｉd（ｃh，i, 1)) >= ６5 And Aｓｃ(Mid(cｈ, i, 1)) <= 9０Theｎ ｃh１= ch1 + LCａse（Mid(cｈ, i, 1）)

Elｓｅ ｃｈ1 ＝ ch1 ＋ UCasｅ（Ｍid(ｃh, i, 1)） Enｄ If Neｘｔ i Text1 = Teｘｔ１＋ vｂCｒＬf Teｘt１＝ Text1 ＋ ch1 End Ｓub 3 在窗体上添加一个命令按钮(名称为MyCｍd1,标题为"输出最大值")。程序运行后,单击命令按钮完成以下工作： ①随机产生3０个0~100０的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Prｉvate SuｂMyCmｄ１_Ｃliｃk() Diｍa%(2９)， i%, max% Ｒandomize Fｏr i = 0 To ２9 a(i) ＝Ｉnt(Rｎd ＊ 1００1) Nｅxｔ i ｍａx = ａ(0) Foｒi ＝ 1 To 2９ Iｆ a(i) > max Ｔｈｅn max = a（i) Nｅｘt ｉ Pｒint mａｘ End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮,则对文本框中的文本内容做相应的设置。请编写适当的事件过程,完成上述功能。

VB程序语言设计科学计算器

V B程序语言设计科学 计算器 标准化工作室编码[XX968T-XX89628-XJ668-XT689N]

VB程序语言设计 课程大作业 题目名称：科学计算器设计 班级： 姓名： 学号： 课程教师：温海骏 学期：2014-2015学年第2学期 完成时间：2015年5月 一、实验内容 《科学计算器》设计 本科学计算器是一种能实现加、减、乘、除、倒数、乘方、正玄、余玄、正切、In、n!函数、进制、弧度转换等运算功能，并带有存储器、统计框等，基本实现了Windows自带计算器的所有功能。要实现计算器的这些功能就用到我们所学的VB知识编写程序来实现运算功能并解决问题，也是我们实训要达到的目的。 二、实验目的 1、通过本实验，进一步理解Visual?Basic的编程方法。 2、?提高运用Visual?Basic编程的能力。 3、培养对所学知识的综合运用能力。 4、用所学的VB知识编写程序来实现运算功能并解决问题，达到实训的目的 三、实验设备 计算机、VB软件 四、实验过程 1、课题的选材过程（设计思路） 由VB程序设计的科学计算器是一种能实现加、减、乘、除、倒数、乘方、正玄、余玄、正切、In、n!函数、进制、弧度转换等运算功能，并带有存储器、统计框等，基本实现了Windows自带计算器的所有功能。

思路：为实现上述功能，我的基本思路是在窗体上建立4个控件数组，第一个控件数组是标准型，实现简单的四则运算；第二个控件数组是科学型，用来进行正弦余弦、正切余切、正割余割、反正弦反余弦、对数和n！等函数功能；第三个控件数组为程序员，实现进制转换；另外一个按钮实现单位转换。 2、设计的将要达到的目标 实现加、减、乘、除、倒数、乘方、正玄、余玄、正切、In、n!函数、进制、弧度转换等运算功能，并带有存储器、统计框等，基本实现Windows自带计算器的所有功能。 3、总体设计结构与功能 （1）总体设计结构介绍（绘制：结构流程图） （2）各功能模块运行界面的功能、算法和操作步骤 VB程序算法如下： 4、设计结果分析（运行结果展示、正确性分析） 经调试，程序运行基本正确。运行结果如下： 五、总结 1、对学习者知识的要求：

《VB语言程序设计》期末试题

一、单项选择题 1．与传统的程序设计语言相比，VB最突出的特点是（） A）结构化程序设计B）程序开发环境 C）事件驱动编程机制D）程序调试技术 2．如果要改变窗体的标题，则需要设置的属性是（） A）Caption B) Name C) BackColor D) BorderStyle 3．下列说法正确的是（） A）窗体中活动控件只能有一个 B）若一个控件上有4个黑色的小方块，表明该控件是活动的 C）在活动窗体中只能通过拖拉右上角和左下角的小方块来同时调整高度和宽度上缩放控件 D）非活动控件在窗体上是隐藏的 4．下列不能打开代码窗口的是（） A）双击窗体上的某个控件B）双击窗体 C）按F7键D）单击窗体或控件 5．假定在窗体上有一个名称（Name属性）为Command1的命令按钮，如果把按钮的标题设为“进入系统”，则下列赋值语句正确的是（） A) Command1=“进入系统”B）Command1.Caption=“进入系统” C）Command1.Text=“进入系统”D）https://www.sodocs.net/doc/8218992646.html,=“进入系统” 6．设a=2,b=3,c=4,d=5，表达式NOT a<=c OR 4*c=b^2 AND b<>a+c的值是（） A）-1 B) 1 C) True D) False 7．在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() A=InputBox(“Enter the First integer”) B=InputBox(“Enter the Second integer”) Print B+A End Sub 程序运行后，单击命令按钮，先后在两个输入对话框中输入456和123，则输出结果为（） A）579 B）123 C）456 D）123456 8．为了取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是（）A）ControlBox B) MinButton C) Enabled D) Maxbutton 9．使文本框获得焦点的方法是（） A）Change B) GotFocus C) SetFocus D) LostFocus 10．在窗体上画两上单选按钮，名称分别为Option1，Option2，标题分别为“宋体”和黑体；两个复选框，名称分别为Check1，Check2，标题分别为“粗体”和“斜体”，一个文本框，名称为Text1，Text属性为“改变文字字体，样式”。要求程序运行时，“宋体”单选钮和“粗体”复选框被选中（窗体外面如下图所示），则能够实现上述要求的语句序列是（） A）Option1.Value=True B) Option1.Value=True Check1.Value=False Check1.Value=True C) Option1.Value=False D) Option1.Value=True Check1.Value=True Check1.Value=1