0 Then Print Mid(num,p+1) Els" />设有如下程序: Private Sub Form_Click() num=InputBox("请输入一个实数"):p=InStr(num,".") Ifp>0 Then Print Mid(num,p+1) Els

设有如下程序: Private Sub Form_Click() num=InputBox("请输入一个实数"):p=InStr(num,".") Ifp>0 Then Print Mid(num,p+1) Els

admin2019-06-11  37

问题 设有如下程序:
    Private Sub Form_Click()
    num=InputBox("请输入一个实数"):p=InStr(num,".")
    Ifp>0 Then
    Print Mid(num,p+1)
    Else
    Print"END"
    End If
    End Sub
    运行程序单击窗体,根据提示输入一个数值。如果不是输入实数,则输出“END”;否则

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

答案C

解析 字符串匹配函数lnstr用于查找第二个参数在第一个参数中第一次出现的位置,若未找到返回0:Mid(字符串,起始位置[,个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串,若不指定个数将返回字符串中从参数“起始位置”到字符串尾端的所有字符。本题实际就是先找到小数点的位置,然后输出小数点后面的部分,即小数部分。
转载请注明原文地址:https://kaotiyun.com/show/43Up777K
0

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