单项选择题 以下是求三角形面积的程序：PublicFunctionarea(x!,y!,z!)AsSingleDimc!If(x＋y>zAndx＋z&

单项选择题 对以下此段程序说法正确的是( )PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimLenstraAsInteger,jAsIntegerDimStraAsString,SAsString*1S=Chr(KeyAscii)SelectCaseSCase"0"To"9",",",".","-"CaseElseKeyAscii=0EndSelectEndSubA.S取得的是输入的KeyAscii值B.若在文本框中输入除了数字0～9，,逗号，负号，小数点之外的其他字符，则能够继续输入C.若在文本框中输入数字0～9，,逗号，负号，小数点为有效数字串，可以继续输入D.当KeyAscii=0时可以继续输入

单项选择题 如下程序：Dima()AsStringPrivateSubCommand1_Click()DimtempAsStringDimiAsIntegertemp=Replace(Text1,",,",",")a=Split(temp,",")Fori=0ToUBound( )Printa(i);NextiEndSub程序运行后，在text1中输入字符串"23,,45,6"，则单击command1按钮后，显示的结果为( )

单项选择题 在窗体中添加一个命令按钮Command1，并有以下程序：Functionretnum()nl=Chr(13)+Chr(10)msg$="1.运行VB应用程序"+nl+"2.计算器"msg$=msg$+nl+"请输入数字选择"retnum=InputBox(msg$,Title,Default)EndFunctionPrivateSubCommand1_Click()r=retnumIfr=1Thenx=Shell("c:/vbp/vbexam.exe",1)ElseIfr=2Thenz=Shell("calc.exe",1)ElseMsgBox"请输入1-2的数"EndIfEndSub程序运行后，单击命令按钮，在输入对话框内输入2，窗体将显示( )A.请输入1-2的数B.Windows的计算器C.调用C:/vbp/vbexam.exe程序并运行D.出错

单项选择题 如果在立即窗口中执行以下操作：a=8b=9printa>b则输出结果是( )A.－1B.0C.FalseD.True

单项选择题 阅读程序:FunctionF(aAsInteger)AsIntegerb=0Staticcb=b+1c=c+1F=a+b+cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=2ForI=1To3PrintF( )NextIEndSub运行结果为( )

单项选择题 假定有如下的Sub过程：SubS(ByValxAsInteger,ByValyAsInteger)t=xx=t/yy=tModyEndSubPrivateSubCommand1_Click()Dima,bAsIntegera=5b=4CallS(a,b)Printa,bEndSub程序运行后，单击命令按钮，输出结果为( )

单项选择题 阅读下面的程序段：ForI=1To3Forj=1ToIFork=jTo2a=a+3NextkNextjNextI执行上面的三重循环后，a的值为( )

单项选择题 文本框所不能响应的事件有( )

单项选择题 执行下面的程序段后，x的值为( )x=5Forc=1To5Step2x=x+c/5NextcPrintx

单项选择题 设a=3，则执行x=Iif(a>5,－1,0)后，x的值为( )A.5B.6C.0D.－－1

单项选择题 以下语句：PrintFormat$( 32548.5,"000,000.00")输出结果是( )A. 32548.5B.32, 548.5C.032, 548.50D.32,548.50

未知题型 如果准备按字节读取一个文件的内容，应当使用FileInputStream流还是FileReader流？

单项选择题 表达式4+6*7/8Mod3的值是( )

单项选择题 下列对菜单编辑器的操作不正确的是( )

未知题型 在人类历史中，哪些信息工具发明对人类文明具有革命性影响？（ ）

单项选择题 在通用声明中定义a，在窗体中添加一个命令按钮Command1，编写如下程序代码：DimaAsIntegerSubtest()a=a+1:b=b+1:c=c+1Print"Sub:";a;"，";b;"，";cEndSubPrivateSubCommand1_Click()a=2:b=3:c=4CalltestCalltestEndSub程序运行后，单击命令按钮，窗体中将显示( )

单项选择题 在窗体中添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程：PrivateSubCommand1_Click()a=UCase(Text1.Text)+Left(Text2.Text,2)PrintaEndSubPrivateSubForm_Load()Text1.Text="Ab"Text2.Text="123456"EndSub程序运行后，单击命令按钮，输出结果为( )A.ab12B.AB12C.AB56D.ab56

未知题型 在下面查询语句执行时，显示结果的排列次序将由一个列的值决定，该列是（）。

单项选择题 在窗体上添加一个命令按钮和一个文本框，并在命令按钮中编写如下代码：PrivateSubCommand1_Click()a=1.2c=Len(Str( )+Space(10))Text1.Text=cEndSub程序运行后，单击命令按钮，在文本框中显示( )A.3B.8C.14D.10