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-04-29
43
问题
设有如下程序:
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/ZQUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Fori=1To4X=4Forj=1To3X=3Fork=1to2X
对关系S和关系R进行集合运算,结果中既包含关系S中的所有元组也包含关系R中的所有元组,这样的集合运算称为()。
下面有关标准模块的叙述中,错误的是()。
在窗体上用复制、粘贴的方法建立了一个命令按钮数组,数组名为ComTest1。设窗体Form1标题为“MyForm1”,双击控件数组中的第3个按钮,打开代码编辑器,编写如下代码:PrivaeSubComTest1_Click(IndexAs
在运行阶段,要在文本框Text1获得焦点时选中文本框中所有内容,如图1所示,对应的事件过程是()。
设a="VisualBasic",下面语句中可使b="Basic"的是()。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1的窗体上画两个文本框,其名称分别为Text1和Text2,内容分别为“文本框1”和“文本框2”,编写适当的事件过程。程序运行后,如果单击窗体,则Text1
在考生文件夹下有一个工程文件vbsj5.vbp,请先装入该工程文件,然后完成以下操作:在名称为Form1的窗体上画两个命令按钮,其名称分别为cmdRead和cmdCal,标题分别为“读入数据”和“计算保存”(如图3-42所示)。程序运行后,如果单击“读入数
下列叙述中,正确的是()。
在满足实体完整性约束的条件下
随机试题
长江公司只生产和销售甲产品一种产品(单位:件)。2012年度甲产品单位变动成本(包括销售税金)为54元,边际贡献率为40%,固定成本总额为1125012元,全年实现净利润为450000元。该公司适用的所得税税率为25%,2012年度的股利支付率为20%。2
王国维认为抒写“无我之境”的代表作是
硫脲类药物引起的最严重的不良反应是
()是企业最高管理当局的战略规划,涉及企业的所有经营活动。
甲省A市一公司,其下属的某企业所在地为乙省的B市,目前该企业正在乙省C市开采铁矿,然后将铁矿销往丙省D市,则该企业资源税纳税地点是( )。
当年的楚霸王自刎的乌江在现在安徽省内。()
下列强化程式属于延缓式强化的是()。
根据以下图表回答下列问题。2010年前4个月,江苏累计用电量最多的三个市依次是()。
Ihearmanyparentscomplainingthattheirteenagechildrenarerebelling.Iwishitwereso.Atyourageyououghttobegrowin
在窗体中变量m对应的文本框为Text1,“运行”按钮Command1对应的事件代码如下:PrivateSubCommand1_Click()DimresultAsStringm=val(Me!Text1)result=""Fork=
最新回复
(
0
)