0 Then 　　　　Print Mid(num， p＋1) 　　Else 　　　　" />设有如下程序： Private Sub Form_Click() 　　num＝InputBox("请输入一个实数") 　　p＝InStr(num， ".") 　　If p>0 Then 　　　　Print Mid(num， p＋1) 　　Else 　　　　
  2. 计算机
  3. 0 Then 　　　　Print Mid(num， p＋1) 　　Else 　　　　">设有如下程序： Private Sub Form_Click() 　　num＝InputBox("请输入一个实数") 　　p＝InStr(num， ".") 　　If p>0 Then 　　　　Print Mid(num， p＋1) 　　Else 　　　　

设有如下程序： Private Sub Form_Click() 　　num＝InputBox("请输入一个实数") 　　p＝InStr(num， ".") 　　If p>0 Then 　　　　Print Mid(num， p＋1) 　　Else 　　　　

admin2015-10-23  39
问题 设有如下程序：
Private Sub Form_Click()
　　num＝InputBox("请输入一个实数")
　　p＝InStr(num， ".")
　　If p>0 Then
　　　　Print Mid(num， p＋1)
　　Else
　　　　Print "END"
　　End If
End Sub
运行程序，单击窗体，根据提示输入一个数值。如果输入的不是实数，则程序输出"END"；否则(　　)。
选项 A、用字符方式输出该实数
B、输出该实数的整数部分
C、输出该实数的小数部分
D、去掉实数中的小数点，保留所有数码输出
答案C
解析 InStr函数查找小数点在输入的实数中的位置，如果找不到将返回0。Mid函数一般有3个参数，从第2个参数指定的位置开始，在第1个参数字符串中截取第3个参数指定长度的字符，第3个参数可以省略，这时就一直截取到字符串尾部。因此程序的意思就是如果输入的是实数(p>0即说明找到了小数点，是实数)就输入该实数的小数部分，否则输出"END"。因此选项C正确。
转载请注明原文地址:https://kaotiyun.com/show/WDLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)