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     

admin2020-02-27  29

问题 设有如下程序:
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://jikaoti.com/ti/VBx0FFFM
0

最新回复(0)