2024年4月自考07759visual basic程序設(shè)計(jì)試題

機(jī)密考試結(jié)束前

★

年月高等教育自學(xué)考試

20244

VisualBasic程序設(shè)計(jì)試題

課程代碼:07759

請考生按規(guī)定用筆將所有試題的答案涂、寫在答題紙上。

1.

答題前,考生務(wù)必將自己的考試課程名稱、姓名、準(zhǔn)考證號用黑色字跡的簽字筆或鋼筆

2.

填寫在答題紙規(guī)定的位置上。

選擇題部分

注意事項(xiàng):

每小題選出答案后用鉛筆把答題紙上對應(yīng)題目的答案標(biāo)號涂黑如需改動用橡皮

,2B。,

擦干凈后再選涂其他答案標(biāo)號不能答在試題卷上

,。。

一、單項(xiàng)選擇題:本大題共10小題,每小題2分,共20分。在每小題列出的備選項(xiàng)中只有一項(xiàng)

是最符合題目要求的,請將其選出。

不屬于特點(diǎn)的是

1.VisualBasic

???

事件驅(qū)動的編程機(jī)制

A.

結(jié)構(gòu)化的程序設(shè)計(jì)語言

B.

采用面向?qū)ο蟮目梢暬幊?/p>

C.

只能操作等小型數(shù)據(jù)庫

D.MicrosoftAccess

程序運(yùn)行時(shí)不能觸發(fā)文本框事件的是

2.,Change

??

用鼠標(biāo)雙擊文本框文本框中刪除一個(gè)字符

A.B.

文本框中輸入一個(gè)字符為文本框的屬性設(shè)置新值

C.D.Text

以下字符串表達(dá)式中執(zhí)行結(jié)果出錯(cuò)的是

3.

??

A."ab"&123B."12"+TrueC."ab"+123D."12"&True

若執(zhí)行語句則

4.“x=1/0”,

提示編譯錯(cuò)誤提示運(yùn)行時(shí)錯(cuò)誤

A.B.

提示邏輯錯(cuò)誤結(jié)果為

C.D.0

能正確匹配范圍內(nèi)整數(shù)的語句是

5.100~200case

A.case100to200B.caseis>99AndIs<201

C.case99<is<201D.case99to201

程序設(shè)計(jì)試題第頁共頁

07759#VisualBasic1(8)

條件型循環(huán)語句是指

6.

語句和語句

A.For…NextDo…Loop

和語句

B.While…WendDo…Loop

語句和語句

C.For…NextWhile…Wend

語句和語句

D.For…Next、While…WendDo…Loop

若有以下語句

7.:

Dima,bAsString,c(4),d()AsInteger

則正確使用函數(shù)的語句是

Array

A.a=Array(1,2,3,4)

B.c=Array(1,2,3,4)

C.d=Array(1,2,3,4)

D.b=Array("Jan","Feb","Mar","Apr")

與等效的語句是

8.CommonDialog1.ShowPrint

A.CommonDialog1.Action=2B.CommonDialog1.Action=3

C.CommonDialog1.Action=4D.CommonDialog1.Action=5

返回文件大小的函數(shù)是

9.

A.EOFB.LOFC.CloseD.FreeFile

方法中動作參數(shù)如果省略則默認(rèn)值為

10.Drag“”,

A.3B.2C.1D.0

二、判斷題:本大題共10小題,每小題1分,共10分。判斷下列各題,在答題紙相應(yīng)位置正確

的涂“A”,錯(cuò)誤的涂“B”。

專業(yè)版增加了工具

11.VisualBasic6.0BackOffice。

對象是類的抽象化是創(chuàng)建類的模板

12.,。

十六進(jìn)制長整型以引導(dǎo)以結(jié)尾

13.&H,&。

嚴(yán)格意義上說和函數(shù)也是輸出項(xiàng)因?yàn)樗鼈兛梢猿霈F(xiàn)在方法后的任意輸出

14.,TabSpc,Print

項(xiàng)位置

。

在中除了窗體和圖片框可以作為容器外還有框架控件

15.VisualBasic,,。

定時(shí)器只有一個(gè)事件

16.Timer。

根據(jù)數(shù)組下標(biāo)個(gè)數(shù)的不同可分為靜態(tài)數(shù)組和動態(tài)數(shù)組

17.,。

若將菜單項(xiàng)設(shè)置為分隔線則它沒有事件

18.,Click。

二進(jìn)制文件應(yīng)使用語句的方式打開

19.OpenRandom。

命令按鈕的屬性設(shè)置為時(shí)不響應(yīng)鍵的事件

20.CancelFalse,EscKeyDown。

程序設(shè)計(jì)試題第頁共頁

07759#VisualBasic2(8)

三、程序填空題:本大題共12小題,每空2分,共24分。

閱讀下列各程序,根據(jù)程序說明在每小題提供的若干可選答案中挑選一個(gè)正確答案,請

將其選出并將“答題紙”的相應(yīng)代碼涂黑。錯(cuò)涂、多涂或未涂均無分。

程序說明窗體上已建立命令按鈕標(biāo)簽和個(gè)文本框和

【】Command1、Label12(Text1

要實(shí)現(xiàn)在個(gè)文本框中輸入任意個(gè)自然數(shù)點(diǎn)擊時(shí)能夠計(jì)算他們的最大

Text2)。22,Command1

公約數(shù)和最小公倍數(shù)并把結(jié)果顯示在上

,Label1。

PrivateSubCommand1_Click()

Dimxx%,yy%,x%,y%,r%

xx=Val(Text1)

yy=Val(Text2)

Ifxx<yyThen

x=yy

y=xx

Else

(21)

y=yy

EndIf

r=xMody

DoWhiler<>(22)

x=y

(23)

r=(24)

Loop

最大公約數(shù)最小公倍數(shù)

Label1=":"&y&",:"&(25)

EndSub

供選擇的答案

【】

21.A.x=yyB.x=xxC.xx=xD.yy=x

22.A.-1B.0C.1D.True

23.A.yy=rB.yy=xC.y=xD.y=r

24.A.yyModxxB.xxModyyC.xModyD.yModx

25.A.xx?yy/yB.xx?y/yyC.x?yy/yD.x?y/yy

程序設(shè)計(jì)試題第頁共頁

07759#VisualBasic3(8)

程序說明窗體上已建立命令按鈕點(diǎn)擊它之后隨機(jī)生成一個(gè)行列的二

【】Command1,45

維數(shù)組元素取值為小于的兩位正整數(shù)在窗體上顯示數(shù)組元素所有元素之和最大值元

,30,、、

素及其對應(yīng)的行號和列號

。

OptionBase1

PrivateSubCommand1_Click()

Dima(4,5)AsInteger

Fori=1To4

Forj=1To5

a(i,j)=Int(Rnd?20+10)

Printa(i,j);

Nextj

Print

Nexti

row=1

col=1

Max=(26)

Fori=1To4

Forj=1To5

Sum=Sum+a(i,j)

If(27)>MaxThen

Max=a(i,j)

row=(28)

col=(29)

EndIf

Nextj

Nexti

元素和最大值行號列號

Print"="&Sum,"="&Max,"="&row&",="&col

EndSub

供選擇的答案

【】

26.A.a(0,0)B.a(4,5)C.a(i,j)D.a(row,col)

程序設(shè)計(jì)試題第頁共頁

07759#VisualBasic4(8)

27.A.a(i,j)B.a(i,j+1)C.a(i+1,j)D.a(i+1,j+1)

28.A.iB.jC.MaxD.Sum

29.A.iB.jC.MaxD.Sum

程序說明窗體上已建立命令按鈕圖片框文本框當(dāng)點(diǎn)擊

【】Command1、Picture1、Text1。

時(shí)生成一維數(shù)組該數(shù)組大小由文本框輸入并且各元素的值隨機(jī)產(chǎn)生取值范圍

Command1,,,,

在到之間把該一維數(shù)組中所有為負(fù)數(shù)的元素之和顯示在圖片框中

-5050,。

Functionsum%(b%())

Dimi%

Fori=LBound(b)To(30)

If(31)Then

sum=sum+b(i)

EndIf

Nexti

EndFunction

PrivateSubCommand1_Click()

Dima%(),s%,i%,n%

Randomize

n=Val(Text1)

ReDima(1Ton)

Fori=1Ton

a(i)=Int(Rnd?100)-50

Picture1.Printa(i);

Nexti

Picture1.Print

s=(32)

數(shù)組中的所有值為負(fù)數(shù)的元素之和為

Picture1.Print":";s

EndSub

供選擇的答案

【】

30.A.nB.Text1C.Len(b)D.UBound(b)

31.A.b(i)=0B.b(i)>0C.b(i)<0D.b(i)<>0

32.A.sum(b())B.sum(b(n))C.sum(a())D.sum(a(n))

程序設(shè)計(jì)試題第頁共頁

07759#VisualBasic5(8)

四、程序閱讀題:本大題共10小題,每小題2分,共20分。

閱讀下列各程序并回答問題,在每小題提供的若干可選答案中挑選一個(gè)正確答案,請將其

選出并將“答題紙”的相應(yīng)代碼涂黑。錯(cuò)涂、多涂或未涂均無分。

程序

【】

PrivateSubCommand1_Click()

DimchAsString?1

ch=Mid(Text1,Text2,1)

SelectCasech

Case"a"To"z","A"To"Z"

是字母字符

MsgBox(ch+"")

Case"0"To"9"

是數(shù)字字符

MsgBox(ch+"")

CaseElse

是其他字符

MsgBox(ch+"")

EndSelect

EndSub

問題與供選擇的答案

【】

程序開始運(yùn)行時(shí)在文本框中輸入四個(gè)字符在文本框中輸入一個(gè)數(shù)

33.,Text1“go2!”,Text2

字然后單擊命令按鈕對話框中顯示的內(nèi)容是

“3”,Command1,MsgBox

是數(shù)字字符是字母字符

A.2B.g

是其他字符是字母字符

C.!D.o

程序開始運(yùn)行時(shí)在文本框中輸入四個(gè)字符在文本框中輸入一個(gè)數(shù)

34.,Text1“go2!”,Text2

字然后單擊命令按鈕對話框中顯示的內(nèi)容是

“4”,Command1,MsgBox

是數(shù)字字符是其他字符

A.2B.!

是字母字符無法正常運(yùn)行提示類型不匹配

C.gD.,

程序開始運(yùn)行時(shí)在文本框中輸入四個(gè)字符在文本框中輸入一個(gè)數(shù)

35.,Text1“go2!”,Text2

字然后單擊命令按鈕對話框中顯示的內(nèi)容是

“5”,Command1,MsgBox

是數(shù)字字符是其他字符

A.2B.!

是其他字符無法正常運(yùn)行提示類型不匹配

C.D.,

如果把程序中的改成程序運(yùn)

36.“ch=Mid(Text1,Text2,1)”“ch=Mid(Text1,Text2,2)”,

行后在文本框中輸入四個(gè)字符在文本框中輸入一個(gè)數(shù)字然后

,Text1“go2!”,Text2“3”,

單擊命令按鈕對話框中顯示的內(nèi)容是

Command1,MsgBox

是數(shù)字字符是數(shù)字字符

A.2B.2!

是其他字符無法正常運(yùn)行提示類型不匹配

C.2!D.,

程序設(shè)計(jì)試題第頁共頁

07759#VisualBasic6(8)

程序

【】

PublicpAsString

PublicqAsString

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

SelectCaseButton

Case1

p=p&"m"

Case2

p=p&"n"

Case4

p="x"

EndSelect

SelectCaseShift

Case1

q="a"

Case2

q="b"

CaseElse

q=q+"c"

EndSelect

Text1.Text=p+q

EndSub

問題與供選擇的答案

【】

程序開始運(yùn)行時(shí)在窗體上按下鼠標(biāo)左鍵則中的值是

37.,,Text1Text

A.mcB.ncC.xcD.c

程序開始運(yùn)行時(shí)在窗體上按下鼠標(biāo)右鍵同時(shí)按住鍵盤上鍵則中的值是

38.,Shift,Text1Text

A.mbB.nbC.maD.na

程序開始運(yùn)行時(shí)若中的值是則可能的操作是

39.,Text1Text“xcc”,

按住鍵盤上鍵的同時(shí)按下鼠標(biāo)左鍵和鼠標(biāo)右鍵

A.Alt

按住鍵盤上鍵的同時(shí)再按下鼠標(biāo)左鍵和鼠標(biāo)右鍵

B.Ctrl

按住鍵盤上鍵的同時(shí)再按下鼠標(biāo)中間鍵

C.Ctrl

鼠標(biāo)中間鍵連續(xù)按了兩次

D.

程序設(shè)計(jì)試題第頁共頁

07759#VisualBasic7(8)

程序

【】

PrivateSubCommand1_Click()

Cls

ConstPI=3.14159263

Scale(0,30)-(120,0)

Fori=1To21Step10

Circle(75,5+i),10,QBColor(12),-PI?2/3,PI/4

Nexti

EndSub

問題與供選擇的答案

【】

程序開始運(yùn)行時(shí)單擊命令按鈕則窗體上繪制了

40.,Command1,

扇形圓橢圓帶有