设有如下程序： Private Sub Form_Click() num=InputBox("请输入一个实数")：p=InStr(num，"．") Ifp＞0 Then Print Mid(num，P+1) Else Print"END"

admin2017-06-21 46

问题设有如下程序：
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

解析字符串匹配函数Instr用于查找第二个参数在第一个参数中第一次出现的位置，若未找到返回0；Mid(字符串，起始位置[，个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串，若不指定个数将返回字符串中从参数“起始位置”到字符串尾端的所有字符。本题实际就是先找到小数点的位置，然后输出小数点后面的部分，即小数部分。

转载请注明原文地址:https://kaotiyun.com/show/sPGp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

设有如下程序： Private Sub Form_Click() num=InputBox("请输入一个实数")：p=InStr(num，"．") Ifp＞0 Then Print Mid(num，P+1) Else Print"END"

二级VB

NCRE全国计算机二级

在运行程序时，在程序代码中改变文本框的Text属性值，或在文本框中输入新的内容，相应会触发()事件。

在参数传递过程中，使用关键字来修饰参数，可以使之按值传递，此关键字是()

下面程序运行时，若输入395，则输出结果是()。PrivateSubCmdl_Click()Dima％a=InputBox(“请输入一个3位整数”)PrintaMod10，

在新建一个VB工程时，将新建窗体的Name属性设置为TheFirst，则默认的窗体文件名为()。

阅读程序:OptionBase1Dimarr()AsIntegerPrivateSubForm_Click()DimiAsInteger,jAsIntegerReDimarr(3,2)Fori=

有两个关系R和S如下：则由关系R得到关系S的操作是()。

设已打开5个文件，文件号分5U为1，2，3，4，5。要关闭所有文件，以下语句正确的是

下列()事件过程可以将打开文件对话框的标题改变为“newCaption”。

在窗体上画一个名称为CommonDialogl的通用对话框，一个名称为Commandl的命令按钮。然后编写如下事件过程：PrivateCommand1_Click()CommonDialogl.FileName=""C

从师德角度来讲，“学而不厌，诲人不倦”体现了教师为人师表的职业道德。（）

在Windows对等网上，所有打印机、CD-ROM驱动器及硬盘驱动器都可设为共享。()

根据《中华人民共和国公司法》，关于有限责任公司董事会职权的说法，正确的是()。

存货的可变现净值即为市场的销售价格。()

下列属于船舶吨税的延期优惠的是()。

下列关于偿债能力状况修正指标中流动比率，说法有误的是()。

有关职业倦怠的个人因素方面，以下表述正确的是()。

Whydomoremiddle-agedadultshavetotakecareoftheirageingparents?Becausepeopleareliving______.