编写如下程序： Private Sub Command1_Click(...

单项选择题

设窗体上有Text1、Text2两个文本框，并编写了下面的程序代码： Private Sub Text1_KeyPress(KeyAscii As Integer) If"A"<=Chr(KeyAscii)And Chr(KeyAscii)<="Z"Then KeyAscii=KeyAscii+(Asc("a")-Asc("A")) End If n=0 IfKeyAscii=13 Then For k=1 To Len(Text1) ch$=Mid(Text1，k，1) If"a"<=ch And ch<="z"Then n=n+1 Next k Text2=n End If End Sub 运行程序，在Text1中输入“Visual Basic 6．0”后按回车键，则在Text2文本框显示的是

A．11
B．16
C．Visual Basic 6．0
D．visual basic 6．0

单项选择题

计算下面分段函数的正确语句是

A．Y=IIf(x>0，x+1，IIf(x<0，x-1，0))
B．Y=IIf(x=0，0，IIf(x>0，x-1，x+1))
C．Y=IIf(x>0，x+1，IIf(x<0，0，x-1))
D．Y=IIf(x=0，0，x-1，x+1)

单项选择题

编写如下程序： Private Sub Command1_Click() Dim a As Integer，b As Integer a=3：b=2 If a*b<10 Then b=b+1 Else b=b-1 End If Print b-a>0 End Sub 程序运行后，单击命令按钮Command1，输出结果为

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

单项选择题

编写如下程序： Private Sub Command1_Click() Dim score As Integer score=86 If score>85 Then r=1 Else Ifscore>60 Then r=2 Else r=0 End If Print r End Sub 程序运行后，单击命令按钮Command1，输出结果为

A．0
B．1
C．2
D．86

单项选择题

设有如下事件过程： Private Sub Form_Click() Sum=0 For k=l To 3 If k<=1 Then x=1 Elselfk<=2 Then x=2 Elselfk<=3 Then x=3 Else x=4 End If Sum=Sum+x Next k Print Sum End Sub 程序运行后，单击窗体，输出结果是

A．9
B．6
C．3
D．10

单项选择题

设有下面的语句：Print IIf(x>0，1，IIf(x<0，-1，0))与此语句输出结果不同的程序段是

A．If x>0 Then x=1 Elself x<0 Then x=-1 End If Print x
B．Ifx>0 Then Print 1 ElseIf x<0 Then Print-1 Else Print 0 End If
C．Select Case x Case Is>0 Print 1 Case Is<0 Print-1 Case Else Print 0 End Select
D．If x<>0 Then Ifx>0 Then Print 1 Elselfx<0 Then Print-1 Else Print 0 End If End If

单项选择题

在窗体上画一命令按钮和一文本框，其名称分别为Command1和Text1，然后编写如下程序： Function Fun(x As Integer， Private Sub Command1_Click() y As Integer)As Integer Dim a As Integer，b As Integer Fun=IIf(x

A．12
B．20
C．24
D．40

单项选择题

三角形的构成条件是：任意2边之和大于第3边。设变量a、b、c是3条直线的长度，要求判断这3条直线能否构成一个三角形。下面有3个程序段可以正确判断，另一个不能正确判断的是

A．If a+b>c And a+c>b And b+c>a Then Print"可以构成一个三角形" Else Print"不能构成三角形" End If
B．If a+b>c Or a+c>b Or b+c>a Then Print"可以构成一个三角形" Else Print"不能构成三角形" End If
C．If a+b<=c Or a+c<=b Or b+c<=a Then Print"不能构成三角形" Else Print"可以构成一个三角形" End If
D．If a+b<=c Or a+c<=b Then Print"不能构成三角形"Elselfb+c<=a Then Print"不能构成三角形" Else Print"可以构成一个三角形" End If

单项选择题

设x为一整型变量，且语句的开始为：Select Case x，则不符合语法规则的Case子句是

A．Case Is>20
B．Case 1 To 10
C．Case 0D．Case 2，3，4

单项选择题

假定有如下情况语句：Select Case X能表示|X|>5的Case子句是

A．Case Not(-5 To 5)
B．Case 5 To -5
C．Case Is<-5．Is>5
D．Case Abs(X)>5

单项选择题

现有如下一段程序： Private Sub Command1_Click() x=UCase(InputBox(”输入：“)) Select Case x Case"A"To"C" Print"考核通过!" Case"D" Print"考核不通过!" Case Else Print"输入数据不合法!" End Select End Sub 执行程序，在输入框中输入字母“B”，则以下叙述中正确的是

A．程序运行错
B．在窗体上显示“考核通过!”
C．在窗体上显示“考核不通过!”
D．在窗体上显示“输入数据不合法!”

单项选择题

窗体上有1个名称为Command1的命令按钮，事件过程如下： Pfivate Sub Command1_Click() Dim num As Integer．x As Integer num=Val(InputBox("请输入一个正整数")) Select Case num Case Is>100 x=x+num Case Is<90 X=num Case Else x=x*num End Select Print x； End Sub 运行程序，并在三次单击命令按钮时，分别输入正整数100、90和60，则窗体上显示的内容为

A．0 0 0
B．0 0 60
C．0 90 0
D．100 0 60

单项选择题

窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。命令按钮的单击事件过程如下： Private Sub Command1_Click() Dim x1 As Integer，x2 As Integer，x3 As Integer s=Trim(Text1．Text) strLen=Len(s) For i=1 To strLen c=Mid(s，i，1) Select Case c Case"0"To"9" xl=x1+1 Case"A"To"Z" x2=x2+1 Case"a"To"z" x3=3+1 Case Else x4=x4+1 End Select Next Print"x1"；x1，"x2"；x2，"x3"；x3，"x4"；x4 End Sub 以下关于上述程序的叙述中，正确的是

A．S是去掉文本框中字符串末尾的空格
B．Select Case c有误，Case后应该是一个表达式
C．各Case分支条件有误，不能用To表示字符的取值区间
D．x4是字符串中非字母、非数字字符的个数

单项选择题

编写如下程序： Private Sub Command1_Click() Dim m As Integer，n As Integer m=2：n=1 Select Case m Case 1 Select Case n Case1 Prim"AAA" Case 2 Print"BBB" Case 2 Print"CCC" End Select End Sub 程序运行后，单击命令按钮Command1，输出结果为

A．AAA
B．BBB
C．CCC
D．1

单项选择题

某人设计了如下程序用于计算并输出7!(7的阶乘) Private Sub Command1_Click() t=0 For k=7 To 2 Step-1 t=t*k Next Prite t End Sub 执行程序时，发现结果是错误的。下面的修改方案中能够得到正确的是

A．把t=0改为t=1
B．把For k=7 to 2 Step-1改为For k=7 to 1 Step-1
C．把For k=7 to 2 Step-1改为For k=1 to 7
D．把Next改为Next k

单项选择题

为计算an的值，某人编写了函数power如下： Private Function power(a As Integer，n As Integer)As Long Dim P As Long P=a For k=1 To n P=p*a Next k Power=p End Function 在调试时发现是错误的，例如Print power(5，4)的输出应该是625，但实际输出是3125。程序需要修改。下面的修改方案中有3个是正确的，错误的一个是

A．把For k=1 To n改为For k=2 To n
B．把P=p*a改为P=p^a
C．把For k=1 To n改为For k=-1 To n-1
D．把P=a改为P=1

单项选择题

某人为计算n!(0

A．把p=1改为p=n
B．把For k=n．1 To 2 Step-1改为For k=1 To n-1
C．把For k=n．1 To 2 Step-1改为For k=1 To n
D．把For k=n．1 To 2 Step-1改为For k=2 To n

单项选择题

阅读程序： Private Sub Form_Click() a=0 Forj=1 To 15 a=a+j Mod 3 Nextj Print a End Sub 程序运行后，单击窗体，输出结果是

A．105
B．1
C．120
D．15

单项选择题

在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码： Option Base1 Private Sub Command1_Click() Dim a a=Array(1，2，3，4)：j=1 For i=4 To 1 Step-1 S=S+a(i)j：j=j10 Next i Print s End Sub 程序运行后，单击命令按钮，其输出结果是

A．4321
B．1234
C．34
D．12

单项选择题

在窗体上画一个命令按钮，名称为Command1，然后编写如下代码： Option Base 0 Private Sub Command1_Click() Dim A1(4)As Integer，A2(4)As Integer For k=0 To 2 Al(k+1)=InputBox("请输入一个整数") A2(3-k)=A1(k+1) Next k Print A2(k) End Sub 程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为

A．0
B．1
C．2
D．3

单项选择题

设有以下程序： Private Sub Form_Click() x=50 For i=1 To 4 y=InputBox("请输入一个整数") y=Val(y) If y Mod 5=0 Then a=a+y：x=y Else a=a+x End If Next i Print a End Sub 程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为

A．100
B．50
C．120
D．70

单项选择题

有下面程序代码： Private Sub Command1_Click() a=3：s=0 For k=1 To 5 s=s+a Mod k：a=a+k Next k Print s End Sub 程序运行后，单击命令按钮Command1，输出结果是

A．15
B．13
C．4
D．1

编写如下程序： Private Sub Command1_Click() Dim a As Integer，b As Integer a=3：b=2 If a*b<10 Then b=b+1 Else b=b-1 End If Print b-a>0 End Sub 程序运行后，单击命令按钮Command1，输出结果为

你可能感兴趣的试题

现有语句：y=IIf(x>0，x Mod 3，0)设x=10，则y的值是

设x是整型变量，与函数IIf(x>0，-x，x)有相同结果的代数式是

现有如下语句： x=IIf(a>50，Int(a＼3)，a Mod 2)当a=52时，x的值是

在下面语句或函数中，不能描述选择结构的是

计算下面分段函数的正确语句是

编写如下程序： Private Sub Command1_Click() Dim a As Integer，b As Integer a=3：b=2 If a*b<10 Then b=b+1 Else b=b-1 End If Print b-a>0 End Sub 程序运行后，单击命令按钮Command1，输出结果为

编写如下程序： Private Sub Command1_Click() Dim score As Integer score=86 If score>85 Then r=1 Else Ifscore>60 Then r=2 Else r=0 End If Print r End Sub 程序运行后，单击命令按钮Command1，输出结果为

设有如下事件过程： Private Sub Form_Click() Sum=0 For k=l To 3 If k<=1 Then x=1 Elselfk<=2 Then x=2 Elselfk<=3 Then x=3 Else x=4 End If Sum=Sum+x Next k Print Sum End Sub 程序运行后，单击窗体，输出结果是

设有下面的语句：Print IIf(x>0，1，IIf(x<0，-1，0))与此语句输出结果不同的程序段是

在窗体上画一命令按钮和一文本框，其名称分别为Command1和Text1，然后编写如下程序： Function Fun(x As Integer， Private Sub Command1_Click() y As Integer)As Integer Dim a As Integer，b As Integer Fun=IIf(x

三角形的构成条件是：任意2边之和大于第3边。设变量a、b、c是3条直线的长度，要求判断这3条直线能否构成一个三角形。 下面有3个程序段可以正确判断，另一个不能正确判断的是

设x为一整型变量，且语句的开始为：Select Case x，则不符合语法规则的Case子句是

假定有如下情况语句：Select Case X能表示|X|>5的Case子句是

编写如下程序： Private Sub Command1_Click() Dim m As Integer，n As Integer m=2：n=1 Select Case m Case 1 Select Case n Case1 Prim"AAA" Case 2 Print"BBB" Case 2 Print"CCC" End Select End Sub 程序运行后，单击命令按钮Command1，输出结果为

某人设计了如下程序用于计算并输出7!(7的阶乘) Private Sub Command1_Click() t=0 For k=7 To 2 Step-1 t=t*k Next Prite t End Sub 执行程序时，发现结果是错误的。下面的修改方案中能够得到正确的是

某人为计算n!(0

阅读程序： Private Sub Form_Click() a=0 Forj=1 To 15 a=a+j Mod 3 Nextj Print a End Sub 程序运行后，单击窗体，输出结果是

在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码： Option Base1 Private Sub Command1_Click() Dim a a=Array(1，2，3，4)：j=1 For i=4 To 1 Step-1 S=S+a(i)*j：j=j*10 Next i Print s End Sub 程序运行后，单击命令按钮，其输出结果是

设有以下程序： Private Sub Form_Click() x=50 For i=1 To 4 y=InputBox("请输入一个整数") y=Val(y) If y Mod 5=0 Then a=a+y：x=y Else a=a+x End If Next i Print a End Sub 程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为

有下面程序代码： Private Sub Command1_Click() a=3：s=0 For k=1 To 5 s=s+a Mod k：a=a+k Next k Print s End Sub 程序运行后，单击命令按钮Command1，输出结果是

三角形的构成条件是：任意2边之和大于第3边。设变量a、b、c是3条直线的长度，要求判断这3条直线能否构成一个三角形。下面有3个程序段可以正确判断，另一个不能正确判断的是

在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码： Option Base1 Private Sub Command1_Click() Dim a a=Array(1，2，3，4)：j=1 For i=4 To 1 Step-1 S=S+a(i)j：j=j10 Next i Print s End Sub 程序运行后，单击命令按钮，其输出结果是