VB程序设计练习题

本文格式为Word版，下载可任意编辑——VB程序设计练习题第1题：每当一个窗体成为活动窗口时将触发Show事件。

参考答案：错

第2题：Integer、Long、Single、Double是数值类型数据，但Byte不是。参考答案：错

第3题：在开启某窗体时，初始化窗体中的各控件，应选用Load事件。参考答案：对

第4题：若行If语句中规律表达式值为True，则关键字Then后的若干语句都要执行。

参考答案：对

第5题：函数过程与Sub过程必需用关键字Private或Public声明。参考答案：错

第6题：标签控件可以响应Click事件。

参考答案：对第7题：屏幕（Screen）对象可作为窗体的容器，但它只能提供缺省的坐标系统，即坐标刻度不能改变。

参考答案：对

第8题：用通用对话框控件显示“字体〞对话框前，必需先设置Flags属性，否则将发生“不存在字体〞的错误。

参考答案：对第9题：运行时目录列表框的List属性可以用AddItem和RemoveItem两种方法来改变。

参考答案：错

第10题：将组合框的Style属性设置为0时，组合框称为“下拉式组合框〞，其选项可以从下拉列表框的列表项中选择，也可以由用户输入。参考答案：对

第1题：在工程资源管理器中“移除〞一个文件后，该文件______。

参考答案：A

A、从当前工程中删除掉第2题：在设计模式双击窗体中的对象后，VisualBasic将显示的窗口是______。参考答案：BB、代码窗口

第3题：Integer类型的变量可存的最大整数为______。参考答案：DD、32767＜BR＞

第4题：以下哪个函数返回值为Ascii码值？

参考答案：D

C、Asc(x)＜BR＞

第5题：以下关于SelectCase之测试表达式的表达中，错误的是______。参考答案：A

A、只能是变量名

第6题：执行___语句后，执行语句“Text1.SelStart=0:Text1.SelLength=Len(Text1)〞，可以使文本框控件Text1中的文本突出显示。参考答案：B

B、Text1.SetFocus

第7题：设置命令按钮cm1的背风景为红色，可以执行语句______。参考答案：B

C、cm1.BackColor=vbred:cm1.style=1

第8题：______可以改变容器坐标系的度量单位。参考答案：C

C、ScaleMode属性

第9题：寻常用______方法来显示“自定义〞对话框。

参考答案：DD、Show

第10题：设定文件列表框中所显示的文件类型，应修改该控件的______属性。参考答案：AA、Pattern

以下程序显示所有3个数码各不一致的3位数，要求按紧凑格式每行显示15个数，并统计有多少个这样的三位数。PrivateSubForm_Click()

DimnAsInteger,aAsInteger,bAsInteger,cAsIntegerDimxAsInteger

Fora=0to9'个位数数码

Forb=0To9'十位数数码Forc=1

IfabAndbcAndacThenx=a+10*(b+10*c)n=23

Ifnmod15=0ThenPrintEndIfNextc,b,a

Print\总共有这样的三位数\个\EndSub

参考答案：1to9参考答案：n+1参考答案：printx;

窗体是密码检验程序。程序运行时，用户在文本框输入密码，单击确定按钮对密码进行检验。密码正确后，标签label2显示“密码正确”；若密码不正确，标签显示“密码错误”，若密码输入错误达3次，将自动退出程序。PrivateSubCommand1_Click()'确定按钮StaticnAsInteger

1mypwdAsString=\'预设密码为自定义常量n=n+1

Label2.Visible=TrueIf2Then

Label2.Caption=\密码正确\Else

Ifn\Text1.Text=\EndSub

PrivateSubCommand2_Click()List1.RemoveItemList1.ListIndexEndSub

PrivateSubCommand3_Click()DimIAsInteger

Open\

ForI=0ToList1.ListCount-1:Print#1,List1.List(I):NextIClose#1EndSub

PrivateSubCommand4_Click()End

EndSub

、

1、在规律运算符Not、Or、And中，运算优先级由高到低依次为Not、Or、And。×

2、关系表达式是用来比较两个数据的大小关系的，结果为规律值。√

3、一个表达式中若有多种运算，在同一层括号内，计算机按函数运算→规律运算→关系运算→算术运算的顺序对表达式求值。×

4、赋值语句的功能是计算表达式值并转换为一致类型数据后为变量或控件属性赋值√5、用DIM定义数值变量时，该数值变量自动赋初值为0。√

6、若行If语句中规律表达式值为True，则关键字Then后的若干语句都要执行。√7、在行If语句中，关键字EndIf是必不可少的。×8、For/Next语句中，“Step1〞可以缺省。√9、块If结构中的Else子句可以缺省。√

10、For/Next循环正常（未执行ExitFor）终止后，控制变量的当前值等于终值。×11、用关键字Public声明的变量可以被其他模块调用。×12、缺省声明变量等同于dim定义的变量。×13、用Public声明的数组是全局量。√

14、过程中的静态变量是局部变量，当过程再次被执行时，它的值是上一次过程调用后的值。√15、假使命令按钮Default属性为True，那么任何时候按Enter键都相当于单击该命令按钮。√

16、标签控件和文本框控件都能用来输入和输出文本。×

17、虽然标签控件显示的文本在运行时不能编辑，但是可以通过程序代码进行改变。√18、单项选择钮控件和复选框控件都具有Value属性，它们的作用完全一样。×

19、使用单项选择钮控件数组时，它们响应同一个Click事件，由Index参数值来区分不同的按钮。√

20、设置框架时，可先在窗体上画好框架，再往框架内添置控件；也可以先设计控件，再建立框架，然后将已有控件拖动到框架中。×

21、当列表框中表项太多、超出了设计时的长度时，VisualBasic会自动给列表框加上垂直滚动条。√

22、将组合框的Style属性设置为0时，组合框称为“下拉式组合框〞，其选项可以从下拉列表框的列表项中选择，也可以由用户输入。√

23、用户可拖动滚动条的滚动滑块来改变滚动条的Value值，在移动滚动滑块时，发生Change事件。×

24、由于定时器控件在运行时是不可见的，因此在设置时可将其放在窗体的任何位置。√

1．货币类型数据小数点后面的有效位数最多只有D。A、1位B、6位C、16位D、4位

2．运算符“\\〞两边的操作数若类型不同，则先C再运算。A、取整为Byte类型B、取整为Integer类型C、四舍五入为整型D、四舍五入为Byte类型3．Int(Rnd*100)表示的是C范围内的整数。

A、[0，100]B、[1，99]C、[0，99]D、[1，100]

4．返回删除字符串前导和尾随空格符后的字符串，用函数A。A、TrimB、LtrimC、RtrimD、mid5.语句Print\的显示结果是C。

A、25B、\C、5*5D、出现错误提醒6．以下关于SelectCase的表达中，错误的是D。A、Case10To100表示判断Is是否介于10与100之间

B、Case\表示判断Is是否和\、\两个字符串中的一个一致C、Case\表示判断Is是否为大写字母X

D、Case-7,0,100表示判断Is是否等于字符串\，0，100\

7．由“Fori=1To16Step3〞决定的循环结构被执行___C___次。A、4B、5C、6D、7

8．由“Fori=1To9Step-3〞决定的循环结构被执行D次。A、4B、5C、6D、0

9．将命令按钮Command1设置为窗体的取消按钮，可修改该控件的D属性。A、EnabledB、ValueC、DefaultD、Cancel10．以下B属性用来表示标签或窗体的标题。

A、TextB、CaptionC、LeftD、Name

11．将焦点主动设置到指定的控件或窗体上，应采用B方法。A、SetDateB、SetFocusC、SetTextD、GetGata

12．当文本框的B属性设置为True时，在运行时文本框不能编辑。A、EnabledB、LockedC、VisibleD、MultiLine13．文本框中选定的内容，由以下B属性来反映。

A、SelTextB、SelLengthC、TextD、Caption四、写出表达式

1.用随机函数产生一个两位整数的VisualBasic表达式是10+int(rnd*90)。2.求a与b之积除以c的余数，用VisualBasic表达式可表示为a*bmodc。

3.Y能被4整除，但不能被100整除；或者Y能被400整除的表达式ymod4=0andymod1000orymod400=0

4.X是能被5整除的偶数的表达式xmod5=0andxmod2=0

五、程序填空题

1．下面是一段计算数学表达

式的程序。PrivateSubForm_Click()

DimnAsInteger,pAsInteger,sAsSigle,qAsInteger,iAsInteger

n=InputBox(\请输入N的值:\s=0：p=-1：q=1Fori=1Ton

p=-p:q=Q*I

s=S=S+P*（I/Q）nextIPrintsEndSub

2.输入有效性的判断（必须输入数字）

PrivateSubText1_Change()

a=right（text1.text，1）‘返回刚输入的一位字符Ifa=\

Ifa9Then‘判断如不是数字则选中这一位MsgBox(\错误\

Text1.SelStart=len（text1.text）-1

Text1.SelLength=1EndIfEndSub

PrivateSubText1_GotFocus()‘选中所有内容text1.selstart=0

text1.sellength=len（text1.text）EndSub

PrivateSubText1_LostFocus()a=Len(Text1.Text)Fori=1Toa

b=mid（text1.text，i，1）'查找第一个非数字，报错，锁焦点

Ifb9ThenMsgBox(\错误\

text1.setfocus（锁焦点）

exitfor‘跳出循环EndIfNextEndSub

3、判断从文本框text1中输入的数据，假使数据满足条件：除以3余2，除以5余3，则输出；否则，将焦点定位在文本框text1中，选中其中的文本。PrivateSubCommand1_Click()X=Val(text1.text)

Ifxmod3=2andxmod5=3ThenPrintxElse

text1.setfocuetext1.selstar=0

text1.sellength=len(text1.text)EndifEndsub

4、界面上有两个按钮command1、command2和文本框text1。完成功能：单击command1时，显示文本框，设置command2可用但自身不可用。单击command2时，隐蔽文本框，设置command1可用但自身不可用。Privatesubcommand1_click()

Command2.enabled=TCommand1.enabled=false

Text1.visible=TEndsub

Privatesubcommand2_click()

Text1.visible=FCommand1.enabled=true

Command2.enabled=FEndsub

5．此题是利用计时器控件来实现文字的水平移动，要求：（1）运行时标签框内的文字从窗体左边向右边移动，当标签框的左边界超出窗体的右边界时，从窗体的左边进入窗体（尾部先进入）。（2）文字移动时颜色不断产生随机变化。PrivateSubTimer1_Timer()

Label1.ForeColor=rgb(255*rnd(),255*rnd(),255*rnd())

Label1.Left=Label1.Left+150

IfLabel1.Left>=Form1.WidthThen__Label1.Left=0-Label1.Width__EndSub

2、P1901）

PrivateSub添加_Click()a=InputBox(\输入书名：\IfTrim(a)=\ExitSubElse

List1.additemaEndIfEndSub2）

PrivateSub删除_Click()

Iflist1.listindex>=0Then

List1.removeitemlist1.listindexElse

a=MsgBox(\请选择书目！\提醒\EndIfEndSub3）

PrivateSub上移一个_Click()

IfList1.ListIndex=-1Then'没有选择或到第一项之前选择最终一项List1.ListIndex=List1.ListCount-1ElseIfList1.ListIndex=0Thena=MsgBox(\已经是第一项\Else

List1.ListIndex=List1.ListIndex-1EndIfEndSub4）略5）略

6）

PrivateSub最终一个_Click()

Iflist1.listindex=-1Thena=MsgBox(\请选择项目！\

ElseIfList1.ListIndex=List1.ListCount-1Thena=MsgBox(\已经是最终一项！\Else

List1.ListIndex=List1.ListCount-1EndIfEndsub

6.以下程序用来在窗体上输出如图10-3所示的数据。PrivateSubForm_Click()

Dima(5,5)AsByte,iAsByte,jAsByteFori=1To5

Forj=1To6-i

a(i,j)=i+j-1Nextj,i

Fori=2To5

Forj=7-iTo5a(i,j)=j+i-6Nextj,i

Fori=1To5Forj=1To5Printa(i,j);Nextj

？NextiEndSub

7.P137页练习7-10Optionbase1PrivateSubForm_Click()Form1.Cls

a=InputBox(\请输入行数:\Ifa=\Dimt()

redimt（a,a）Fori=1Toa

Forj=1toi

IfJ