filelistbox

双机互连-windows7分区软件

2023年4月3日发(作者：3dsmax中文版)

----

VB模拟试卷一

一、单项选择题

Basic变量命名不超过个字符。

A.255B.256C.125D.126

2.跳出FORNEXT循环程序，可使用语句。

3.表达式"169"+"196"+200的值是。

A.169196100B.565C.169396D.365200

4.窗体的BORDERSTYL属E性取值种类为。

A.3B.4C.5D.6

5.利用SHAPE控件可设置种形状。

A.5B.6C.7D.8

6.以下是“计时器〞控件的重要属性。

Basic代码中用到“水平滚动条〞的“CHANG〞E事件的同时，也会用到事件。

OVE

8.完毕当前打印作业的方法为。

9.翻开“APIVIEWER外接程序〞应使用菜单。

A.视图B.外接程序C.工具D.工程

10.以下控件不属于DATA控件绑定的内部控件。

OINTER属性取值，可设置鼠标的自定义图标。

A.3B.8C.15D.99

12.以下不属于表达式Chr(Int(89+Rnd*5))的生成X围。

A.B.[.]

13.以下代码，循环执行次。

Dimn

Forn=1To50Step5

=Str(n)

A.12B.10C.50D.11

14.以下各种高级语言中，不是面向对象的程序设计语言。

C++

BASIC

----

以

下

命

令

中

可

实

现

对

随

机

文

。

Basic中“剪贴板〞对象的名称为。

ARD

二、填空题

1.通过数据控件Data1连接C:数据库，那么需设置Connect

为

，

。

“

〞

控

件

常

用

的

两

个

、。

控

件

的

属

性

时

〞。

代

数

式

的

表

。

表

达

式

(

)

。

以

下

代

码

执

行

。

Dimnum

Num=200

=Str(num)

Num=num+1

LoopWhilenum<109

7.代码(1200,1000),750实现的功能为。

8.代码RetVal=Shell("",1)实现的功能为。

9.文件系统控件主要包括、、。

X控件的扩展名为。

三、程序填空

1.以下代码用于实现：

从

输

入

个

整

数

，

并

放

入

一

个

一

维

数

组

中

，

然

前5个元素与后5个元素

对

换

第1个元素与第10个元素互换，第2个元素与第9个元素互换⋯⋯第5个元素

与第6个元素互换。分别输出数组原来各元素的值和对换后各元素的值。

OptionBase1

PrivateSubForm_Click()

Arr=Array(1,2,3,4,5,6,7,8,9,10)

ForI=1to10

PrintArr(I);

NextI

ForI=1to5

For(1)

T=Arr(I)

(2)

(3)

Nextj

----

NextI

For(4)

PrintArr(I)

NextI

EndSub

2.利用文件系统控件DrivelistBox、DirlistBox、FilelistBox、ComboBox控件设计

如图1所示的窗体，要求：改变DrivelistBox内容，DirlistBox、FilelistBox发生相应

改变；改变ComboBox内容，FilelistBox发生响应改变。

按要求填写如下代码：

PrivateSubDrive1_Change()

(1)

EndSub

PrivateSubDir1_Change()

(2)

EndSub

PrivateSubCombox1_Change()

(3)

EndSub

PrivateSubCombox1_click()

(4)

EndSub

3.利用“文本框〞、“水平滚动条〞、“命令按钮〞设计如图2所示的窗体。要求：水平滚动

条发生滚动，文本框内的数据在0km/hr~100km/hr之间变化；单击“完毕〞按钮，退出程序执

行。

----

图1图2

按要求完成如下代码填空：

PrivateSubcmdexit_Click()

Beep

(1)

EndSub

PrivateSubhsbspeed_Change()

(2)

EndSub

PrivateSubhsbspeed_Scroll()

(3)

EndSub

四、编程题

1.编程：如图3所示布局控件〔图像、标签、文本框、命令按钮〕

当分别按下鼠标左、右键时，在文本框中依次出现“按下鼠标左键〞，“按下鼠标右键〞，

按“完毕〞按钮将退出运行。保存为文件名“按键〞。

2.如图4、图5所示建立菜单“色彩〞，“大小〞以及子菜单。

要求：中选择“红色〞，“蓝色〞，“白色〞时，窗体背风光分别变为红、蓝、白。

中选择“小〞，“大〞时，窗体在正常和最大化之间切换。

中选择“完毕〞时，退出程序运行。保存文件名为“颜色〞。

----

图3

图4

----

图5

VB模拟试卷一参考答案

一、单项选择题

1.A2.C3.C4.D5.B6.D7.C8.B

9.B10.D11.D12.C13.B14.B15.B16.B

二、填空题

DINTERVAL

4.9*EXP〔6〕*LOG〔6〕

5.*

6.1

7.画圆，圆心坐标为(1200,1000)，半径为750

8.执行文件，翻开“计算器〞

istBoxDirlistBoxFilelistBox

三、程序填空

1.〔1〕j=6To10

〔2〕Arr(I)=Arr(j)

----

〔3〕Arr(j)=T

〔4〕I=1To10

2.〔1〕=

〔2〕=

〔3〕n=

〔4〕n=

3.〔1〕End

〔2〕=Str()+"km/hr"

〔3〕hsbspeed_Change

四、编程题

1.程序参考答案：

OptionExplicit

PrivateSubcmdexit_Click()

End

EndSub

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAs

Single)

IfButton=1Then

="鼠标左键被按下"

EndIf

IfButton=2Then

="鼠标右键被按下"

EndIf

EndSub

PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAs

Single)

=""

EndSub

2.程序参考答案：

OptionExplicit

PrivateSubForm_Load()

d=False

EndSub

PrivateSubMNUBLUE_Click()

lor=QBColor(1)

d=False

d=True

EndSub

PrivateSubMNUEXIT_Click()

End

EndSub

----

PrivateSubMNULARGE_Click()

State=2

d=False

d=True

EndSub

PrivateSubMNURED_Click()

lor=QBColor(4)

d=False

d=True

EndSub

PrivateSubMUNSMALL_Click()

State=0

d=False

d=True

EndSub

PrivateSubMNUWHITE_Click()

lor=QBColor(15)

d=False

d=True

EndSub

VB模拟试卷二

一、单项选择题〔15分，每题1分〕

1.类是对象的抽象，对象那么是类的具体化。VisualBasic集成开发环境中的工具箱中

各类图标对应的是，而在窗体上建立的一个控件对应的是。

A.对象，类B.对象，实体C.类，对象D.实体，类

2.下面关于对象的描述中，是错误的。

A.“对象就是自定义构造变量〞

B.“对象代表系统中所创立的的一个实体〞

C.“对象是一个状态和操作〔或方法〕的封装体〞

D.“对象之间通过消息进展通信〞

3.表达式"123"+"A"&&100的值是。

A.123100B.123A100C."123A100"D.1230100

----

4.设CurrentX=50，CurrentY=100，执行指令“Line(100,20)-Step(300,500)〞后，

CurrentY=。

A.400B.500C.520D.600

5.假设要设置命令按钮具有图形特性可通过属性来进展。

6.下面的四个VisualBasic逻辑表达式语法中，正确的选项是。

A.x>.x<>yB.x>y~z

C.x>yAnd<>zD.x>yAndy<>

7.数组声明DimX(5,-2to3,2)共有个元素。

A.50B.60C.90D.108

8.数据类型中的变体型可以包括数值型、日期型、对象型和字符型等数据，此外，它

还含4个特殊的数据：和Empty。

、Error、、Error、Nothing

、Error、、Error、Data

9.从函数子过程退出，并返回到主调过程，可使用语句。

nction

10.以下命令中可实现对顺序文件的写操作。

11.在VisualBasic中要将一个窗体从内存中释放，应该使用以下语句中的。

12.设置窗体中鼠标指针的形状可通过属性来进展。

13.引用列表框List1最后一个数据项应使用。

(unt)(unt-1)

(ListCount)(ListCount-1)

控件可用于后台进程中，可在Timer事件内编程，要停顿触发Timer事件，

可通过以下属性。

d=False或Interval=e=False或Interval=0

d=False或Visible=d=False且Interval=0

15代数式Ln(1+tg2x)所对应的VisualBasic表达式是。

(1+tan(x)^2)B.

Log(1+tg(x)^2

(1+tan(x)^2)D.

Ln(1+tg(x)^2)

二、填空题〔20分，每题2分〕

1.窗体上放置了假设干个文本框和命令按钮，当窗体装入后，要将焦点自动定位到文本

框Text1上，那么在设计时需要将Text1控件的属性设置为。

2.当单击滚动条的箭头时，要使滑块的移动量为50，那么需通过属性来控制。

3.当焦点进入文本框Text1时，要自动选定文本框开场的5个字符，需要通过代码

和gth=来实现。

4.选择通用对话框的方法，可翻开另存为对话框。

5.对于窗体上的菜单按钮，如果不允许显示，应通过属性进展设置。

----

6.对于正在使用的动态数组d()，要增加2个单元，那么应使用语句。

7.格式输出函数Format(6543.21,"##,###.000")的显示结果为。

8.绘制圆心坐标为(1000,500)，半径为300的圆，其代码为。

9.在VisualBasic中声明静态变量的关键字是。

10.表达式Str(Int(-2.3)+Sgn(6)+Sqr(25))的值为。

三、程序填空〔20分，每格2分〕

1.本程序随机产生N〔15〕个1到5的数字，按数字降序排序后，将连续出现的数字

用压缩形式显示。例如，连续3个数字4，那么显示3*4，参见图1。

图1

PrivateSubCommand1_Click()

ConstN=15

Dima%(1ToN)

Dimc%,i%,j%,m%

Fori=1ToN

a(i)=Int((1))

Printa(i);

Nexti

Print:Print"排序";

Fori=1ToN-1′选择法排序

m=i

Forj=(2)

Ifa(j)>=a(m)Then(3)

Nextj

t=a(i):a(i)=a(m):a(m)=t

Nexti

Fori=1ToN

Printa(i);

Nexti

Print:Print"压缩显示";

i=1

DoWhilei<=N′一样元素压缩显示

c=1

Ifi

DoWhilea(i)=a(j)

(4)

Ifj

Loop

Ifc=1ThenPrinta(i);ElsePrintc;"*";a(i);"";

i=(5)

----

Loop

EndSub

子过程是将十进制整数转换成十六进制整数，参数D为要转换的十进制整数，

参数h为转换结果。

PublicSubDTOH(ByValDAsInteger,hAsString)

DimtAsInteger,cAsString,rAsInteger

h=""

IfD<0Thent=-DElse(1)

DoWhile(2)

r=t(3)

t=t＼16

Ifr<10Then

h=r&h

Else

h=(4)&h

EndIf

Loop

IfD<0Thenh="-"&h

EndSub

Command1_Click事件用于调用DTOH函数，将输入到文本框Text1的十进制整数转换成

十六进制字符串，并显示转换结果。例如，Text1中的值为“-171〞，转换结果显示

(-171)10=(-ab)16。

PrivateSubCommand1_Click()

Dimhs$

(5)

Print"("&Text1&")"&"10=("&hs&")16"

EndSub

四、编程题〔45分〕

1.翻开软盘根目录上的工程，补充程序，当单击命令按钮时，可在文本框显示

出100～999之间的水仙化数的个数〔其各位数字立方和等于该数〕，并将统计结果以随机

文件形式存入A:＼文件中。〔10分〕

2.编一个完整的程序，要求如下〔35分〕：

〔1〕参见图2、图3，在Form1窗体上放置一个标签框、一个命令按钮。窗体的标题设

置为你的XX，在窗体中建立可通过鼠标右键弹出的菜单〔快捷菜单〕，含有“产生〞、

“窗体2〞和“完毕〞三个菜单项。在Form2窗体上放置一个图形框，用你的XX号

建立一项菜单，包含两个菜单项：分别为“绘图〞和“返回〞，之间有分隔线。〔8分〕

〔2〕选择快捷菜单的“产生〞菜单项时，利用随机函数产生10个大写字母的回文词，每

个回文词长度在2～10之间〔所谓回文词就是组成字符串的字母左右对称〕并按

行显示在标签内。〔10分〕

----

图2图3

〔3〕选择快捷菜单的“窗体2〞菜单项，翻开Form2窗体；选择“完毕〞菜单项，停顿程序

的运行。〔5分〕

〔4〕单击Form2窗体上的“绘图〞按钮，用Line方法绘制0～2π之间参数方程x=asin3

θsin2θ，y=asin3θcos2θ图形，其中a为图形框的高度的一半，当单击“返回〞

按钮，回到Form1窗体。〔7分〕

〔5〕在软盘根目录下将工程保存为、Form1窗体为、Form2窗体为

，并且通过“文件|生成...exe〞命令将工程生成A:＼文件。〔5分〕

VB模拟试卷二参考答案

一、单项选择题

1.C2.A3.C4.C5.D6.D7.D8.B

9.D10.A11.D12.C13.B14.A15.A

二、填空题

ex0

hange

rt=05

----

(Ubound(d)+2)

7.6,543.210

(1000,500),800

10.3

三、程序填空

1.〔1〕Rnd*5+1

〔2〕i+1ToN

〔3〕m=j

〔4〕c=c+1

〔5〕i+c

2.〔1〕t=D

〔2〕t>0

〔3〕Mod16

〔4〕Chr(r+55)

〔5〕CallDTOH(Text1,hs)

四、编程题

1.程序参考答案：

PrivateSubCommand1_Click()

Dimi,a,b,cAsInteger

="Themunberof水仙花"

n=0

Fori=100To999

a=i100

b=i10-a*10

c=i-a*100-b*10

If(i=a*a*a+b*b*b+c*c*c)Then

n=n+1

EndIf

filenum=FreeFile

Open"a:"ForOutputAsfilenum

Print#filenum,

Closefilenum

EndSub

2.程序参考答案：

〔1〕Form1：

PrivateSubCombo1_DblClick()

=""

----

EndSub

PrivateSubmntDing_Click()

Dimi,l,kAsInteger

DimstrAsString

Dima(1To10)AsString

Fork=1To10

l=Rnd*8+2

Fori=1Tol/2+1

c=Rnd*25+65

a(i)=Chr(c)

a(l+1-i)=Chr(c)

str=""

Fori=1Tol+1

str=str&a(i)

Fori=1To10

a(i)=""

mstr

EndSub

PrivateSubmntExit_Click()

End

EndSub

PrivateSubmntWindows2_Click()

LoadForm2

EndSub

〔2〕Form2：

PrivateSubCommand1_Click()

Dimx0,y0,x,y,r,a

ode=3

draw=True

(-3.14159,-3.14159)-(3.14159,3.14159)

a=idth/2

x0=0

y0=0

Fors=0To2*3.14159Step0.001

x=a*sin(3*s)*sin(2*s)

y=a*sin(3*s)*cos(2*s)

----

(x0,y0)-(x,y)

x0=x

y0=y

EndSub

PrivateSubCommand2_Click()

UnloadMe

LoadForm1

EndSub

VB模拟试卷三

一、单项选择题

1.以下不是VisualBasic的对象。

A.命令按钮B.变量C.正文框D.窗体

2.以下方法可在程序执行时移动对象。

3.在情况下，“FORM_MOUSEMOV〞E过()程会执行。

A.单击窗体可用区域B.放开鼠标按键时

C.在窗体可用区域中移动鼠标D.按下鼠标右键

4.在情况下，“FORM_DRAGDRO〞P过()程会执行。

A.拖拽对象并放开鼠标按键时B.移动鼠标时

C.拖拽对象到窗体外时D.按下鼠标左键

=代4码，翻开对话框。

.另存为C.字型D.打印机

6.属性是缩放图片的大小。

----

7.“POINT〞方法的作用是。

A.绘制点B.绘制线

C.显示象素色彩D.绘制圆

8.打印窗体使用方法。

ICTURE

9.以下程序代码，以方式传递数据。

FunctionResult(ByValMyData)

EndFunction

〔数值〕rence〔参考〕

C.条件缺乏，视程序代码而定D.递归

10.以下语句执行的结果为。

PrivateSubForm_Click()

StaticSumAsInteger

ForI=1To100

Sum=Sum+I

NextI

PrintSum

EndSub

A.5000B.5050C.1200D.5065

X控件的扩展名为。

x和ComboBox的STYLE属性的取值种类为。

A.2，2B.2，3C.3，2D.3，3

r控件通常和控件一起使用创立工具栏。

IST

14.以下代码实现功能。

FillStyle=0

Circle(600,1000),800,,,,3

A.圆B.实心椭圆

C.空心椭圆D.椭圆

15.不属于打印字体属性。

derline

lor

16.控件的功能类似与资源浏览器，也可访问WEB页。

WSER

SSBAR

二、填空题

1.激活属性窗口，可按键。

2.代数式8e3ln2的VisualBasic表达式为。

----

3.窗体中有三个命令按钮和两个文本框，要将焦点定位到第二个文本框，必须设置该

控件的属性为。

4.通过数据控件Data1连接C:数据库，那么需设置Connect为，

DatabaseName为。

定时器控件的属性以为单位。

x控件和ComboBox控件一样的重要方法是、、。

ssBar控件的进度显示方式为分段，应设置属性数值为。

8.语句FORN=1TO50STEP3的循环次数为。

9.设置通用对话框的属性为，可翻开颜色对话框。

10.控件只能使用无声的AVI动画；控件可以播放有声的.avi文件。

三、程序填空

1.编写代码用于实现以下功能：建立并输出一个10×10的矩阵，该矩阵对角线元素为

1，其余元素均为0。

PrivateSubForm_Click()

Dimmat(10,10)

ForI=1to10

Forj=1to10

If(1)Then

(2)

Else

(3)

EndIf

Nextj

NextI

ForI=1to10

Forj=1to10

(4)

Nextj

NextI

EndSub

2.编写程序，打印如下所示的“数字金字塔〞：

121

12321

1234321,,,,,,

654321

PrivateSubForm_Click()

ForI=1to9

Forj=1to30-3*I

(1)

Nextj

Fork=1toI

----

(2)

Nextk

For(3)

Printk

Nextk

NextI

EndSub

3.用随机数模拟旋转的硬币，正面用字母F表示，反面用字母B表示。

PrivateSubForm_Click()

N=InputBox("请输入模拟次数")

F=0

B=0

Randomize

Print"模拟次数为：";n

ForI=1ton

If(1)Then

Print"B"

(2)

Else

(3)

(4)

If((f+b)Mod20)=0then

EndIf

NextI

Print(5)

EndSub

四、编程题

1.编写程序，如图1所示实现相应功能。所用控件：标签、文本框、命令按钮、垂直

滚动条〔MAX：1000；MIN：1〕。垂直滚动条在1~1000之间变化，标签显示相应数值，单击

“数字和〞按钮，在文本框中显示从1+2+3+,,的和。单击“完毕〞按钮，退出程序运行。

2.编写程序，如图2所示实现相应功能。所用控件：标签、水平滚动条、命令按钮、

SHAPE形状。水平滚动条滚动改变图形线条宽度。单击“完毕〞按钮退出程序。

----

图1图2

VB模拟试卷三参考答案

一、单项选择题

1.B2.B3.C4.A5.C6.B7.C8.C

9.A10.B11.C12.B13.D14.B15.D16.B

二、填空题

1.F4

2.8*Exp(3)*Log(2)

EX0

AL毫秒

MREMOVEITEMCLEAR

ING0

8.17

IONMULTIMEDIA〔MCI〕

三、程序填空

1.〔1〕I=j

〔2〕Mat(I,j)=1

〔3〕Mat(I,j)=0

〔4〕PrintMat(I,j)

2.〔1〕Print""

〔2〕Printk

〔3〕K=I-1To1Step-1

3.〔1〕Rnd<0.5

----

〔2〕f=f+1

〔3〕Print"F"

〔4〕b=b+1

〔5〕"F=";f,"B=";b

四、编程题

1.程序参考答案：

OptionExplicit

PrivateSubCMDEXIT_Click()

End

EndSub

PrivateSubCMDSUMNUMBER_Click()

Dimn

Dimm

Forn=tep1

m=m+n

=Str(m)

EndSub

PrivateSubVSBSUM_Change()

lblnum="选取的数字："+Str()

EndSub

PrivateSubVSBSUM_Scroll()

VSBSUM_Change

EndSub

2.程序参考答案：

OptionExplicit

PrivateSubCMDCIRCLE_Click()

EndSub

PrivateSubCMDEXIT_Click()

End

EndSub

PrivateSubCMDOVAL_Click()

EndSub

PrivateSubCMDRECTANGLE_Click()

EndSub

PrivateSubCMDRNDREC_Click()

EndSub

PrivateSubCMDRNDSQR_Click()

----

EndSub

PrivateSubCMDSQUARE_Click()

EndSub

PrivateSubhsbbar_Change()

Width=

EndSub

PrivateSubhsbbar_Scroll()

Width=

EndSub

VB模拟试卷四

一、单项选择题〔15分，每题1分〕

1.类是对象的抽象，对象那么是类的具体化。VisualBasic集成开发环境中的工具箱中

各类图标对应的是，而在窗体上建立的控件对应的是。

A.对象，类B.对象，实体C.类，对象D.实体，类

Basic程序设计语言中，响应对象的外部动作称为，而对象可以执

行的动作或对象本身的行为那么称为。

A.过程，事件B.属性，方法C.方法，事件D.事件，方法

3.表达式"123"+"100"+100的值是。

A.123200B.323C."123100100"D.123100100

4.设CurrentX=400，CurrentY=200，执行指令“Line－(300,500),,BF〞后，CurrentY

=。

A.500B.700C.400D.300

5.按照VisualBasic默认规定，数组声明Dimc(3,4,2to5)共有个元素。

A.36B.80C.60D.48

6.声明一个长度为256个字节的字符串变量mstr，应使用。

r(256)AsString

rAsString*rAsString[256]

7.数据类型中的数值数据类型可以包括：Integer、、Currency和Byte。

、Long、、Long、Data

、Single、、Long、Variant

8.从子过程退出，并返回到主调过程，可使用语句。

----

9.以下命令中可实现对随机文件的读操作。

10.在VisualBasic中将一个窗体从内存中释放时，允许用户进展控制，一般应该在

事件中编程处理。

11.设置窗体标题栏上的图标可通过属性来实现。

12.引用组合框ComBo1最后一个数据项应使用。

(unt)

(unt-1)

(ListCount)

(ListCount-1)

控件可用于后台进程中，可在Timer事件内编程，要触发Timer事件，必须

通过以下属性。

d、e、Interval

d、、Interval

14.以下说法正确的选项是。

属性用于移动窗体或控件，并可改变其大小

属性用于移动窗体或控件，但不可改变其大小

方法用于移动窗体或控件，但不可改变其大小

方法用于移动窗体或控件，并可改变其大小

2.3

15.代数式xy

所对应的VisualBasic表达式是。

(-2.3)+Sqr(x*x+y*y)/Abs(x+y)

^(-2.3)+Sqr(x*x+y*y)/Abs(x+y)

(-2.3)+Sqr(x*2+y*2)/Abs(x+y)

(-2.3)+Sqr(x^2+y^2/Abs(x+y))

二、填空题〔20分，每题2分〕

1.窗体上放置了假设干个文本框和命令按钮，当窗体装入后，要将焦点自动定位到命令

按钮Command1上，那么在设计时需要将Command1控件的属性设置为。

2.当单击垂直滚动条的箭头时，要使滑块的移动量为15，那么需通过属性来控

制。

3.当焦点进入文本框Text1时，要自动选定文本框第1到第6个位置上的6个字符，

那么需要通过代码和gth=来实现。

4.对通用对话框选择方法，可显示“翻开〞对话框。

5.对于窗体上的命令按钮，如果不允许进展操作，应通过属性进展设置。

6.对于正在使用的动态数组C()，要增加1个单元，那么应使用语句。

7.格式输出函数Format(1234.56,"##,##0.000")的显示结果为。

8.为了使一个Picture控件能自动根据装入的图片调整大小，应设置该控件的

属性为True。

9.要使装入到列表框中的数据项能自动排序，应设置该控件的属性为True。

10.在VisualBasic中要为对象变量赋值的关键字是。

----

三、程序填空〔20分，每小格2分〕

1.本程序随机产生N(15)个A到J的大写字母，按字母降序排序后，将连续出现的字母

用压缩形式显示。例如，连续5个H字母显示为5*H，参见图1。数组a()用于存放随机产生

的字母。

图1

PrivateSubCommand1_Click()

ConstN=15

Dima(1ToN)AsString*1,c

Dimcount%,i%,j%,k%

Fori=1ToN

a(i)=Chr(Int((1)))

Printa(i);

Nexti

Fori=1ToN-1′选择法排序

k=i

Forj=(2)

Ifa(j)>a(k)Then(3)

Nextj

c=a(i):a(i)=a(k):a(k)=c

Nexti

Fori=1ToN′输出排序结果

Printa(i);"";

Nexti

i=1

DoWhilei<=N′压缩显示一样元素

count=1

Ifi

DoWhilea(i)=a(j)

count=(4)

Ifj

Loop

Ifcount=1ThenPrinta(i);"";ElsePrintcount;"*";a(i);"";

i=(5)

Loop

EndSub

函数是将十六进制整数字符串转换成十进制整数，参数Hsr为要转换的十六进

制整数字符串。

----

PublicFunctionHTOD(ByValHsrAsString)AsInteger

DimthsrAsString,iAsInteger,dAsInteger,fAsString,cAsString

thsr=UCase(Trim(Hsr))

d=0

IfLeft(thsr,1)="-"Then

f="-"

thsr=Mid(thsr,2)

EndIf

Fori=(1)

c=Mid(thsr,i,1)′字母i与数字1

Ifc>="A"Then

d=(2)-Asc("A")+10

Else

d=d*16+Val(c)

EndIf

Nexti

Iff="-"Thend=(3)

(4)

EndFunction

Command1_Click事件用于调用HTOD函数，将输入到文本框Text1中的十六进制字

符串转换成十进制整数，并显示转换结果。例如，Text1中的值为“-ab〞，转换结果显

示(-ab)16

=(-171)10。

PrivateSubCommand1_Click()

DimxAsInteger

x=(5)

Print"("&Text1&")"&"16=("&x&")10"

EndSub

四、编程题〔45分〕

1.翻开软盘根目录上的工程，补充程序，当单击命令按钮时，可在文本框显示

出十位数为5且能被5整除的四位数的个数，并将统计结果以随机文件形式存入A:＼

文件中。〔10分〕

2.编一个完整程序，要求如下〔35分〕：

〔1〕参见图2、图3，在Form1窗体上放置一个列表框，并用你的XX和XX号在窗

体上建立两项菜单，在XX号菜单下有名为“应用〞与“完毕〞的两个子菜单；

在Form2窗体上放置一个图形框，建立可通过鼠标右键弹出的菜单〔快捷菜单〕，

含有“画图〞和“返回〞两个菜单项，Form2窗体的标题为你的XX号。〔8分〕

----

图2图3

〔2〕当单击“XX〞菜单，利用随机函数自动在列表框产生10个长度在2～10之间小

写字母的字符串，每个字符串的组成字母左右对称。〔10分〕

〔3〕单击“XX〞菜单的“应用〞菜单项，翻开Form2窗体；单击“完毕〞菜单项

时，停顿程序的运行。〔5分〕

〔4〕单击Form2窗体上的“画图〞菜单，用Pset方法绘制参数方程x=rCos4αCos

α，y=rCos4αSinα在0～2π之间的图形，其中r为半径，取图形框的高度

〔或宽度〕的一半；当单击“返回〞按钮，回到Form1窗体。〔7分〕

〔5〕Form1窗体、Form2窗体以及工程文件名分别设置为、和，

保存在软盘根目录下，并且通过“文件|生成...exe〞命令将工程生成文

件保存在软盘根目录下。〔5分〕

VB模拟试卷四参考答案

一、单项选择题

1.C2.D3.B4.A5.B6.C7.A8.C

9.B10.B11.A12.B13.A14.A15.A

二、填空题

ex0

hange

rt=06

(Ubound(C)+1)

7.1,234.560

三、程序填空

----

1.〔1〕Rnd*10+65

〔2〕i+1ToN

〔3〕k=j

〔4〕count+1

〔5〕i+count

2.〔1〕1ToLen(thsr)

〔2〕d*16+Asc(c)

〔3〕-d

〔4〕HTOD=d

〔5〕HTOD(Text1)

四、编程题

1.程序参考答案：

PrivateSubCommand1_Click()

Dimi,a,b,c,dAsInteger

="Themunberof题意要求"

n=0

Fori=1000To9999

a=i1000

b=i100-a*10

c=i10-a*100-b*10

d=i-a*1000-b*100-c*10

If(c=5And(d=0Ord=5))Then

n=n+1

EndIf

filenum=FreeFile

Open"a:"ForOutputAsfilenum

Print#filenum,osefilenum

EndSub

2.程序参考答案：

〔1〕Form1：

PrivateSubCombo1_DblClick()

=""

EndSub

PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)

<>""AndKeyAscii=13Then

=""

EndIf

EndSub

PrivateSubmntDing_Click()

----

Dimi,l,kAsInteger

DimstrAsString

Dima(1To10)AsString

Fork=1To10

l=Rnd*8+2

Fori=1Tol/2+1

c=Rnd*25+97

a(i)=Chr(c)

a(l+1-i)=Chr(c)

str=""

Fori=1Tol+1

str=str&a(i)

Fori=1To10

a(i)=""

mstr

EndSub

PrivateSubmntExit_Click()

End

EndSub

PrivateSubmntWindows2_Click()

LoadForm2

EndSub

〔2〕Form2：

PrivateSubCommand1_Click()

Dimx,y,r,a

ode=3

draw=True

(-3.14159,-3.14159)-(3.14159,3.14159)

r=idth/2

Fora=0To2*3.14159Step0.001

x=r*Cos(4*a)*Cos(a)

y=r*Cos(4*a)*Sin(a)

(x,y)

Nexta

EndSub

PrivateSubCommand2_Click()

----

UnloadMe

LoadForm1

EndSub

VB模拟试卷五

一、单项选择题〔15分，每题1分〕

Basic是一种面向对象的程序设计语言，面向对象系统所包含的三要素

是。

A.属性、事件、方法B.控件、属性、事件

C.窗体、控件、过程D.窗体、控件、模块

Basic的一个应用程序通常至少包含一个文件，该文件存贮窗体上

使用的所有控件对象和有关的、对象相应的过程和代码。

A.模块、方法、事件、程序B.窗体、属性、事件、程序

C.窗体、程序、属性、事件D.程序、属性、事件、模块

3.表达式"321"&100+"200"的值是。

A.321300B.321100200C."321300"D.621

4.设CurrentX=200，CurrentY=350，执行指令“Line-Step(300,600),,B〞后，CurrentX

=。

A.200B.300C.500D.600

5.按照VisualBasic默认规定，数组声明Dimmarray(2,1to3,5)共有个

元素。

A.20B.30C.54D.72

6.声明一个长度为20个字节的字符串变量mstr，应使用。

r=r(20)AsString

rAsString*rAsString(20)

7.数据类型中的数值数据类型可以包括：、Double、Currency和Byte。

r、Long、r、Long、Data

r、Object、r、Long、Variant

8.从循环体Do,Loop中退出并继续执行程序，可使用语句。

9.以下命令中可实现对二进制文件的写操作。

----

10.在VisualBasic中要将一个窗体装载到内存中进展预处理，但不显示，应该使用

语句

。

11.设置窗体最小化时的图标可通过属性来实现。

12.如果列表框List1中已有10项数据，应使用语句将数据“Mydata〞插入到

列表框的第3项。

m"Mydata","Mydata",3

m"Mydata","Mydata",2

控件可用于后台进程中，要使Timer事件每1秒钟触发一次，那么需设置

Interval属性为。

A.1B.10C.100D.1000

14.下面子过程语句合法的是。

1(ByValn%())1(nAsInteger)AsInteger

onf1%(f1AsInteger)onf1(ByValnAsInteger)

15.代数式(a+b)÷(5÷c+d÷2)的VisualBasic表达式是。

A.(a+b)/5/c+d/2B.a+b/(5/c+d/2)

C.(a+b)/(5/c+0.5d)D.(a+b)/(5/c+d/2)

二、填空题〔20分，每题2分〕

1.窗体上放置了假设干个文本框和列表框，当窗体装入后，要将焦点自动定位到List1

上，那么在设计时需要将List1控件的属性设置为。

2.当单击水平滚动条上的空白区域时，要使滑块的移动量为230，那么需通过属

性来控制。

3.当焦点进入文本框Text1时，要自动选定文本框第3到第8个位置上的6字符，那么

需要通过代码rt=和来实现。

4.对通用对话框选择方法，可显示字体对话框。

5.对于窗体上的复选按钮，如果不允许进展操作，应通过属性进展设置。

6.对于正在使用的动态数组B()，要增加3个单元，那么应使用语句。

7.格式输出函数Format(1234.00,"###.###")的显示结果。

8.绘制圆心坐标为(1000,1000)，半径为800的圆，其代码为。

9.假设调用过程时，采用值传递方式，那么应在形参说明前添加关键字。

10.为了使目录列表框Dir1和驱动器列表框Drive1之间能产生同步效果，必须在

事件过程中参加语句。

三、程序填空〔20分，每小格2分〕

1.下面的程序按从小到大的顺序随机产生不超过20个介于100到400〔包括100、400〕

的数，每次产生的一个数总大于它前面已产生的数，然后求产生的数的平均值。数组b(20)

用于存放所产生的随机数，运行结果图1所示。

----

图1

PrivateSubCommand1_Click()

Dimb(20),iAsInteger,jAsInteger,sumAsSingle

j=1

re:

b(j)=Int((1))

Ifb(j)=400Orj=20Then

ExitDo

ElseIfb(j)<=b(j-1)Then′控制新产生的数总大于前面已产生

的数

(2)

EndIf

(3)

Loop

sum=(4)

Fori=1Toj

Printb(i);

sum=sum+b(i)

Nexti

Print"aver=",(5)

EndSub

2.新的XX号由18位组成，最低位〔右边〕为校验位，其算法是：10－〔前17位

之和关于10的模〕。函数foe用于对18位的XX号进展校验。参数mstr存放XX号，

md为产生的校验位，假设校验正确，函数返回“True〞，否那么返回“False〞。

PublicFunctionfoe(ByValmstr$,md%)AsBoolean

DimmpAsString,msumAsInteger

msum=0

(1)

mp=Mid(mstr,i,1)

msum=msum+Val(mp)

Nexti

md=10-(2)

Ifmd=(3)Then

foe=True

Else

foe=False

EndIf

EndFunction

----

Command1_Click事件用于调用foe函数，对输入到文本框Text1的XX号进展校验，

如果校验正确，显示“True〞，否那么显示“False〞和校验码值。

PrivateSubCommand1_Click()

DimmmAsInteger

IfLen(Text1)<>18OrNotIsNumeric(Text1)Then

MsgBox"非法数据，请重新输入！"

Text1=""

(4)

ExitSub

EndIf

Iffoe(Text1,mm)=TrueThen

PrintTrue

Else

(5)

EndIf

EndSub

四、编程题〔45分〕

1.翻开软盘根目录上的工程，补充程序，当单击命令按钮时可在文本框显示出

700～800中所有素数的个数，并将统计结果以随机文件形式存入A:＼文件中。〔10

分〕

2.编一个完整的程序，要求如下〔35分〕：

〔1〕参见图2、图3，在Form1窗体上放置组合框Combo1、列表框List1，标签Label1

和Label2；用你的XX号建立一项菜单，包含两个菜单项：分别为“窗体2〞和“结

束〞，之间有分隔线。在Form2窗体上放置一个时钟控件和图形框，窗体的标题设

置为你的XX号。〔8分〕

〔2〕当在Form1窗体的组合框中输入新的课程名按回车后，可使该课程名参加到组合

框中；当双击组合框中某课程名，可使该课程参加到List1中。〔7分〕

图2图3

〔3〕当单击“窗体2〞菜单项时，翻开Form2窗体，单击“完毕〞菜单项时，停顿程序的运

行。〔5分〕

〔4〕在Form2窗体中建立可通过鼠标右键弹出的菜单〔快捷菜单〕。含有“装入图〞、“移

动〞和“返回〞三个菜单项。选择“装入图〞菜单项，在图形框装入图形

文件；选择“移动〞菜单项，图形框按每0.1秒频率在窗体上右向左移动20单位；

选择“返回〞菜单项关闭Form2窗体，显示Form1窗体。〔10分〕

----

〔5〕在软盘根目录下将工程保存为、Form1窗体为、Form2窗体为

，并且通过“文件|生成...exe〞命令将工程生成A:＼文件。〔5分〕

VB模拟试卷五参考答案

一、单项选择题

1.A2.B3.C4.C5.C6.C7.A8.D

9.D10.C11.A12.C13.D14.A15.D

二、填空题

ex0

hange

gth=6

(Ubound(B)+3)

7.1234

(1000,1000),800

1_=

三、程序填空

1.〔1〕Rnd*301+100

〔2〕GoTore

〔3〕j=j+1

〔4〕0

〔5〕sum/j

2.〔1〕Fori=1To17

〔2〕msumMod10

〔3〕Val(Right(mstr,1))

〔4〕us

----

〔5〕PrintFalse,mm

四、编程题

1.窗体如图4所示：

图4

程序参考答案一：

PrivateSubCommand1_Click()

Dimi,kendAsInteger

DimyesAsBoolean

="Theprimarybetween700to800:"

n=0

Fori=700To800

yes=True

kend=Int(Sqr(i))

Fork=2Tokend

If(iModk=0)Then

yes=False

EndIf

IfyesThen

n=n+1

EndIf

filenum=FreeFile

Open"a:"ForOutputAsfilenum

Print#filenum,

Closefilenum

EndSub

参考答案二：

PrivateSubCommand1_Click()

DimMyRecordAsRecord′声明变量

′补充程序

Dimi,j,kAsInteger

k=0

Fori=1000To2000

Forj=2Toi-1

----

IfiModj=0ThenGoTonextm

Nextj

k=k+1

nextm:

Nexti

Text1=k

=Label1

+""ForRandomAs#1Len=Len(MyRecord)

Put#1,,MyRecord

Close#1

EndSub

PrivateSubmenu12_Click()

End

EndSub

2.程序参考答案一：

〔1〕Form1：

PrivateSubCombo1_DblClick()

=""

EndSub

PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)

<>""AndKeyAscii=13Then

=""

EndIf

EndSub

PrivateSubmntExit_Click()

End

EndSub

PrivateSubmntWindows2_Click()

LoadForm2

EndSub

〔2〕Form2：

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,

YAsSingle)

IfButton=2Then

PopupMenumntMain,2

EndIf

EndSub

PrivateSubmntCircle_Click()

d=True

----

EndSub

PrivateSubmntLoad_Click()

e=LoadPicture("a:＼")

EndSub

PrivateSubmntReturn_Click()

d=False

UnloadMe

LoadForm1

EndSub

PrivateSubTimer1_Timer()

EndSub

参考答案二：

〔1〕Form1：

PrivateSubCombo1_DblClick()

Fori=unt-1

dex=i

=enExitSub

Nexti

EndSub

PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=>""Then

mt=

Fori=unt-1

dex=i

=mtThenExitSub

Nexti

mmt

EndIf

EndSub

PrivateSubmenu11_Click()

EndSub

PrivateSubmenu12_Click()

End

EndSub

〔2〕Form2：

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,

YAsSingle)

IfButton=2ThenPopupMenumenu1

EndSub

PrivateSubmenu11_Click()

----

Picture1=Picture2

EndSub

PrivateSubmenu12_Click()

al=100

EndSub

PrivateSubmenu13_Click()

UnloadMe

EndSub

PrivateSubPicture1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,

YAsSingle)

IfButton=2ThenPopupMenumenu1

EndSub

PrivateSubTimer1_Timer()

=-20

EndSub

更多推荐

filelistbox

filelistbox

双机互连-windows7分区软件

发布评论取消回复

最近发表

热门文章

标签列表

filelistbox

双机互连-windows7分区软件

相关文章

发布评论取消回复

最近发表

热门文章

标签列表