单项选择题

有如下程序：Private Sub Form_Click()　　Dim i As Integer，n As Integer　　For i=1 To 20　　　　i=i+4　　　　n=n+i　　　　If i＞10 Then Exit For　　Next　　Print nEnd Sub程序运行后，单击窗体，则输出结果是______。

A.14
B.15
C.29
D.30

<上一题目录下一题>

热门试题

单项选择题

设有如下程序：Private Sub Form_Click() num=InputBox( 请输入一个实数 ) p=InStr(num， . ) If p＞0 Then Print Mid(num，p+1) Else Print END End IfEnd Sub运行程序，单击窗体，根据提示输入一个数值。如果输入的不是实数，则程序输出 END ；否则______。

A.用字符方式输出该实数
B.输出该实数的整数部分
C.输出该实数的小数部分
D.去掉实数中的小数点，保留所有数码输出

单项选择题

在窗体上画一个文本框，名称为Text1，然后编写如下程序：Private Sub Form_Load() Show Text1.Text= Text1.SetFocusEnd SubPrivate Sub Form_Click() Dim a As String，s As String a=Text1.Text s= For k=1 To Len(a) s=UCase(Mid(a，k，1))+s Next k Text1.Text=sEnd Sub程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容______。

A.与原字符串相同
B.与原字符串中字符顺序相同，但所有字母均转换为大写
C.为原字符串的逆序字符串，且所有字母转换为大写
D.为原字符串的逆序字符串

相关试题