首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下程序: Private Sub Form_Click() num=InputBox("请输入一个实数"):p=InStr(num,".") If p>0 Then Print Mid(num,P+1) Else Print"END" End If
设有如下程序: Private Sub Form_Click() num=InputBox("请输入一个实数"):p=InStr(num,".") If p>0 Then Print Mid(num,P+1) Else Print"END" End If
admin
2018-10-18
9
问题
设有如下程序:
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(字符串,起始位置[,个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串,若不指定个数将返回字符串中从参数“起始位置”到字符串尾端的所有字符。本题实际就是先找到小数点的位置,然后输出小数点后面的部分,即小数部分。
转载请注明原文地址:https://kaotiyun.com/show/7JFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列叙述中正确的是()。
以下关于过程及过程参数的描述中,错误的是()。
以下关于函数过程的叙述中,正确的是()。
设循环队列的存储空间为Q(1:35),初始状态为front=rear=35。现经过一系列入队与退队运算后,front=15,rear=15,则循环队列中的元素个数为
设Label1、Command1、Text1、Check1分别为标签、命令按钮、文本框、复选框的名称,则以下属性设置语句中,运行时不会出错的是
以下不能用Print方法输出数据的对象或窗口是
窗体上有一个Text1文本框,并编写了下面事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger) KeyAscii=KeyAscii+3EndSub程序运行时,在文本框中输入字符"A",则在文本
窗体上有名称为Command1的命令按钮和名称为Text1的文本框PrivateSubCommand1_Click()Text1.Text="程序设计"Text1.SetFocusEndSubPrivateSubText1_GotF
—个栈的初始状态为空。现将元素1,2,3,A,B,C依次入栈,然后再依次出栈,则元素出栈的顺序是()。
下面不属于软件测试实施步骤的是
随机试题
路边有一个老人昏迷不醒,以下哪个因素会增加司马紫衣的助人行为?()。
肾结核阴虚火旺证肾结核阳虚失约证
1岁小儿,发热,咳嗽4天,呼吸困难,精神差,躯干部皮肤见充血性粟粒样丘疹,右肺叩诊浊音,呼吸音低,右上肺闻及细湿哕音,气管左移,白细胞28×109/L,中性0.88。最可能的诊断是
我国规范规定,当烟雾浓度达到()时,应采取交通管制。
资产负债表是反映企业某一特定日期经营成果的会计报表。 ( )
()是任何社会经济活动的中心问题,是生产力发展的重要前提。
(2010年)2009年4月,甲公司因欠乙公司货款100万元不能按时偿还,向乙公司请求延期至2010年4月1日还款,并愿意以本公司所有的3台大型设备进行抵押和1辆轿车进行质押,为其履行还款义务提供担保。乙公司同意了甲公司的请求,并与甲公司订立了书面抵押和质
请讲述近几年来,你做过最耗费精力的一项工作,并说说在这项工作的过程中你遇到了哪些困难、如何解决的。
材料一:“现代的文明的美国的历史,是由一次伟大的、真正解放的、真正革命的战争开始的,同那些因王公、地主、资本家瓜分争夺土地和利润而引起的掠夺战争(像现在的帝国主义战争)比较起来,这种战争是很少见的。这是美国人民反对当时压迫美国,使美国处于殖民地奴隶地位的英
下面是打印输出所有和为1000的连续整数(如:298,299,300,301,302等)的程序,请在划线处编写适当语句,完成此程序使它能正确执行_____________。 public class Exercise42{ /** *fo
最新回复
(
0
)