单项选择题

设有如下通用过程： 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和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 tStrAs String．strLAs 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 Command1_Click() Dim S1 As String S1="abcdef"：Print UCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，输出结果是

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

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c=1234 c1=Trim(Str(c)) For i=1 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 Command1_Click() a As Integer：b As Integer Dim Y As x End Type y．a=InputBox(””) Ify．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的小数部分四舍五入，转换为整数返回

单项选择题

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

A．ABCDEFG
B．abedefg
C．GFEDCBA
D．gfedeba

单项选择题

窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUP事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer) Dim e 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 Command1_Click() m=-3．6 IfSgn(m)Then n=Int(m) Else n=Abs(m) End If Print n End Sub 运行程序，并单击命令按钮，窗体上显示的内容为

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

单项选择题

设有如下程序： 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．去掉实数中小数点，保留所有数码输出

单项选择题

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

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

单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$=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 Base1 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．am=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=l To 10 If a(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．4
D．6

单项选择题

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

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

单项选择题

设a=“MicrosoftVisualbasic”，则以下使变量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中的数据是日期类型

单项选择题
设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是

A．Print A=x+y
B．Print"A="；x+y
C．Print"A="=Str(x+y)
D．Print"A="x+y

单项选择题
下列表达式中不能判断x的是否为偶数的是

A．x／2=Int(x／2)
B．x Mod 2=0
C．Fix(x／2)=x／2
D．x＼2=0

单项选择题
如设置了文本框的属性PasswordChar="$"，则运行程序时向文本框中输入8个任意字符后，文本框中显示的是

A．8个“$”
B．1个“$”
C．8个“*”
D．无任何内容

单项选择题
为了计算1+3+5…+99的值，某人编程如下： k=1：s=0 while k<=99 k=k+2：s=s+k wend odnt s 在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是

A．While…Wend循环语句错误，应改为For k=1 To 99…Net k
B．循环天剑错误，应改为While k>99
C．循环前的赋值语句k=1错误，应改为k=0
D．循环中两条赋值语句的顺序错误，应改为s=s+k：k=k+2

单项选择题
如果执行一个语句后弹出如图所示的窗口，则这个语句是

A．InputBox("输入框"，"请输入VB数据")
B．x=InputBox("输入框"，"请输入VB数据")
C．InputBox("请输入VB数据"，"输入框")
D．x=InputBox("请输入VB数据"，"输入框")

单项选择题
下列可以打开随机文件的语句是

A．Open"filel．dat"For Input As #1
B．Open"filel．dat"For Append As #1
C．Open"filel．dat"For Output As #1
D．Ooen"filel．dat"For Random As #1 len=20

单项选择题
下面可以产生20～30(含20和30)的随机整数的表达式是

A．Int(Rnd*10+20)
B．Int(Rnd*11+20)
C．Int(Rnd*20+30)
D．Int(Rnd*30+20)

单项选择题
假定用下面的语句打开文件： Open"Filel．txt"For Input As #1 则不能正确读文件的语句是

A．Input #1，ch$
B．Line Input #1，ch$
C．ch$=Input$(5，#1)
D．Read #1，ch$

你可能感兴趣的试题

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

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

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

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

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

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

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

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

设有如下程序： 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”；否则

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

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

设a=“MicrosoftVisualbasic”，则以下使变量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# 以下关于这段代码的叙述中，错误的是

设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是

下列表达式中不能判断x的是否为偶数的是

如设置了文本框的属性PasswordChar="$"，则运行程序时向文本框中输入8个任意字符后，文本框中显示的是

为了计算1+3+5…+99的值，某人编程如下： k=1：s=0 while k<=99 k=k+2：s=s+k wend odnt s 在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是

如果执行一个语句后弹出如图所示的窗口，则这个语句是

下列可以打开随机文件的语句是

下面可以产生20～30(含20和30)的随机整数的表达式是

假定用下面的语句打开文件： Open"Filel．txt"For Input As #1 则不能正确读文件的语句是