单项选择题

设有如下程序：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.为原字符串的逆序字符串
单项选择题
窗体上有一个名称为Command1的命令按钮，事件过程如下：Private Sub Command1_Click() Dim arr_x(5,5)As Integer For i=1 To 3 For j=2 To 4 arr_x(i,j)=i*j Next j Next i Print arr_x(2,1)； arr_x(3,2)； arr_x(4,3)End Sub运行程序，并单击命令按钮，窗体上显示的内容为______。
A.0 6 0
B.2 6 0
C.0 6 12
D.2 6 12
相关试题