单项选择题

设有如下程序：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．去掉实数中的小数点，保留所有数码输出
<上一题 目录 下一题>
热门 试题

单项选择题
窗体上有1个名称为Command1的命令按钮，事件过程如下：Private Sub Command1_Click() m＝－3.6 If Sgn(m)Then n＝Int(m) Else n＝Abs(m) End If Print nEnd Sub运行程序，并单击命令按钮，窗体上显示的内容为( )。
A．－4
B．－3
C．3
D．3.6
单项选择题
设有如下事件过程：Private Sub Command1_Click() Dim a a＝Array(3， 5， 6， 3， 2， 6， 5， 3， 5， 4， 3， 9， 4， 5， 6， 3， 5) x＝0 n＝UBound(a) For i＝0 To n m＝0 For j＝0 To n If a(i)＝a(j)Then m＝m＋1 End If Next j If m>x Then x＝m： b＝a(i) Next i Print bEnd Sub运行程序，输出是( )。
A．2
B．3
C．5
D．9
相关试题