首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下程序: Private Sub Form_Click() Dim m As Single, n As String Dim flag As Integer m = InputBox("请输入一个单精度数") n =
admin
2015-10-23
35
问题
设有如下程序:
Private Sub Form_Click()
Dim m As Single, n As String
Dim flag As Integer
m = InputBox("请输入一个单精度数")
n = Str(m)
flag = InStr(n, ".")
If flag Then
Print Mid(n, flag)
End If
End Sub
以上程序的功能是
选项
A、将m转换成字符串输出
B、输出m的整数部分
C、输出m的小数部分
D、将m的小数点删除后转换成字符串输出
答案
C
解析
InputBox是Visual Basic函数,功能是弹出一个对话框,在其中显示提示,等待用户输入文字并按下按钮,然后返回用户输入的文字,将返回用户输入的数字存储在m中,str(m)函数将数字m转换为字符串,并存储在n中。函数InStr(n,".")返回字符"."在另一个字符串n中第一次出现的位置,若n中没有要搜索的字符".",则返回结果为0。如果flag不为0,则执行Mid(n,flag)语句,输出n的"."以后的部分,即输出m的小数部分。
转载请注明原文地址:https://kaotiyun.com/show/XHLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Commandl的命令按钮。单击命令按钮时执行如下事件过程:PrivateSubCommandl_Click()a$=”softwareandhardware”b$=Right(a$,8)
表示滚动条控件取值范围最大值的属性是()。
有下列Sub过程:SubSun(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSub在窗体上的命令按钮Command1中,编写下列事件过程,执行该事件过程调用Sun过程,结果是()。Priv
下列关于栈的描述中错误的是()。
要对文本框中已有的内容进行编辑,按下键盘上的按键,就是不起作用,原因是设置了______的属性为True。
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Dimarr(10,10)AsInteger,i,jAsIntegerFori=
设有下面的循环。i=1Doi=i+3PrintiLoopUntili>程序运行后要执行3次循环体,则条件中i的最小值为
有一个事件过程,其功能是:从已存在于磁盘上的顺序文件NM1.txt中读取数据,计算读出数据的平方值,将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。PrivateSubForm_Click()DimxAsSingle,yAs
下列程序段的结果为A="ABBACDDCBA"Fori=6To2Step-2X=Mid(A,i,i)Y=Left(A,i)Z=Right(A,i)Z=X&Y&ZNextPrintZ
在运行阶段,要在文本框Textl获得焦点时选中文本框中所有内容,对应的事件过程是
随机试题
现代科学家运用电子计算机解决了数学运算、工程设计和科学实验中的一些难题,这表明电脑()。
患者,男,65岁,发作性胸骨后疼痛伴恶心、呕吐2h。患者于2h前因饱餐后出现胸骨后压榨性疼痛,自服硝酸甘油不能缓解,并伴有恶心、呕吐等不适。半小时前出现头晕、面色苍白、冷汗淋漓,遂来本院急诊。患者近10多年来,有反复发作性胸闷、心悸史,有冠心病及高血压家族
患者,男,54岁。确诊乙型肝炎20年,长期需要家人照顾其生活起居,今日该患者因食欲不振、厌油、腹胀3个月。加重1个月入院,查体:全身散在皮肤紫癜,腹部胀痛,叩诊移动性浊音阳性,肝脏触诊质硬有结节感,边缘较薄,无压痛。实验室检查:ALT(GPT)显著升高,A
关于有核红细胞的叙述哪项是正确的
垄断企业是价格制定者,是因为()。
促进钙吸收的物质包括()。
阅读以下文字,完成问题。“微博粉丝”的兴起与媒体技术的发展密切相关,同时也受“粉丝”自身心理因素的驱动。美国社会学家卡茨认为:人们接触和使用传媒的目的都是为了满足自己的社会、心理需要。“微博粉丝”的出现也是源于这个群体的特定需求。“微博粉丝”对于
八进制数150.7转换成十进制数是多少?
假定系统日期为1998年12月20日,有如下命令NJ=MOD(YEAR(DATE())-1900,100),执行该命令后的NJ值是______。
Inasecondhandbookshop,Billycameacrossabookwhichhethoughtwascertainlya______edition.
最新回复
(
0
)