计算机技术基础习题集

计算机技术基础习题册

(VisualBasic6.0版)

姓名：_____________

学号：_____________

专业：_____________

班级：_____________

沈阳药科大学计算中心

计算机技术基础习题集

目录

目录.........................................................................I

习题—......................................................................1

习题一参考答案................................................................4

习题二......................................................................5

习题二参考答案................................................................8

习题三......................................................................9

习题三参考答案...............................................................13

习题四.....................................................................15

习题四参考答案...............................................................21

习题五.....................................................................23

习题五参考答案...............................................................31

习题六.........................................................................33

习题六参考答案...............................................................41

习题七.......................................................................43

习题七参考答案...............................................................49

习题八.........................................................................51

习题八参考答案...............................................................55

习题九.........................................................................56

习题九参考答案...............................................................64

68K《VISUALBASIC程序设计》试题............................................67

70K《计算机技术基础》试卷2004年5月..........................................75

《计算机技术基础》试卷2004年6月.............................................85

《计算机技术基础》试卷2004年8月.............................................97

68K试题参考答案............................................................106

70K（2004年5月）参考答案....................................................108

2004年6月参考答案...........................................................112

2004年8月参考答案............................................................115

计算机技术基础（VB）试卷（B卷，2005年7月）...................................118

计算机技术基础习题集

习题一

11选择题

1.VisualBasic是一种面向对象的可视化程序设计语言，它以结构化Basic

语言为基础，采取了（）的编程机制和运行机制。

（A）事件驱动（B）按过程顺序执行

（0从主程序开始执行（D）按模块顺序执行

2.在VisualBasic中最基本的对象是（），它是应用程序的基石，是其

他控件最基本的容器。

（A）文本框（B）命令按钮（C）窗体（D）标签

3.多窗体程序是由多个窗体组成。在缺省情况下，VB在应用程序执行时，总

是把（）指定为启动窗体。

（A）不包含任何控件的窗体（B）设计时的第一个窗体

（C）包含控件最多的（D）命名为Forml的窗体

4.有程序代码如下：Textl.Text="/VisualBasic"。贝U：Textl>Text和

"VisualBasic”分别代表（）。

（A）对象，值，属性（B）对象，方法，属性

（C）对象，属性，值（D）属性，对象，值

5.VisualBasic是一种面向对象的程序设计语言，（）不是面向对象系

统所包含的三要素。

（A）变量（B）事件（C）属性（D）方法

6.VisualBasic的一个应用程序至少包含一个（）文件，该文件存储窗

体上使用的所有控件对象和有关的（）、对象相应的（）过程

和（）代码。

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

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

7.以下不属于VisualBasic的工作模式是（）模式。

（A）编译（B）设计（C）运行（D）中断

8.在VB集成环境创建VB应用程序时，除了工具箱窗口、对象窗口、属性窗

口外必不可少的窗口是（）。

（A）窗体布局窗口（B）立即窗口（C）代码窗口（D）监视窗口

9.保存新建的工程时，默认的路径是（）。

（A）MyDocuments（B）VB98（C）\（D）Windows

10.将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，

将该可执行文件复制到其他机器上不能运行的主要原因是（）。但是

如果打包生成安装文件，在其它计算机上安装后就可以使用了。

（A）运行的机器上无VB系统（B）缺少.frm窗体文件

（C）该可执行文件有病毒（D）以上原因都不对

1

计算机技术基础习题集

11.对于窗体，下面()属性可以在运行模式下进行设定。

(A)MaxButton(B)BorderStyle(C)Name(D)Left

12.要使Print方法在FormLoad事件中起作用，要对窗体的()属性进

行设置。

(A)BackColor(B)ForeColor(C)AutoRedraw(D)Caption

13.使标签控件显示时不覆盖其背景内容，要对()属性进行设置。

(A)BackColor(B)BorderStyle(C)ForeColor(D)BackStyle

14.使命令按钮不可操作，要对()属性设置。

(A)Enabled(B)Visible(C)BackColor(D)Caption

15.文本框没有()属性。

(A)Enabled(B)Visible(C)BackColor(D)Caption

16.不论何控件，共同具有的是()属性。

(A)Text(B)Name(C)ForeColor(D)Caption

17.要使Forml窗体的标题栏显示“欢迎使用VB”，以下()语句是正确

的。

(A)Forml.Caption="欢迎使用VB”

(B)Forml.Caption』欢迎使用VB'

(C)Forml.Caption=欢迎使用VB

(D)Forml.Caption="欢迎使用VB”

18.要使某控件在运行时不可见，应对()属性进行设置。

(A)Enabled(B)Visible(C)BackColor(D)Caption

19.要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要

对下列()属性设置就有效。

(A)MaxButton(B)BorderStyle(C)Width(D)MinButton

20.当运行程序时，系统自动执行启动窗体的()事件过程。

(A)Load(B)Click(C)UnLoad(D)GotFocus

21.文本框的ScrollBars属性设置了非零值，却没有效果，原因是()。

(A)文本框中没有内容

(B)文本框的MultiLine属性为False

(C)文本框的MultiLine属性丸True

(D)文本框的Locked属性为True

22.要判断在文本框中是否按了Enter键，应利用文本框的()事件。

(A)Change(B)KeyDown(C)Click(D)KeyPress

23.如果文本框的Enabled属性设为False,则()。

(A)文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上

(B)文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是

不能改变文本框中的内容

(C)文本框的文本将变成灰色，用户仍然能改变文本框中的内容

2

计算机技术基础习题集

（D）文本框的文本正常显示，用户能将光标置于文本框上，但是不能改

变文本框中的内容

24.当需要上下文帮助时，选择问题中的对象类型、属性名称、保留字等关键

词，然后按（）键，就可出现MSDN窗口及显示对应内容的帮助信息。

（A）Help（B）F10（C）Esc（D）Fl

1.2填空题

1.VB6.0提供了一种新的数据库访问技术，即（），通过该技术，能

方便地访问多种数据库中的数据。

2.当进入VB集成环境，发现没有显示“工具箱”窗口，应选择（）菜

单的（）选项，使“工具箱”窗口显示。

3.要使新建工程时，在模块的“通用声明”段自动加入OptionExplicit语

句，应对（）菜单的（）的（）选项卡进行相应选项的选择。

4.对象的属性是指（）。

5.对象的方法是指（）。

6.对于新建立的工程，如果想使窗体上的所有控件都具有相同的字体格式，

可以利用（）的（）属性统一进行设置。

7.将文本框的ScrollBar属性设置为2（有垂直滚动条），但没有滚动条显

示，是由于（）属性的值设置为了False的原因。

8.在代码窗口中对窗体的BorderStyle、MaxButton属性进行了设置，运行

模式下运行该语句后没有效果，原因是这些属性（）。

9.当对命令按钮的Picture属性装入.bmp图形文件后，选项按钮上并没有显

示所需的图形，原因是没有将（）属性设置为l（Graphical）。

10.某工程包括Forml、Form2两个窗体，默认启动窗体为Forml。通过（）

菜单的（）的（）选项卡，可将启动窗体设置为Form2。在程序

中若要显示Forml窗体，则执行（）语句。

11.在文本框中，通过（）属性能获得当前插入点所在的位置。

12.按下键盘上的按键，对文本框中已有的内容进行编辑时，发现不起作用，

可能的原因是将（）属性的值设置为了True。

13.在窗体上已建立多个控件如Textl、Labe1RCommand1,若要使程序一运

行焦点就定位在Command1控件上，应将Command1控件的（）属性

设置值为（）。

3

计算机技术基础习题集

习题一参考答案

1.1选择题

1.A2.C3.B4.C5.A6.B7.A

8.C9.B10.A（说明：VB是面向对象的可视化程序设计语言，除了

本程序编译成.exe后，要能到其他计算机上运行，还需要很多其他文件，

如.dH、.ocx等。因此如果想将程序移植到其它机器上，要么其它机器装有

VB系统；要么将工程打包，制作成安装盘。）11.D12.C

13.D14.A15.D16.B17.D（说明：这是关于字符串常量的正确书

写问题。A错误在于中文双引号；B错误在于单引号；C错误在于无引号。）

18.B19.B20.A21.B22.D（说明：在KeyPress事件中有一个参

数KeyAscII,该参数的值就是用户输入字符的ASCH编码，通过判断该值是

否等于13就可以知道用户是否按下了回车键。）

23.A24.D

1.2填空题

1.ADO技术

2.视图工具箱

3.工具选项编辑器

4.描述和反映对象特征的参数

5.在面向对象的程序设计语言中，为程序设计人员提供的一种可以直接调用

的特殊过程和函数

6.FormFont

7.MuhiLine

8.在运行时设计是无效的

9.Style

10.工程工程属性通用Forml.Show

11.SelStart

12.Locked

13.Tabindex0

4

计算机技术基础习题集

习题二

2.1选择题

1.在一个语句内写多条语句时，每个语句之间用()符号分隔。

(A),(B)：(C)、(D)

2.一句语句要在下一行继续写，用)符号作为续行符。

(A)+(B)-(C)—(D)……

3.下面()是合法的变量名。

(A)X_yz(B)123abc(C)integer(D)X—Y

4.下面()是不合法的整常数。

(A)100(B)&0100(C)&H100(D)%100

5.下面()是合法的字符常数。

(A)ABC$(B)"ABC"(C)'ABC(D)ABC

6.下面()是合法的单精度型变量。

(A)num!(B)sum%(C)xinte$(D)mm#

7.下面()是不合法的单精度常数。

(A)100!(B)100.0(C)1E+2(D)100.OD+2

8.表达式16/4—2-5*8/4MOD5\2的值为()o

(A)14(B)4(C)20(D)2

9.数学关系3Wx<10表示成正确的VB表达式为()0

(A)3<=x<10(B)3GxANDx<10

(C)x>=3ORx<10(D)3<=xAND<10

10.\、/、Mod、*四个算术运算符中，优先级别最低的是()

(A)\(B)/(C)Mod(D)*

ab

11.与数学表达式3cd对应，VB的不正确表达式是()。

(A)a*b/(3*c*d)(B)a/3*b/c/d

(C)a*b/3/c/d(D)a*b/3*c*d

12.Rnd函数不可能为下列()值。

(A)0(B)1(C)0.1234(D)0.0005

13.Int(198.555*100+0.5)/100的值()。

(A)198(B)199.6(C)198.56(D)200

14.已知A$="12345678”,则表达式Vai(Left$(A$,4)十Mid$(A$,4,

2))的值为()。

(A)123456(B)123445(C)8(D)6

15.PrintDateAdd("m",1,#1/30/2000#)语句显示的结果是()。

(A)00-2-29(B)00-2-28(C)00-2-30(D)00-1-31

16.表达式DateDiff("y",#12/30/1999#,#1/13/2000#)的结果是()o

5

计算机技术基础习题集

(A)1(B)11(C)14(D)99

17.表达式Len("123程序设计ABC")的值是()。

(A)10(B)14(C)20(D)17

18.表达式LenB("123程序设计ABC")的值是()。

(A)10(B)14(C)20(D)17

19.下面正确的赋值语句是()。

(A)x+y=30(B)y=JT*r*r(C)y=x+30(D)3y=x

20.为了给x,y,z三个变量赋初值1,下面正确的赋值语句是()。

(A)x=l：y=l：z=l(B)x=l,y=l,z-1

(C)x=y=z=l(D)xyz=l

21.赋值语句：a=123+MID(“123456”,3,2)执行后，a变量中的值是()。

(A)“12334”(B)123(C)12334(D)157

22.赋值语句：a=123&MID("123456”,3,2)执行后，a变量中的值是()。

(A)“12334”(B)123(C)12334(D)157

2.2填空题

1.在VB中，1234、123456L2346E+5、1.2346D+5四个常数分别表示

（）、（）、（）、

（）类型。

2.整型变量x中存放了一个两位数，要将两位数交换位置，例如，13变成31,

实现的表达式是（）。

3.数学表达式sinl50+上一乂的VB算术表达式为

（）O

a+b

11cd

4.数学表达式c+52c的VB算术表达式为（）。

5.表示x是5的倍数或是9的倍数的逻辑表达式为（）。

6.已知a=3.5,b=5.0,c=2.5,d=True,贝U表达式：a>=0ANDa+c>b+3ORNOT

d的值是（）。

7.Int（-3.5）、Int（3.5）、Fix（-3.5）、Fix（3.5）、Round（-3.5）>Round（3.5）

的值分别是（）、（）、（）、

（）、（）、（）。

8.表达式Ucase（Mid（"abcdefgh”,3,4））的值是（）。

9.在直角坐标系中，（x,y）是坐标系中任意点的位置，用x与y表示在第一

或第三象限的表达式是（）。

10.要以xxxx年XX月XX日形式显示当前机器内日期的Format函数表

达式为（）。

11.计算已进入21世纪有多少天的函数表达式是（）。

6

计算机技术基础习题集

12.计算离你毕业(假定毕业年月为2004年7月3日)还有多少个星期的函数

表达式是()o

13.表示s字符变量是字母字符(大小写字母不区分)的逻辑表达式为

()。

2.3编程题

1.利用InputBox输入三角形三条边的长度a,b,c,计算并显示三角形的面积。公式为：

面积=Js(s-a)(s-b)(s-c),其中s=(a+b+c)/2

2.用InputBox输入一个正实数，用Print方法在一行上显示出它的平方和平方根、立方

和立方根，每个数保留三位小数，之间有间隔。

7

计算机技术基础习题集

习题二参考答案

2.1选择题

1.B2.C3.A4.D5.B6.A7.D8.B9.B

10.C11.D12.B13.C14.B15.A该函数表示在当前日期按

“m”月格式加一个月，本应该C,但这是不合法的日期。

16.C17.A18.C19.C20.A21.D22.A

2.2填空题

1.整型、长整型、单精度型、双精度型

2.(xmod10)*10+x\10

3.sin(15*3.14/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)

4.(a+b)/(1/(c+5)-c*d/2)5.xmod5=0orxmod9=0

6.False

7.-4,3,-3,3,-4,4

8.CDEF

9.x>0AndY>0orx<0AndY<0

10.Format(Date,"YYYY年mm月dd日”)

11.DateDiff("d”，#1/1/2001#,Now)+1

12.DateDiff("ww”,Now,#7/3/2004#)

13.UCase(s)>=“A”AndUCase(s)<="Z"

2.3编程题

1)PrivateSubCommand1_C1ick()

Dima&,b&,c&,s#

a=InputBox(〃请输入三角形a边的长度〃)

b=InputBox(〃请输入三角形b边的长度〃)

c=InputBox(〃请输入三角形c边的长度〃)

s=(a+b+c)/2

Textl=Sqr(s*(s-a)*(s-b)*(s-c))

EndSub

2)PrivateSubCommand1_C1ick()

Dima#

a=InputBox(〃请输入一个正实数〃)

Printa八2,Sqr(a),a~3,a(1/3)

EndSub

8

计算机技术基础习题集

习题三

3.1选择题

1.VB也提供了结构化程序设计的三种基本结构，三种基本结构是()。

(A)递归结构、选择结构、循环结构

(B)选择结构、过程结构、顺序结构

(C)过程结构、输入、输出结构、转向结构

(D)选择结构、循环结构、顺序结构

2.结构化程序由三种基本结构组成，下面属于三种基本结构之一的是()。

(A)递归结构(B)选择结构

(C)过程结构(D)输入、输出结构

3.下面程序段运行后，显示的结果是()。

Dimx%

IfxThenPrintxElsePrintx+1

(A)1(B)0(C)-1(D)显示出错信息

4.语句Ifx=lTheny=l,下列说法正确的是()。

(A)x=l和y=l均为赋值语句

(B)x=l和y=l均为关系表达式

(C)x=l为关系表达式，y=l为赋值语句

(D)x=l为赋值语句，y=l为关系表达式

5.用If语句表示分段函数下列不正确的程序段是

x2+3,%<1

()o

(A)f=x*x+3(B)Ifx>=lThenf=sqr(x+l)

Ifx>=lThenf=sqr(x+1)Ifx<lThenf=x*x+3

(C)Ifx>=lThenf=sqr(x+l)(D)Ifx<lThenf=x*x+3

Elsef=x*x+3Elsef=sqr(x+1)

6.计算分段函数值。

0,x<0

1,0<x<1

y=<

2,l<x<2

3,x>2

下面程序段中正确的是()o

(A)Ifx<0Theny=0(B)Ifx>=2Theny=3

Ifx<lTheny=lIfx>=lTheny=2

Ifx<2Theny=2Ifx>0Theny=l

Ifx>=2Theny=3Ifx<0Theny=0

(C)Ifx<0Then(D)Ifx>=2Then

9

计算机技术基础习题集

y二0k3

Elselfx>0ThenElselfx>=lThen

y=ly=2

Elselfx>lThenElselfx>=0Then

y=2y二l

ElseElse

y=3y=0

EndIfEndIf

7.下面程序段，显示的结果是()o

Dimx

x=Int(Rnd)十5

SelectCasex

Case5

Print"优秀”

Case4

Print“良好”

Case3

Print“通过”

CaseElse

Print“不通过”

EndSelect

(A)优秀(B)良好(C)通过(D)不通过

8.下面程序段求两个数中的大数,()不正确。

(A)Max=IIf(x>y,x,y)(B)Ifx>yThenMax二xElseMax二y

(C)Max二x(D)Ify>=xThenMax二y

Ify>=xThenMax二yMax二x

9.下面语句执行后，变量W中的值是()。

w=Choose(Weekday(z，2000,5,1〃)，〃Red〃，“Green","Blue","Yellow")

(A)Null(B)“Red”(C)“Green”(D)“Yellow”

3.2填空题

1.下面程序运行后输出的结果是()o

x=Int(Rnd)+3

Ifx^2>8Theny=x2+1

Ifx^2=9Theny=x*2-2

Ifx2<8Theny=x3

Printy

2.下面程序的功能是()0

Dimn%,m%

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

io

计算机技术基础习题集

IfKeyAscii=13Then

IfIsNumeric(Textl.Text)Then

SelectCaseTextl.TextMod2

Case0

n=n+Textl.Text

Case1

m=m+Textl.Text

EndSelect

EndIf

Textl.Text二〃〃

Textl.SetFocus

EndIf

EndSub

3.下面的程序段是检查输入的算术表达式中圆括号是否配对，并显示相应的

结果。本程序在文本框输入表达式，边输入，边统计，以输入回车符作为

表达式输入结束，然后显示结果。

Dimcount1%

PrivateSubTextlKeyPress(KeyAsciiAsInteger)

If('="("Then

countl=countl+l

Elself()=")"Then

()

EndIf

IfKeyAscii=13Then

If()Then

Print”左右括号配对”

ElseIf()Then

Print”左括号多于右括号〃；countl；"个"

Else

Print"右括号多于左括号”；-countl；

EndIf

EndIf

EndSub

4.输入文本框中若干字符，统计有多少个元音字母、有多少个其他字母，直

到按Enter键结束，并显示结果，大小写不区分。其中CountY中放元音

字母个数，CountC中放其他字符数。

DimCountY%,CountC%

PrivateSubTextlKeyPress(KeyAsciiAsInteger)

DimC$

11

计算机技术基础习题集

c=()

If〃A〃〈二CAndC〈二〃Z〃Then

SelectCase()

Case()

CountY=CountY+1

Case()

CountC=CountC+l

EndSelect

EndIf

If()Then

Print〃元音字母有〃；CountY；〃个〃

Print〃其他字母有〃；CountC；〃个〃

EndIf

EndSub

3.3编程题

1.输入三角形的三条边a,b,c的值，根据其数值，判断能否构成三角形。

若能，还要显示三角形的性质：等边三角形、等腰三角形、直角三角形、

任意三角形。

2.输入一年份，判断它是否为闰年，并显示有关信息。判断闰年的条件是:

年份能被4整除但不能被100整除，或者能被400整除。

12

计算机技术基础习题集

习题三参考答案

3.1选择题

1.D2.B

3.Ax没有赋值，默认为0。而在VB中，0作为逻辑常量False,非0作为

True。

4.C5.A6.D7.A8.D9.C

3.2填空题

(1)7

⑵分别统计输入若干数的奇数和、偶数和，存放在队n中

(3)Chr(KeyAscii)

(4)Chr(KeyAscii)

(5)countl=countl-l若遇右括号，括号数减1。

(6)count1=0括号配对。

(7)countl>0左括号多于右括号，多于的个数是countl的值。

(8)UCase(Chr(KeyAscii))大小写不区分。

⑼C

(10)“A”，”E"，"I"，”0"，"U"

(ll)Else其他字符。

(12)KeyAscii=13

3.3编程题

1)PrivateSubCommandl_Click()

Dima#,b#,c#

DimflagAsBoolean

a=Vai(Textl)

b=Vai(Text2)

c=Vai(Text3)

Ifa+b>canda+c>bandb+c>athen

print”构成三角形，是：”；

Ifa=bandb=cThen

Print〃等边三角形〃

Elselfa=b0ra=c0rc=bThen

Print〃等腰三角形〃

Elselfa2+b2=c2Ora2+c2=b2Orc2+b^2=a2Then

Print〃直角三角形〃

Else

Print〃任意三角形〃

EndIf

13

计算机技术基础习题集

Else

print“不构成三角形”

EndIf

EndSub

2)

PrivateSubCommand2Click()

Dima%

a=Textl

If(aMod4=0AndaMod100<>0)OraMod400=0Then

Printa;〃年是闰年〃

Else

Printa;〃年不是闰年〃

EndIf

EndSub

14

计算机技术基础习题集

习题四

4.1选择题

1.以下()是正确的For…Next结构。

(A)Forx=lToStep10(B)Forx=3To-3Step-3

NextxNextx

(C)Forx=lTo10(D)Forx=3To10Step3

re：

NextXNexty

Ifi=10ThenGoTore

2.下列循环能正常结束循环的是()。

(A)i=5(B)i=1

DoDo

i=i+li=i+2

LoopUntili<0LoopUntili=10

(C)i=10(D)i=6

DoDo

i=i-li=i-2

LoopUntili<0LoopUntili=l

3.下面程序段的运行结果为（)o

Fori=3To1Step-1

PrintSpc(5-i)；

Forj=lTo2*i-l

Print〃*〃；

Nextj

Print

Nexti

(A)*(B)*****(C)*****(D)*****

************

***

4.当在文本框输入“ABCD”四个字符时，窗体上显示的是（）o

PrivateSubTextl_Change（）

PrintTextl.Text；

EndSub

(A)ABCD(B)A(C)AABABCABCD(D)A

BAB

CABC

DABCD

15

计算机技术基础习题集

5.哪个程序段不能分别正确显示1!、2!、3!、4!的值（）o

（A）Fori=lTo4（B）Fori=lTo4

n=lForj=lToi

Forj=lToin=l

n=n*jn=n*j

NextjNextj

PrintnPrintn

NextiNexti

（C）n=1（D）n=l:j=l

Forj=1To4DoWhilej<=4

n=n*jn=n*j

PrintnPrintn

Nextjj=j+1

Loop

4.2填空题

1.要使下列For语句循环执行20次，循环变量的初值应当是：

Fork=（）To-5Step-2

2.下面程序段显示（）个

Fori=lTo5

Forj=2Toi

Print〃*〃；

Nextj

Nexti

3.下列第40句共执行了（）次，第41句共执行了（）次。

30Forj=lTo12Step3

40Fork=6To2Step-2

41Printj,k

42Nextk

43Nextj

4.以下程序运行后，si、sj、sk、i、j、k的结果分别是（）、

（）、（）、（）、（）、（）o

PrivateSubCommandl_Click（）

si二0：sj二0

Fori=lTo2

Forj=lToi

sk=0

Fork=jTo3

sk=sk+1

Nextk

16

计算机技术基础习题集

sj=sj+l

Nextj

si=si+1

Nexti

Printsi,sj,sk,i,j,k

EndSub

5.下面程序运行后输出的结果是()o

PrivateSubCommandl_Click()

Fori=0To3

PrintTab(5*i+1)；〃2〃+i；〃2〃&i；

Nexti

EndSub

6.下面程序运行后输出的结果是(),,

PrivateSubCommand1_C1ick()

a$=〃*〃：B$二〃$〃

Fori=lTo4

IfiMod2=0Then

x$=String(Len(a$)+i,B$)

Else

X$=String(Len(a$)+i,a$)

EndIf

Printx$；

Nexti

EndSub

7.输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”

变换咸GFEDCBA”。

PrivateSubCommand1_C1ick()

Dima$,1%,cc$,d$

a二InputBox$("输入字符串”)

n=()

Fori=lTo()

c=Mid(a,i,1)

Mid(a,i,1)=()

()=c

Nexti

Printa

EndSub

8.找出被3、5、7除，余数为1的最小的5个正整数。

PrivateSubCommand1_C1ick()

17

计算机技术基础习题集

DimCountN%,n%

CountN=0

n=l

Do

n=n+1

if()Then

Printn

CountN=CountN+l

EndIf

Loop()

EndSub

9.某次大奖赛，有七个评委打分，如下程序对一名参赛者，输入七个评委的

打分分数，去掉一个最高分、一个最低分后，求出平均分为该参赛者的得

分。

PrivateSubCommandl_Click()

Dimmark!,aver!,i%,maxi!,mini!

aver=0

Fori=lTo7

mark二InputBox(〃输入第〃&i&〃位评委的打分〃)

Ifi=lThen

maxi=mark：()

Else

Ifmark<miniThen

()

ElseIfmark>maxlThen

()

EndIf

EndIf

()

Nexti

aver=()

Printaver

EndSub

4.3编程题

1.有一个长阶梯，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶,

如果每步跨4阶最后剩3阶，如果每步跨5阶最后剩4阶，如果每步跨6

阶最后剩5阶，只有当如果每步跨7阶时恰好走完，问这个阶梯有多少阶？

18

计算机技术基础习题集

［提示］

利用其肯定是7的倍数这个条件，然后根据同时满足除n余m(n=2,3,4,

5,6；m=l,2,3,4,5)的逻辑关系即可。

19

计算机技术基础习题集

习题四参考答案

4.1选择题

1.B2.C3.B4.C5.B

4.2填空题

1、33根据循环次数计算公式得。

2、10该题相当于统计两重循环执行了多少次。

3、4相当于统计外循环体执行多少次。

12相当于统计两重循环体执行多少次。

4、232334

5>220321422523

6、**$$$****$$$$$

7、Len(a)解该题的思路是将字符串从两头往中