首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下程序: Private Sub Form_Click() num=InputBox("请输入一个实数"):p=InStr(num,".") Ifp>0 Then Print Mid(num,P+1) Else Print"END"
设有如下程序: Private Sub Form_Click() num=InputBox("请输入一个实数"):p=InStr(num,".") Ifp>0 Then Print Mid(num,P+1) Else Print"END"
admin
2017-06-21
21
问题
设有如下程序:
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用于查找第二个参数在第一个参数中第一次出现的位置,若未找到返回0;Mid(字符串,起始位置[,个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串,若不指定个数将返回字符串中从参数“起始位置”到字符串尾端的所有字符。本题实际就是先找到小数点的位置,然后输出小数点后面的部分,即小数部分。
转载请注明原文地址:https://kaotiyun.com/show/sPGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画两个文本框Text1和Text2,一个命令按钮Command1,请阅读以下程序段:PrivateSubCommand1_Click()x=0DoUntilx>=50x=(x+4)*(x+3)n=n+1
以下程序的功能是:求x的y次方。根据题意,请完善下列程序。PrivateFunctionfunl(xAsDouble,yAsInteger)AsDoubleDimiAsIntegerDimzAsDoublez=【】
在窗体上画一个文本框(其Name属性为Text1),编写如下事件过程,运行结果是______。PrivateSubForm_Load() Text1.Text="" Text1.SetFocus Fori=1
以下关于图片框控件的说法中,错误的是
下列程序的功能是:弹出一个对话框询问用户是否输出,如果是,则输出;否则结束。请填空。SubPrintOut()DimaAsIntegera=MsgBox("输出结果?",vblnformation+vbYesNo,"提
以下声明语句中错误的是______。
设已打开5个文件,文件号分5U为1,2,3,4,5。要关闭所有文件,以下语句正确的是
设有如下通用过程:PublicSubFun(a(),ByValxAsInteger)Fori=1To5x=x+a(i)NextEndSub在窗体上画一个名称为Text
建立打开文件、保存文件、颜色、字体、打印对话框所使用的方法分别为【】、【】、ShowColor、ShowFont和ShowPrinter。
在窗体上画一个名称为CommonDialogl的通用对话框,一个名称为Commandl的命令按钮。然后编写如下事件过程:PrivateCommand1_Click()CommonDialogl.FileName=""C
随机试题
男性,8岁。于8月19日开始发热,头痛,当时测体温38℃,在外院诊断为上感,给予布洛芬退热,头孢菌素静滴无效,8月22日出现嗜睡,体温高达40℃,8月23日因昏迷伴抽搐入院。查体:神志不清,压眶有反应,体温40.5℃,血压、呼吸正常,双瞳孔等大,皮肤黏膜无
关于胰岛素治疗,下列不妥的是使用胰岛素治疗中应告知患者警惕
合同工程的交工验收由业主组织主持,并发给承包人交工证书,但相关的费用由承包人承担。()
工程变更价款时,FIDIC合同条件下的工程变更,在( )等情况下,宜对有关工作内容采用新的费率或价格。
办理支付结算的主体是()。
主要解决资源利用效率问题,是企业资源利用效率最大化的战略是()。
存款人尚未清偿其开户银行债务的,不得申请撤销该银行结算账户。()
甲乙于2001年7月20日(注:此前一天国际奥委会已宣布北京申办成功的消息)约定:如果北京成功申办2008年奥运会的话,甲将赠与乙100万。该赠与合同
计算,其中D:x≥0,y≥0,x+y≤1.
A、Itisabouttostartraining.B、Therainwillstopsoon.C、Ithasbeenrainingallday.D、Itjuststoppedraining.AW:Lookat
最新回复
(
0
)