0 Then Print Mid(num，p+1) Else " />设有如下程序： Private Sub Form．Click() num=InputBox("请输入一个实数")：p=InStr(num，"") Ifp>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，"") Ifp>0 Then Print Mid(num，p+1) Else

设有如下程序： Private Sub Form．Click() num=InputBox("请输入一个实数")：p=InStr(num，"") Ifp>0 Then Print Mid(num，p+1) Else

admin2019-04-29  28
问题 设有如下程序：
    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
解析 字符串匹配函数Instr用于查找第二个参数在第一个参数中第一次出现的位置，若未找到返回O；Mid(字符串，起始位置[，个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，若不指定个数将返回字符串中从参数“起始位置”到字符串尾端的所有字符。本题实际就是先找到小数点的位置，然后输出小数点后面的部分，即小数部分。
转载请注明原文地址:https://kaotiyun.com/show/w9Up777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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