单项选择题

设有如下程序： Private Sub Form_Click() aRm=InputBox(”请输入一个实数”)：P=InStr(num，“.”) Ifp>0 Then Print Mid(num，P+1) Else Prim”END” End If End Sub 运行程序单击窗体，根据提示输入一个数值。如果不是输入实数，则输出“END”；否则

A．用字符方式输出该实数
B．输出该实数的整数部分
C．输出该实数的小数部分
D．去掉实数中小数点，保留所有数码输出

你可能感兴趣的试题

单项选择题

执行以下程序段 aS=”Visual Basic Programming”：b$=”C++”c$：UCase(LeR$(a$，7))&b$&RightS(aS，12) 变量c$的值为

A．Visual BASIC Programming
B．VISUAL C++Programming
C．Visual C++Programming
D．VISUAL BASIC Programming

单项选择题

在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form_Load() Text1．Text=””：Text2．Text=""：Text1．SetFocus End Sub Private Sub Text1_Change() Text2．Text=Mid(Text1．Text，6) End Sub 程序运行后，如果在文本框Text1中输入ChinaBeijing，则在文本框Text2中显示的内容是

A．ChinaBeijing
B．China
C．Beijing
D．ChinaB

单项选择题

设有如下通用过程： Public Function Fun(xStr As String)As String Dim tSt]r As String．strL As Integer tStr="" strL=Len(xStr)i=1 Do While i＜=strL／2 tStr=tStr&Mid(xStr,i，1)&Mid(xStr,strL-i+1，1) i=i+1 Loop Fun=tStr End Function 在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Commandl_Click() Dim S1 As String S1=”abcdef”：Print UCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，输出结果是

A．ABCDEF
B．abcdef
C．AFBECD
D．DEFABC

单项选择题

假定有以下函数过程： Function Fun(S As String)As String Dim s1 As String For i=1 To Len(S) sl=LCase(Mid(S，i，1))+s1 Next i Fun=s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Str1 As String．Str2 As String Str1=InputBox(”请输入一个字符串”)：Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为

A．ABCDEFG
B．abcdefg
C．GFEDCBA
D．gfedcba

单项选择题

在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() c=1234 c1=Trim(Str(c)) For i=l To 4 Print_______ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示内容：112 123 1234则在横线处应填入的内容为

A．Right(c1,i)
B．Left(c1，i)
C．Mid(c1，i，1)
D．Mid(c1，i，i)

单项选择题

设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String，strL As Integer tStr=””：strL=Len(xStr) i=strL／2 Do While i＜=strL tStr=tStr&Mid(xStr,i+1，1) i=i+1 Loop Fun=tStr&tStr End Function 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1=”ABCDEF”：Text1.Text=LCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，文本框中显示的是

A．ABCDEF
B．abcdef
C．defdef
D．defabc

单项选择题

窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下： Private Type x Private Sub Command l Click() a As Integer：b As Integer Dim Y As x End Type y．a=InputBox(””) If y．a＼2=y．a／2 Then y．b=y．a*y．a Else y．b=Fix(y．a／2) End If Text1．Text=y．b End Sub 对以上程序，下列叙述中错误的是

A．x是用户定义的类型
B．InputBox函数弹出的对话框中没有提示信息
C．若输入的是偶数，y．b的值为该偶数的平方
D．Fix(y．a／2)把y．a／2的小数部分四舍五入，转换为整数返回

单项选择题

窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer) Dim c As String c=UCase(Chr(KeyCode))：Text2．Text=Chr(Asc(c)+2) End Sub 当向文本框Text1中输入小写字母a时，文本框Text2中显示的是

A．A
B．a
C．C
D．c

单项选择题

窗体上有名称分别为Text1、Text2的文本框，名称为Command1的命令按钮。运行程序，在Text1中输入“FormList”，然后单击命令按钮，执行如下程序： Private Sub Command1_Click() Text2．Text=UCase(Mid(Text1．Text，5，4)) End Sub 在Text2中显示的是

A．form
B．list
C．FORM
D．LIST

单项选择题

窗体上有1个名称为Command1的命令按钮，事件过程如下： Private Sub Commandl_Click()m=一3 6 If Sgn(m)Then n=Int(m) Else n=Abs(m) End If Print nEnd Sub 运行程序，并单击命令按钮，窗体上显示的内容为

A．-4
B．-3
C．3
D．3.6

单项选择题

设有如下程序： Private Sub Form_Click() aRm=InputBox(”请输入一个实数”)：P=InStr(num，“.”) Ifp>0 Then Print Mid(num，P+1) Else Prim”END” End If End Sub 运行程序单击窗体，根据提示输入一个数值。如果不是输入实数，则输出“END”；否则

A．用字符方式输出该实数
B．输出该实数的整数部分
C．输出该实数的小数部分
D．去掉实数中小数点，保留所有数码输出

单项选择题

在窗体上画一个文本框，名称为Text1，然后编写如下程序：Private Sub Form_Load() Text1．Text=””：Text1．SetFocusEnd SubPrivate Sub Form_Click() Dim a As String，S As String a=Text1．Text：S="" For k=1 To Len(a) S=UCase(Mid(a，k，1))+S Next k Text1．Text=SEnd Sub 程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容

A．与原字符串相同
B．与原字符串中字符顺序相同，但所有字母均转换为大写
C．为原字符串的逆序字符串，且所有字母转换为大写
D．为原字符串的逆序字符串

单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() aS=InputBox(”请输入一个二进制数”)：n=Len(a$) For i=1 To n Dec=Dec*2+______(a$，i，1) Next i Print Dec End Sub 程序功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入一个二进制数，并单击“确定”按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在横线处填入的内容是

A．Left
B．Right
C．Val
D．Mid

单项选择题

以下程序的功能是随机产生10个两位的整数： Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer，i As Integer Randomize For i=1 To 10 a(i)=Int(Rnd*100)+1：Print a(i) Next i End Sub 运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是

A．a(i)=Int(Rnd*100)
B．a(i)=Int(Rnd*90)+10
C．a(i)=Int(Rnd*100)+10
D．a(i)=Int(Rnd*101)

单项选择题

窗体上有一个名称为Command1的命令按钮，单击该按钮时所实现的功能是产生10个随机整数，然后从键盘输入一个整数，查找该数在数组中的位置。若找到，输出该数的位置；若没有找到，给出相应的提示。该命令按钮的单击事件过程如下： Private Sub Command1_Click() Dim a(10)As integer，X As Integer For i=1 To 10 a(i)=Int(Rnd*100) Next X=InputBox(”输入100以内的整数：”)：P=0 For i=1 To 10 Ifa(i)=X Then P=i：Exit For End If Next Ifp=0 Then Print”没有找到与输入数据相同的数!” Else Print Str(x)+”在数组中的位置是”+Str(p) End If End Sub 对于上述事件过程，以下叙述中正确的是

A．本程序实际产生的随机数是0．99
B．若产生的随机数中有相同数，则P是其中最后一个数的位置
C．程序有错，P的初值设置不对
D．程序有错，InputBox函数产生的数据与x的类型不匹配

单项选择题

表达式5 Mod 3+3＼5*2的值是

A．0
B．2
C．6

单项选择题

设有如下程序段： x=2 For i=1 T0 Step 2 x=x+i Next i 运行以上程序后，x的值是

A．26
B．27
C．38
D．57

单项选择题

设a=“MicrosoflVisualbasic”，则以下使变量b的值为“Visualbasic”的语句是

A．b=Left(a，10)
B．b=Mid(a，10)
C．b=Right(a，10)
D．b=Mid(a，11，10)

单项选择题

设a=”a”，b=”b”，c=”c”，d=”d”，执行语句 x=IIf((ad)，”A”，“B”) 后，X的值为

A．”a”
B．”b”
C．”A”
D．”B”

单项选择题
设有如下语句： Dim a,b As Integer c=“VisualBasic” d=#7／20／2005# 以下关于这段代码的叙述中，错误的是

A．a被定义为Integer类型变量
B．b被定义为Integer类型变量
C．C中的数据是字符串
D．d中的数据是日期类型

单项选择题
设：a=2，b=8，c=6，d=3，表达式a>b And Not(c>d)Or d>c的值是

A．1
B．0
C．True
D．FALSE

单项选择题
数学式y ² ＞x＞=10在VB中应表示为

A．y*y＞x And 10＜=x
B．Sqr(y)＞x And x＞=10
C．Sqr(y)＞x Or x＜=10
D．y＞y>x Or x＞=10

单项选择题
设a=10，b=4，c=5，d=7，表达式a>b And Not c

A．True
B．False
C．1
D．0

单项选择题
以下叙述中错误的是

A．续行符与它前面的字符之间至少要有一个空格
B．Visual Basic中使用的续行符为下划线()
C．以撇号(’)开头的注释语句可以放在续行符的后面
D．Visual Basic可以自动对输入的内容进行语法检查

设有如下程序： Private Sub Form_Click() aRm=InputBox(”请输入一个实数”)：P=InStr(num，“.”) Ifp>0 Then Print Mid(num，P+1) Else Prim”END” End If End Sub 运行程序单击窗体，根据提示输入一个数值。如果不是输入实数，则输出“END”；否则

你可能感兴趣的试题

执行以下程序段 aS=”Visual Basic Programming”：b$=”C++”c$：UCase(LeR$(a$，7))&b$&RightS(aS，12) 变量c$的值为

可以产生30~50(含30和50)之间的随机整数的表达式是

能够产生1到50之间(含1和50)随机整数的表达式是

表达式Sgn(0．25)的值是

要计算x的平方根并放入变量y，正确的语句是

Print Right(”VB Programming”，2)语句的输出结果是

以下表达式与Int(3．5)的值相同的是

以下能对正实数d的第3位小数四舍五入的表达式是

语句：Print Asc(Chr$(Mid$(”98765432”，4，2)))的输出是

语句：Print Int(Rnd*5+20)的输出不可能是

产生100以内(不含100)2位随机整数的Visual Basic表达式是

窗体上有名称分别为Text1、Text2的文本框，名称为Command1的命令按钮。运行程序，在Text1中输入“FormList”，然后单击命令按钮，执行如下程序： Private Sub Command1_Click() Text2．Text=UCase(Mid(Text1．Text，5，4)) End Sub 在Text2中显示的是

窗体上有1个名称为Command1的命令按钮，事件过程如下： Private Sub Commandl_Click()m=一3 6 If Sgn(m)Then n=Int(m) Else n=Abs(m) End If Print nEnd Sub 运行程序，并单击命令按钮，窗体上显示的内容为

设有如下程序： Private Sub Form_Click() aRm=InputBox(”请输入一个实数”)：P=InStr(num，“.”) Ifp>0 Then Print Mid(num，P+1) Else Prim”END” End If End Sub 运行程序单击窗体，根据提示输入一个数值。如果不是输入实数，则输出“END”；否则

表达式5 Mod 3+3＼5*2的值是

设有如下程序段： x=2 For i=1 T0 Step 2 x=x+i Next i 运行以上程序后，x的值是

设a=“MicrosoflVisualbasic”，则以下使变量b的值为“Visualbasic”的语句是

设a=”a”，b=”b”，c=”c”，d=”d”，执行语句 x=IIf((ad)，”A”，“B”) 后，X的值为

设有如下语句： Dim a,b As Integer c=“VisualBasic” d=#7／20／2005# 以下关于这段代码的叙述中，错误的是

设：a=2，b=8，c=6，d=3，表达式a>b And Not(c>d)Or d>c的值是

数学式y 2 ＞x＞=10在VB中应表示为

设a=10，b=4，c=5，d=7，表达式a>b And Not c

以下叙述中错误的是

数学式y ² ＞x＞=10在VB中应表示为