0 Then Print Mid(num,p+1) Els" />
设有如下程序: Private Sub Form_Click() num=InputBox("请输入一个实数"):p=InStr(num,".") Ifp>0 Then Print Mid(num,p+1) Els
首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
0 Then Print Mid(num,p+1) Els">设有如下程序: Private Sub Form_Click() num=InputBox("请输入一个实数"):p=InStr(num,".") Ifp>0 Then Print Mid(num,p+1) Els
设有如下程序: Private Sub Form_Click() num=InputBox("请输入一个实数"):p=InStr(num,".") Ifp>0 Then Print Mid(num,p+1) Els
admin
2019-06-11
37
问题
设有如下程序:
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
解析
字符串匹配函数lnstr用于查找第二个参数在第一个参数中第一次出现的位置,若未找到返回0:Mid(字符串,起始位置[,个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串,若不指定个数将返回字符串中从参数“起始位置”到字符串尾端的所有字符。本题实际就是先找到小数点的位置,然后输出小数点后面的部分,即小数部分。
转载请注明原文地址:https://kaotiyun.com/show/43Up777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在名称为Form1的窗体上画一个标题为“直辖市”、名称为:Framel的框架,在框架中画一个名称为Combol的组合框,其编辑域为空,有如图所示的4个列表项,外观风格也与图中相同。注意:存盘时必须存放在考生文件夹下,工程文件名为sjtl.vb
以下叙述中,错误的是()。
(1)请在名称为Forml的窗体上添加一个名称为H1的水平滚动条,并在属性窗口中设置它的属性值,使其满足下列要求:它的最小刻度值为1,最大刻度值为100,在程序运行时,用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮),滚动框移动10个刻度。再在滚动条下
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生文件夹下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市时,它的距离就在Text1中显示
设a=10,b=4,c=5,d=7,表达式a>bAndNotc<d+6的值为
以下叙述中错误的是
设窗体上有一个Text1文本框和一个HScroll1水平滚动条,并有下面的事件过程:PrivateSubHScroll1_Change()Text1=HScroll1EndSub在程序运行时,当把滚动框移动到最左边时,文本框中显示的是100;
对长度为n的线性表进行顺序查找,在最坏情况下所需要的比较次数为
一棵二叉树中共有80个叶子结点与70个度为1的结点,则该二叉树中的总结点数为
在E—R图中,用来表示实体联系的图形是
随机试题
A.滑石B.金钱草C.木通D.石韦治疗石淋宜选用的药物是
关于旋转阳极X线管的叙述,不正确的是
过重的判断标准为实际体重超过标准体重的比例为
A.气虚血瘀证B.气不摄血证C.气血两虚证D.气滞血瘀证E.气随津脱证胸胁胀满,或走窜疼痛,性情急躁,胁下痞块,刺痛拒按,入夜更甚,或妇女痛经,经色紫暗,夹有瘀块,舌紫暗或有瘀斑,脉弦涩,该症状属于
中国注册会计师协会的主要职责有()。
甲公司是ABC会计师事务所的常年审计客户。A注册会计师负责审计甲公司2013年度财务报表。资料一:A注册会计师在审计工作底稿中记录了所了解的甲公司情况及其环境,部分内容摘录如下:(1)甲公司原租用的办公楼月租金为50万元。自2
根据外国人来中国的身份和所持护照的种类,分别发给()
国际货运代理人为货主办理业务后,收取的报酬是()。
我国行政系统的一般监督不包括()。
在窗体中有一个文本框Text1,编写事件代码如下:PrivateSubForm_Click() X=val(Inputbox("输入x的值")) Y=1 IfX0ThenY=2 Text1.Value=YE
最新回复
(
0
)