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
首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
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
admin
2020-07-22
75
问题
设有如下程序:
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://kaotiyun.com/show/sCHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有Command1、Command2两个命令按钮。现编写以下程序:OptionBase0DimPrivateSubCommand2_Click()a()AsInteger,mAsIntegerm=InputBox(“请输入一个
阅读程序:OptionBase1PrivateSubForm_Click()DimArr(3,3)AsIntegerFori=1To3Fori=1To3Ifj=iOrj=3-i+1ThenArr(i,j)=1Else
下列不包含滚动条的控件是
下面关于菜单的叙述中正确的是
在窗体上画一个组合框,一个命令按钮和一个文本框,其名称分别为Combo1,Command1和Text1,然后编写如下事件过程:PrivateSubForm_Load()Combo1.AddItem"AAAAA":Combo1.AddItem"BBB
在窗体上画一个名称为Commandl的命令按钮,编写如下事件过程:PrivateSubCommandl_Click()n=0Fori=0To10X=2*i一1IfXMod3=0Thenn=n+1NextiPrint
下面关于命令按钮的叙述中错误的是
在设计阶段,如果双击窗体上的一个文本框控件,则在代码窗口中显示该控件的事件过程所对应的事件是
以下选项中,不合法的VisualBasic的变量名是
设x是整型变量,与函数IIf(x>0,-x,x)有相同结果的代数式是( )。
随机试题
噻嗪类利尿药没有下列哪一项作用
下列选项中,关于个人劳动力供给曲线的描述,正确的是()。
在CIF下,卖方的主要义务。
A.胸闷、气短B.声音嘶哑C.腹泻D.骨痛E.杵状指肺癌局部扩展引起的症状是
患者,男,65岁。肝区疼痛数月,近来疼痛加重,到医院就诊后建议行腹部CT平扫+增强检查,报告显示肝右叶巨块型肝癌,综合评价后考虑行介入治疗。下列关于肝癌介入治疗,错误的是
对病毒生物学性状的描述.正确的是
输入动物、动物产品、植物种子、种苗及其他繁殖材料的,必须事先提出申请,办理( )手续。
将选项中的图形填人下面空格中,最符合格子中另三个图形的一致性规律的是()。
Theyoungmanwantstoknowifthereareany______forthecourseinModemGuitar.
Pleasedon’tcomeheretoday.Iwouldratheryou____________tomorrow.
最新回复
(
0
)