[单项选择题]单击命令按钮时,下列程序的执行结果是PrivateSubCommand1_Click()BT4EndSubPrivateSubBT(xAsInteger)x=x*2+1Ifx<6ThenCallBT(x)EndIfx=x*2Printx;EndSubA)15B)16C)17D)18A.15
B.16
C.17
D.18
[填空题]下列程序的功能是,当一个TextBox控件被拖过一个PictureBox控件时,指针从默认的箭头变为特定的图标,当Text-Box控件被拖到其他地方时,指针恢复到默认的状态。请完成下列程序。
PrivateSubPicture1_DragOver(SourceAsControl,XAsSingle,YAsSingle,StateAsInteger)
SelectCaseState
CasevbEnter
Source.Draglcon=LoadPicture("JCONSARROWSPOINT03.ICO")
Case______
Source.Draglcon=LoadPicture()
EndSelect
EndSub
PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
Source.Draglcon=______
EndSub
PrivateSubPicture1_DragOver(SourceAsControl,XAsSingle,YAsSingle,StateAsInteger)
SelectCaseState
CasevbEnter
Source.Draglcon=LoadPicture("JCONSARROWSPOINT03.ICO")
Case______
Source.Draglcon=LoadPicture()
EndSelect
EndSub
PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
Source.Draglcon=______
EndSub
[单项选择题]数3.789E-12写成普通的十进制数是______。
A.0.00000000000003789
B.0.0000000003789
C.0.000000003789
D.0.00000000003789
A.0.00000000000003789
B.0.0000000003789
C.0.000000003789
D.0.00000000003789
[填空题]执行下面程序,第一行输出结果是(11),第二行输出结果是(12)。
OptionExplicit
PrivateSubForm_Click()
DimAAsInteger
A=2
CallSubl(A)
EndSub
PrivateSubl(xAsInteger)
x=x*2+1
Ifx<10Then
CallSubl(x)
EndIf
x=x*2+1
Printx
EndSub
OptionExplicit
PrivateSubForm_Click()
DimAAsInteger
A=2
CallSubl(A)
EndSub
PrivateSubl(xAsInteger)
x=x*2+1
Ifx<10Then
CallSubl(x)
EndIf
x=x*2+1
Printx
EndSub
[填空题]在java.io包中有某个类同时实现了Datalnput接口和DataOutput接口,这个类是______。
电子商务的物流外包是指()。
- A.委托专业物流企业提供物流服务
- B.与普通商务共用物流系统
- C.第三方物流企业开展电子商务
- D.电子商务企业经营物流业务
[填空题]在线性结构中,队列的操作顺序是先进先出,而栈的操作顺序是【2】。
[填空题]当数据的物理结构(存储结构、存取方式等)改变时,不影响数据库的逻辑结构,从而不至于引起应用程序的变化,这是指数据的【】。
[填空题]VisualBasic中的控件分为3类,它们是【6】、ActiveX控件和可插入对象。
excel中,可以将图表插入某个单元格中。
[填空题]在窗体上有一个命令按钮,然后编如下事件过程:
FunctionSR(xAsDouble)AsDouble
SelectCaseSgn(x)
Case1
SR=Sqr(x)
ExitFunction
Case0
SR=0
Case-1
SR=-1
EndSelect
EndFunction
PrivateSubCommand1_Click()
DimMsg,SRN
DimNASDouble
N=InputBox("请输入要计算平方根的数")
Msg=N&"的平方根"
SelectCaseSR(N)
Case0
Msg=Msg&"是0"
Case-1
Msg=Msg&"是一个虚数"
CaseElSe
Msg=Msg&"是"&SR(N)
EndSelect
MsgBoxMsg
EndSub
程序运行后,单击命令按钮,在输入对话框内输入-1,输出结果是【15】。
FunctionSR(xAsDouble)AsDouble
SelectCaseSgn(x)
Case1
SR=Sqr(x)
ExitFunction
Case0
SR=0
Case-1
SR=-1
EndSelect
EndFunction
PrivateSubCommand1_Click()
DimMsg,SRN
DimNASDouble
N=InputBox("请输入要计算平方根的数")
Msg=N&"的平方根"
SelectCaseSR(N)
Case0
Msg=Msg&"是0"
Case-1
Msg=Msg&"是一个虚数"
CaseElSe
Msg=Msg&"是"&SR(N)
EndSelect
MsgBoxMsg
EndSub
程序运行后,单击命令按钮,在输入对话框内输入-1,输出结果是【15】。
[单项选择题]下列代码的执行结果是()。classNextLetter{publicstaticvoidmain(String[]args){charc="a";System.out.println("Thenextcharacteris"+++c+".");}}
A.a
B.b
C.c
D.a+c
A.a
B.b
C.c
D.a+c
[填空题]继承性主要强调子类在父类的基础上取“长”补“短”,而_______主要强调的是类与类之间的传输。
[单项选择题]下列控件不支持MouseDown事件的是______。
A.HSrcollBar
B.CommandButton
C.PictureBox
D.TextBox
A.HSrcollBar
B.CommandButton
C.PictureBox
D.TextBox
[填空题]在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,然后编写如下事件过程:PrivateSubCommand1_Click()DiminDataAsStringText1.Text=""Open"d:myfile.txt"For()As#1DoWhile()Input#1,inDataText1.Text=Text1.Text+inDataLoopClose#1EndSub程序的功能是,打开D盘根目录下的文本文件myfile.txt,读取它的全部内容并显示在文本框中。请填空。