0 Then Print Mid(num,P+1" />
设有如下程序: Private Sub Form_Click() Dam=InputBox(”请输入一个实数”):P=InStr(num,".") Ifp>0 Then Print Mid(num,P+1
首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
0 Then Print Mid(num,P+1">设有如下程序: Private Sub Form_Click() Dam=InputBox(”请输入一个实数”):P=InStr(num,".") Ifp>0 Then Print Mid(num,P+1
设有如下程序: Private Sub Form_Click() Dam=InputBox(”请输入一个实数”):P=InStr(num,".") Ifp>0 Then Print Mid(num,P+1
admin
2018-10-15
44
问题
设有如下程序:
Private Sub Form_Click()
Dam=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/KLFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,然后编写如下程序:Subinc(aAsInteger)StaticxAsIntegerx=x+aPrintx;EndSubPrivateSubCommand1_Clic
(1)在考生文件夹下有一个工程文件sjt3.vbp,在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时,单击“开始计数”按钮,就开始计数(如图所示),每隔1秒,文本框中的数加1;单击“停止计数”按钮,则停止计数。要求:修改适当
(1)在名称为Form1,标题为“列表框练习”的窗体上添加一个名称为List1的列表框,表项内容依次输入XXX、ddd、mmm和sag,且表项内容以宋体14号字显示,如图1所示。最后设置相应属性,使程序运行后列表框中的表项按字母升序方式排列,如图2所示。
(1)在考生文件夹下有一个工程文件sjt3.vbp,程序的功能是,在运行时,如果选中一个或两个复选框和一个单选按钮,则对文本框中的文本内容做相应的设置,如图所示。窗体上的控件已经给出,但没有给出主要程序内容,请编写适当的事件过程,完成上述功能。
文本框Text1的KeyDown事件过程如下:PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger) ...EndSub其中参数KeyCode的值表示的是发生此事件时(
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。窗体文件的程序如下:PrivateTypex aAsInteger bAsIntegerEndTypePrivateSubCommand1_Cli
随机试题
完全互换性:
男,53岁,打鼾,憋气2年,伴白天困乏、嗜睡,查:下鼻甲肥大,扁桃腺Ⅲ度,舌体正常。PSG示血氧降低,呼吸暂停,口鼻气流停止时,膈肌兴奋性增强,收缩。如该患者PSG示血氧最低为80%,CPAP无效,应考虑的治疗方法为
当牙石指数(CI)为1时,是指
患者,男性,78岁。因腹泻5天,昏睡4小时来急诊。既往有高血压病史35年,无糖尿病史。查体:心率106次/分,呼吸22次/分,血压90/50mmHg,意识朦胧。检查时手足乱动,配合欠佳,皮肤弹性差,两肺未闻及干、湿啰音。腹软,肝脾未扪及,双下肢胫前轻度可
紫杉醇的抗癌作用机制为()。
编制概算时,GIS组合电器电压互感器间隔的安装如何套用定额?
无风险报酬率可参考()。
五星红旗作为国旗是在()上确定的。
下列关于赔偿请求人要求行政赔偿程序的说法中正确的有()。
JoyceSipesandMaryEllenDodgeWhenJoyceSipeswasdiagnosedwithbreastcancerin1999,shesharedthenewsimmediatelyw
最新回复
(
0
)