下面程序运行时，若输入“Visual Basic Prograrmming”，则在窗体上输出的是（）。

Click（） Dim cout(25)As Integer，ch As String ch=Ucase(Int,utBox("请输入字母字符串")) For k=1 To i en(ch)． n=ASC(Mid(ch，k，1))-Asc("A") If n>=0 Then count(n)=count(n)+1 End If Next k m=count(0) For k=1 To 25 If m

A.0

B.1

C.2

D.3

A．/myprog!

B．/myprog

C．/myprog@

D．/myprog&

程序PROG1．G的功能是：寻找并输出11至999之间的数m，它满足m、m2和m3均为回文数。所谓回文数是指其各位数字左右对称的整数，例如l21，676，94249等。满足上述条件的数如m=11，m2=121，m3=1331皆为回文数。请考生编制函数int JsValue(long m)实现此功能，如果是回文数，则函数返回1，反之则返回0。最后把结果输出到文件out．dat中。 注意：部分源程序存放在test．c文件中。请勿改动主函数main。

下面出现的“考生文件夹”均为c:\wexam\25160001。

在考生文件夹中有工程文件sjt5.vbp及其窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)但不能修改其他部分。存盘时不得改变文件名和文件夹。

本题描述如下：

在名称为Form1的窗体上有一个文本框，名称为Text1，MuitiLine属性为True，ScrollBars属性为2，两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读入数据”和“排序显示保存”，如图4-6所示。程序运行后，如果单击“读入数据”按钮，则读入“in.txt”文件中的100个整数，放入一个数组中(数组下界为1)：如果单击“排序显示保存”按钮，则对这100个整数按从小到大进行排序，把排序后的全部数据在文本框Text1中显示出来，然后存入考生文件夹中的文件“result.txt”中(在程序中的标准模块prog.bas过程可以把指定个数的数组元素存入result.txt文件)。

注意：文件必须存放在考生文件夹下，窗体文件名为sjt5.frm，工程文件名为sjt5.vbp，排序结果存入 result.txt文件，否则没有成绩。

窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Command1 Click（ ） Dim arr(5)As Integer ． For k=1 To 5 art(k)=k Next k prog art（ ） For k=1 T0 5 Print art(k)； Next k End Sub Sub prog(a（ ）As Integer) n=UBound(a) For i=n To 2 step-1 if a(j)<a(j十1)Then t=a(j)：a(1)=a(j+1)；a(j+1)=t End If Next j Next i End Sub 程序运行时，单击命令按钮后显示的是（ ）。

A.12345

B.54321

C.01234

D.43210

窗体上有一个名为Command1的命令按钮，并有下面的程序：

Private Sub Command1 Click（ ）

Dim arr(5)As Integer ．

For k=1 To 5

art(k)=k

Next k

prog art（ ）

For k=1 T0 5

Print art(k)；

Next k

End Sub

Sub prog(a（ ）As Integer)

n=UBound(a)

For i=n To 2 step-1

if a(j)<a(j十1)Then

t=a(j)：a(1)=a(j+1)；a(j+1)=t

End If

Next j

Next i

End Sub

程序运行时，单击命令按钮后显示的是（ ）。

A.12345

B.54321

C.01234

D.43210

（ 34 ）窗体上有一个名为 Command1 的命令按钮，并有下面的程序：

Private Sub Comand1_Click （）

Dim arr （ 5 ） As Integer

For k=1 To 5

arr （ k ） =k

Next k

prog arr （）

For k=1 To 5

Print arr （ k ）

Next k

End Sub

Sub prog （ a （） As Integer ）

n=U b ound （ a ）

For i=n To 2 step -1

For j=1 To n-1

if a （ j ） <a （ j+1 ） Then

t=a （ j ） :a （ j ） =a （ j+1 ） :a （ j+1 ） =t

End If

Next j

Next i

End Sub

程序运行时，单击命令按钮后显示的是

A ） 12345

B ） 54321

C ） 01234

D ） 43210

窗体上有一个名为Commandl的命令按钮，并有下面的程序：

Private Sub Command1_Click()

Dim art(5)As Integer

For k=1 TO 5

arr(k)=k

Next k

prog art()

For k=1 To 5

Print alT(k)；

Next k

End sub

Sub prog(a()As Integer)

n=UBound(a)

For i=n To 2 step-1

For j=1 To n-1

if a(j)<a(j+1)Then

t=a(j)：a(j)=a(j+1)：a(j+1)=t

End If

Next j

Next i

End sub

程序运行时，单击命令按钮后显示的是

A．1 2 3 4 5

B．5 4 3 2 1

C．0 1 2 3 4

D．4 3 2 1 0

窗体上有一个名为Commandl的命令按钮，并有下面的程序：

Private Sub Command1_Click()

Dim art(5)As Integer

For k=1 TO 5

arr(k)=k

Next k

prog art()

For k=1 To 5

Print alT(k)；

Next k

End sub

Sub prog(a()As Integer)

n=UBound(a)

For i=n To 2 step-1

For j=1 To n-1

if a(j)<a(j+1)Then

t=a(j)：a(j)=a(j+1)：a(j+1)=t

End If

Next j

Next i

End sub

程序运行时，单击命令按钮后显示的是

A．1 2 3 4 5

B．5 4 3 2 1

C．0 1 2 3 4

D．4 3 2 1 0

设VisualFoxPro的程序中有PROG1.PRG、PROG2.PRG、PROG3.PRG3层程序依次嵌套，下面的叙述中，正确的是______。

A．在PROG1.PRG中用!RUNPROG2.PRG语句可以调用PROG2.PRG子程序

B．在PROG2.PRG中用RUNPROG3.PRG语句可以调用PROG3.PRG子程序

C．在PROG3.PRG中用RETURN语句可以返回PROG1.PRG主程序

D．在PROG3.PRG中用RETURNTOMASTER语句可返回PROG1.PRG主程序