以下代码片段运行后，在console面板显示的结果是（） wx.onCompassChange（function （res) { console.log（res.direction) })

单击命令按钮时，下列程序代码的执行结果为( )。 Private Function PickMid(xStr As String)As Sting Dim tempStr As String Dim strLen As Integer TempStr=" " StrLen=Len(xStr) i=1 Do While i＜=strLen/2 tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr,strLen-i+1,1) i=i+1 Loop PickMid=tempStr End Function Private Sub Command1_Click() Dim FirstStr As String FirstStr="abcdef" Print PickMid(FirstStr) End Sub

A．abcdef

B．afbecd

C．fedcba

D．defabc

阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在对应栏内。

【说明】

本应用程序是一个小写数字转换成大写格式的转换器，其运行窗口如图5所示。

窗口中有两个标签(lblNumber和lblChinese)、两个文本框(txtNnmber和txtChinese)和一个命令按钮(cmdChange)。当单击按钮cmdChange时，将文本框txtNumber中数字转换成中文大写，并显示在文本框txtChinese中。例如，在文本框txtNumber输入0076845，单击cmdChange按钮，将在文本框txtChinese中显示“柒万陆仟捌佰肆拾伍”。

程序中调用的函数CChinse(Strdigit As String)的功能是先删除字符串的所有前导0，再调用函数Change(Strdigit As String)，将数字字符串Strdigit转换成中文大写格式。

为了防止用户在文本框txtNumber输入非数字形式的字符，程序将以空字符代替所输入的非数字有形字符。

【程序】

Private Function Transfer(Strdigit As String)As String

′完成小写向大写的转换，这段代码省略

End Function

Private Function CChinese(Strdigit As String)As String

Dim intLen,intCounter As Integer

intLen = Len (Strdigit)

If intLen＞0 Then

intcounter = 0

Do '过滤数字串Strdigit的前导0

intcounter = intcounter + 1

Loop Until Mid(Strdigit,(1))

intLen =(2)

Strdigit =(3) (Strdigit,intLen)

CChinese = Transfer(Strdigit)

End If

End Function

Private Sub cmdChange_Click( )

txtChinese.Text=CChinese((4)) '调用Cchinese函数

End Sub

Private Sub txtNumber_KeyPress(KeyAscii As Integer)

Select Case KeyAscii '根据输入字符的ASCII码的值进行判断

Case KeyAscii＜32 '保留输入的控制字符

Case 48 To 57 '保留输入的数字字符

Case Else '其他情况以空字符代替

(5)=0

End Select

End Sub

单击命令按钮时，下列程序代码的执行结果为______。 Private Function FirProc (x As Integer，y As Integer，z As Integer) FirProc=2*x+y+3*z End Function Private Function SecProc(x As Integer，y As Integer，z As Integer) SecProc=FirProc(z，x，y)+x End Function Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim C As Integer a=2 b = 3 c = 4 Print SecProc(c，b，A) End Sub

A． 21

B．19

C．17

D．34

●试题八

阅读以下说明及Visual Basic部分程序代码，将应填入(n)处的字句写在答题纸的对应栏内。

【说明】

本程序是一个可进行数制转换的应用程序，图1所示是其运行界面。txtDec为TextBox控件名，Lblkes为转换结果labe1控件名。

【程序代码】

Option Explicit

Private Function convert(pintDec As Intege，pintS As Integer)As String

Dim intCt As Integer，intR As Integer

Dim strCov As String，strRes As String

intR=pintDec Mod pintS

Do While (1)

strCov=strCov ＆ Str(intR)

(2)

intR=pintDec Mod pintS

Loop

For intCt= (3) To 1 Step-1

strRes=strRes ＆ Mid(strCov，intCt，1)

Next intCt

convert=strRes

End Function

Private Sub cmdQuit_Click()′退出

Unload Me

End Sub

Private Sub optBin_Click()′二进制

lblRes．Caption="转换结果："＆ (4)

End Sub

Private Sub optHex_Click()′十六进制

lblRes．Caption="转换结果："＆ (5)

End Sub

Private Sub optOct_Click()′八进制

lblRes．Caption="转换结果："＆Oct(Val(txtDe

C．Text))

End Sub

单击命令按钮时，下列程序代码的执行结果为 ( ) Function FirProc(x As Integer, y As Integer, z As Integer) FirProc=2*x+y+3*z End Function Function SecProc(x As Integer, y As Integer, z As Integer) SecProc＝FirProc(z, x, y)+x End Function Private Sub Commandl Click() Dim a As Integer, b As Integer, c As Integer a＝2 :b=3 :c=4 Print SecProc(c, b,A)End Sub

A．21

B．19

C．17

D．34

已知在ASCⅡ代码中，字母A的序号为65，以下程序的输出结果是______。 #include＜stdio.h＞ main() { char c1='A',c2='Y'; printf("%d,%d\n",c1,c2); }

A．65，90

B．因输出格式不合法，输出错误信息

C．A，Y

D．65，89

在窗体中有一个命令按钮Commandl，编写事件代码如下：Private Sub Commandl Click（ ） Dim S As Integer s=p(1)q+p(2)q+p(3)+p(4) debu9．Print S End Sub Public Function P(N As Integer) Dim Sum As IntegerSum==0 For i=1 To N Sum=Sum+1 Next i P=Sum End Function 打开窗体运行后，单击命令按钮，输出的结果是（ ）。

A.15

B.20

C.25

D.35

请编制程序PROG1.ASM，其功能是：对一个由可打印ASCII字符(ASCII码20H-7FH)组成的字符串可采用下列方法进行压缩：从串首开始向后扫描，如某字符单独出现则该字符不变，如某字符连续出现n次，则该字符用ESC(1BH)，n，〈原字符〉三个字节来代替(假定n不超过255)。

设内存中从SOURCE开始有一用上述方法压缩的字符串，其以00H结束，解压后长度不超过 100。试编程对其解压缩，结果存入RESULT开始的内存单元。

例如：

原串：41H，1BH，06H，43H，61H，00H

解压后：41H，43H，43H，43H，43H，43H，43H，61H，00H("ACCCCCCa")

部分程序已在PROG1.ASM中给出，请填空BEGIN和END之间已给出的源程序使其完整(空白已用横线标出，每行空白一般只需一条指令，但功能相当的多条指令亦可)或删除BEGIN和 END之间原有的代码并自行编写程序片段来完成要求的功能。

原始数据由过程LOAD从文件INPUT1.DAT中读入SOURCE开始的内存单元中，结果要求从 RESULT开始存放，由过程SAVE保存到文件OUTPUT1.DAT中。

对程序必须进行汇编，并与IO.OBI链接产生PROG1.EXE执行文件，最终运行程序产生结果 (无结果或结果不正确者均不得分)。

PROG1.ASM文件内容如下：

EXTRN LOAD：FAR，SAVE：FAR

N EQU 100

ESC_CODE EQU 27

STAC SEGMENT STACK

DB 128DUP(?)

STAC ENDS

DATA SEGMENT

SOURCE DB N DUP(0)

RESULT DB N DUP(0)

NAME0 DB 'INPUT1.DAT'，0

NAME1 DB 'OUTPUT1.DAT'，0

DATA ENDS

CODE SEGMENT

ASSUME CS：CODE，DS：DATA，SS:STAC

START PROC FAR

PUSH DS

XOR AX，AX

PUSH AX

MOV AX，DATA

MOV DS，AX

MOV ES，AX ；置附加段寄存器

LEA DX，SOURCE ；数据区起始地址

LEA SI，NAME0 ；原始数据文件名

MOV CX，N ；字节数

CALL LOAD ；从'input1.DAT'中读取数据

；* * * * BEGIN * * * *

LEA SI，SOURCE

LEA DI，RESULT

CLD

LO: LODSB

CMP AL，0

JE QUIT

CMP AL，ESC_CODE

_____ EXPAND

_____ _____

JMP LO

EXPAND： _____ _____ ；解压

XOR CX，CX

_____ _____

在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：Private Sub Commandl Click（ ） MsgBox f(24，18)End Sub Public Function f(m As Integer，n As Integer)As"integerDo While m<>n Do While m>n m=m-n Loop Do While m<n n=n-m Loop Loop f=m End Function 窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。

A.2

B.4

C.6

D.8

在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：

MsgBox f(24，18)End Sub

Public Function f(m As Integer，n As Integer)As"integerDo While m<>n

Do While m>n m=m-n

Loop

Do While m<n

n=n-m

Loop

Loop

f=m

End

Function

窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。

A.2

B.4

C.6

D.8