设有如下程序: Private Sub Form_Click() Dim m As Single, n As String Dim flag As Integer m = InputBox("请输入一个单精度数") n =

admin2015-10-23  31

问题 设有如下程序:
Private Sub Form_Click()
    Dim m As Single, n As String
    Dim flag As Integer
    m = InputBox("请输入一个单精度数")
    n = Str(m)
    flag = InStr(n, ".")
    If flag Then
        Print Mid(n, flag)
    End If
End Sub
以上程序的功能是

选项 A、将m转换成字符串输出
B、输出m的整数部分
C、输出m的小数部分
D、将m的小数点删除后转换成字符串输出

答案C

解析 InputBox是Visual Basic函数,功能是弹出一个对话框,在其中显示提示,等待用户输入文字并按下按钮,然后返回用户输入的文字,将返回用户输入的数字存储在m中,str(m)函数将数字m转换为字符串,并存储在n中。函数InStr(n,".")返回字符"."在另一个字符串n中第一次出现的位置,若n中没有要搜索的字符".",则返回结果为0。如果flag不为0,则执行Mid(n,flag)语句,输出n的"."以后的部分,即输出m的小数部分。
转载请注明原文地址:https://kaotiyun.com/show/XHLp777K
0

最新回复(0)