2. 计算机
  3. 设有如下程序： Private Sub Form_Click() num=InputBox("请输入一个实数") P=InStr(num，"．") If p＞0 Then Print Mid(aura，p+1) Else Print"END" End If

设有如下程序： Private Sub Form_Click() num=InputBox("请输入一个实数") P=InStr(num，"．") If p＞0 Then Print Mid(aura，p+1) Else Print"END" End If

admin2020-04-18  17
问题 设有如下程序：
Private Sub Form_Click()
num=InputBox("请输入一个实数")
P=InStr(num，"．")
If p＞0 Then
Print Mid(aura，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/wOTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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