输出结果_______。

以下两个VB程序段，其中变量m和n为正整数，下列说法不正确的是（   ）

程序1： If m<n Then t=m：m=n：n=t End If Do While m Mod n＜＞0 r=m Mod n m=n n=r Loop Text1.Text=Str（n）

程序： 2n2 Do Whife m 程序2 Do While m＜＞n Do While m＞n m=m-n Loop Do While n>m n=n-m Loop Loop Textl.Text=Str（n）

 

A．“程序1”和“程序2”中的代码实现相同的功能

B．若变量m和n的值为25，35，则“程序1”代码运行后文本框Text1显示“5”

C．“程序2”中的输出语句改为Textl.Text=Str(m)，会影响文本框Textl显示的内容

D．若变量m和n的值为11，7，则“程序2”代码运行后文本框Text1显示“1”

   在大小写英文字母组成的字符串中，当相邻两个字母的大小写不一致时，我们称为一次大小写变换。现编写“大小写字母变换次数统计”程序，实现如下功能：在文本框Text1中输入英文字母构成的字符串，单击“统计”按钮Command1，程序统计该字符串的大小写变换次数，并将结果显示在标签Label1中。程序运行界面如下图所示。

（1）设计程序界面时，要清空文本框Text1中的显示内容，应修改文本框的________属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String, ch As String, i As Integer, res As Integer
Dim f1 As Boolean   'f1表示前一个字母的大小写状态
Dim f2 As Boolean   'f2表示当前字母的大小写状态
s =①_________
res = 0: ch = Mid(s, 1, 1)
f1 = ch >= "A" And ch <= "Z"
For i = 2 To Len(s)
ch = Mid(s, i, 1)
f2 = ch >= "A" And ch <= "Z"
If ②________ Then res = res + 1
f1 = f2
Next i
Label2.Caption = "大小写变换次数为" & ③_______ & "次"
End Sub
（3）运行程序，在文本框Text1中输入“AmericanRAILWAY”，单击“统计”按钮，则显示的大小写变换次数是_______次。

编写VB程序，实现如下功能：单击“计算”按钮，在列表框List1中产生10个1，99随机数，文本框Text1显示相邻两个数字之间相差最大的差值。运行界面如图所示。

（1）窗体上，“计算”按钮的对象名是_____。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private sub cmd1_click( )
Dim b(1 to 10) as integer
Dim I as integer,max as integer ,a as integer, c as integer
Max=0
For i=1 to 10
Randomize
A=int(rnd*99)+1
_______________________
List1.additem  str(a)
Next i
For  i=2 to 10
C=________________
If c>max then __________________
Next I
____________________________
End sub

编“数字按序组合输出十进制数”程序，实现如下功能：在文本框 Text1 中输入包含数字的字符串，单击“生成”按钮 Command1,程序将输入的字符串中所有数字按序组合成一个十进制数，最后将该十进制数在文本框 Text2 中显示。程序运行界面如下图所示。
(1) 要使程序运行时，窗体 Form1 标题显示“数字按序组合输出十进制数”，可在 Form_Load 事件过程屮添加语句_________(单选，填字母:

A．Form1 = "数字按序组合输出十进制数" /

B．Forml.Text="数字按序组合输出十进制数"/

C．Form1.Caption= "数字按序组合输出十进制数"）。

（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click() Dim s As String , ch As String Dim x As Integer , i As Integer s = Text1.Text
x = 0 i = 1
For i = 1 To Len(s)
①_____________
If ch >= "0" And ch <= "9" Then
②_________
End If
Next i
Text2.Text = Str(x)
End Sub
（3）若文本框 Text1 中输人的内容为“My3day65New”，单击“生成”按钮后，则文本框 Text2 中显示的内容是_____。