VB語(yǔ)言程序設(shè)計(jì)在線作業(yè)

VB語(yǔ)言程序設(shè)計(jì)一在線作業(yè)_4

交卷時(shí)間：2016-09-1916:18:56

一、單選題

1

(5分)

在窗體上畫(huà)一個(gè)命令按鈕，然后編寫(xiě)如下事件過(guò)程：

PrivateSubCommand1_Click()

Fori=1To4

x=4

Forj=1To3

x=3

Fork=1To2

x=x+6

Nextk

Nextj

Nexti

Printx

EndSub

程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是()o

□

A.15

□

B.7

□

C.538

□

D.157

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

2

（5分）

以下能判斷是否到達(dá)文件尾的函數(shù)是()O

a

A.Loc

□

B.BOF

□

C.LOF

□

D.EOF

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

3

（5分）

下面的數(shù)1.21576654590569E+19寫(xiě)成普通的十進(jìn)制數(shù)是（）。

□

A.12157665459056900000

□

B.121576654590569000

□

C.1215766545905690000

□

D.12157665459056900

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

4

（5分）

在窗體上畫(huà)兩個(gè)文本框（Name屬性分別為T(mén)extl和Text2）和一個(gè)命令按鈕（Name屬性為

CommandD,然后編寫(xiě)如下兩個(gè)事件過(guò)程：

PrivateSubCommand1_Click（）

a=Text1.Text+Text2.Text

Printa

EndSub

PrivateSubForm_Load()

Textl.Text=""

Text2.Text=""

EndSub

程序運(yùn)行后，在Textl和Text2中分別輸入123和321,然后單擊命令按鈕，則輸出結(jié)果為（）。

□

A.132231

□

B.321123

□

C.444

□

D.123321

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

（5分）

刪除列表框中指定的項(xiàng)目所使用的方法為()o

□

A.Remove

□

B.Moveitem

□

C.Move

□

D.Removeitem

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

6

（5分）

以下語(yǔ)句的輸出結(jié)果是（）O（△表示空格）

a=27

b=65

Printa;b

□

A.A27AA65

□

B.27AA65

□

C.27A65

□

D.△27A65

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

7

（5分）

為了裝入一個(gè)VB應(yīng)用程序，應(yīng)當(dāng)()。

□

A.只裝入窗體文件(.frm)

□

B.只裝入工程文件(.vbp)

□

C.分別裝入工程文件和標(biāo)準(zhǔn)模塊文件(.bas)

□

分別裝入工程文件、窗體文件和標(biāo)準(zhǔn)模塊文件

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

8

(5分)

下列代碼的運(yùn)行結(jié)果是OO

lf3-2Then

a=10

Elself(10/2)=6Then

a=20

Else

a=30

EndIf

Printa

□

A.30

□

B.10

□

C.20

□

D.不確定

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

9

（5分）

下面的數(shù)2.65358979335278E-06寫(xiě)成普通的十進(jìn)制數(shù)是（）。

1

A.0.00000265358979335278

□

B.0.0000265358979335278

□

C.0.000000265358979335278

□

D.0.000265358979335278

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

10

（5分）

當(dāng)一個(gè)工程含有多個(gè)窗體時(shí)，其中的啟動(dòng)窗體是（）。

□

A.第一個(gè)添加的窗體

□

B.在“工程屬性"對(duì)話框中指定的窗體

□

C.最后一個(gè)添加的窗體

□

D.啟動(dòng)VisualBasic時(shí)建立的窗體

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

11

（5分）

假定有如下的窗體事件過(guò)程:

PrivateSubCommand1_Click()

a="VisualBasic程序設(shè)計(jì)”

b=Left(a,6)

c=Mid(a,8)

MsgBoxb,34,c

EndSub

程序運(yùn)行后，單擊命令按鈕，則在彈出的消息框的標(biāo)題欄中顯示的信息是OO

□

A.Basic

□

B.34

□

C.Visual

□

D.Basic程序設(shè)計(jì)

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

12

（5分）

下列操作中不能向工程中添加窗體的是（）。

□

A.右擊窗體，在彈出的菜單中選擇“添加窗體”命令

□

B.單擊工具欄上的“添加窗體"按鈕

□

C.執(zhí)行"工程"菜單中的"添加窗體"命令

D.右擊工程資源管理器，在彈出的菜單中選擇"添加"命令，然后在下一級(jí)菜單中選擇"添加窗

□

體"命令

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

13

（5分）

下列程序的執(zhí)行結(jié)果為（）。

x=15

Ifx>0Thena=1

Ifx>10Thena=2

Ifx>20Thena=3

Ifx>30Thena=4

Printa

□

A.

□

B.2

□

C.3

□

D.4

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

14

（5分）

執(zhí)行語(yǔ)句‘Print#1,123;“hell?！薄焙?，相應(yīng)的順序文件內(nèi)被寫(xiě)入的內(nèi)容是（）。

□

A.123hello

a

B.123"hello"

□

C.123,hello

a

D."123hello"

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

15

(5分)

執(zhí)行下面的程序段后，X的值為()O

x=5

Fori=1To20Step2

x=x+i5

Nexti

□

A.24

□

B.25

□

C.21

□

D.20

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

16

（5分）

不在VB啟動(dòng)時(shí)的常用控件工具箱中的控件是()o

□

A.OLE

□

B.CommonDialog

□

C.Shape

□

D.Timer

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

17

（5分）

VisualBasic集成環(huán)境的主窗口中不包括（）。

a

A.工具欄

□

B.狀態(tài)欄

□

C.標(biāo)題欄

□

D.菜單欄

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

18

(5分)

當(dāng)拖動(dòng)滾動(dòng)條中的滾動(dòng)塊時(shí)，將觸發(fā)滾動(dòng)條的事件是()O

□

A.SetFocus

□

B.Change

□

C.Scroll

0

D.Move

糾錯(cuò)

得分：5

知識(shí)點(diǎn)：VB語(yǔ)言程序設(shè)計(jì)

展開(kāi)解析

19

(5分)

閱讀下面的程序：

PrivateSubForm_Click()

Dimm,nAsInteger

m=lnputBox("請(qǐng)輸入M的值”)

m=Val(m)

ml=m

n=InputBox。'請(qǐng)輸入N的值”)

n=Val(n)

n1=n

DoWhilen<>0

remin=mModn

m=n

n=remin

Loop

Printml,n1,m

EndSub

程序運(yùn)行后，單擊窗體，在輸入對(duì)話框中分別輸入16和24,在程序在窗體上的輸出結(jié)果為()o