• 搜标题
  • 搜题干
  • 搜选项
0 / 200字
单项选择题

设窗体上有一个Conunand1命令按钮，还有以下程序代码：Private Sub Command1_Click()Static x As Integerx=x+1Call proc(x)Print x，End SubPrivate Sub proc(a As Integer)Static xA s Integerx=x+aa=xEnd Sub程序运行后，3次单击命令按钮，则产生的输出是

A．1 2 3
B．1 3 5
C．1 3 7
D．2 4 6
题目列表

你可能感兴趣的试题

单项选择题

下面为单精度实型(即单精度浮点型)变量的是

A．x$
B．x&
C．x!
D．x#
单项选择题

对于语句Dim Var1 ，Var2 As Integer，下列说法中正确的是

A．Var1#和Vat2都被定义为整型变量
B．Var1被定义为双精度型变量。Var2被定义为整型变量
C．Var1被定义为长整型变量，Vat2被定义为整型变量
D．Var1#被定义为变体变量，Vat2被定义为整型变量
单项选择题

双精度浮点数的类型说明符为

A．％
B．#
C．&
D．@
单项选择题

下列符号常量的声明中不合法的是

A．Const a AsSingle=3．5
B．Const a AsDouble=5+8
C．Const a As Integer="25"
D．Const a="OK"
单项选择题

下列说法中，错误的是

A．变量名长度不能超过255个字符
B．变量名的第一个字符可以是字母或数字
C．变量名只能由字母、数字和下划线组成
D．变量名不能使用保留字
单项选择题

为把圆周率的近似值3．14159存放在变量pi中，应该把变量pi定义为

A．Dim pi As Integer
B．Dim pi(7)As Integer
C．Dim pi As Single
D．Dim pi As Long
单项选择题

有如下数据定义语句：Dim a．b As IntegerDim x％，y as Integer执行上述语句后，不是整型变量的是

A．a
B．b
C．x
D．y
单项选择题

设在一个工程的窗体中有如下代码：Public x As IntegerPrivate Sub Form_Load()Dim y As IntegerEnd Sub在该工程的标准模块的声明部分有如下代码：Public a As IntegerPrivate b As Integer关于上述代码，以下叙述中错误的是

A．变量x的作用域是整个工程
B．变量y的作用域是。Form_Load过程
C．变量a的作用域是整个工程
D．变量b的作用域是整个标准模块
单项选择题

在窗体模块的声明部分声明变量时，不能使用的关键字是

A．Dim
B．Public
C．Private
D．Static
单项选择题

设窗体上有一个Conunand1命令按钮，还有以下程序代码：Private Sub Command1_Click()Static x As Integerx=x+1Call proc(x)Print x，End SubPrivate Sub proc(a As Integer)Static xA s Integerx=x+aa=xEnd Sub程序运行后，3次单击命令按钮，则产生的输出是

A．1 2 3
B．1 3 5
C．1 3 7
D．2 4 6
单项选择题

在标准模块中，将a定义为全局整型变量的语句是

A．Static a As Integer
B．Dim a As Integer
C．Private a As Integer
D．Public a As Integer
单项选择题

下面能够将某个变量声明为局部变量的是

A．在窗体模块的声明部分，用关键字Static声明这个变量
B．在窗体模块的声明部分，用关键字Dim声明这个变量
C．在需要使用这个变量的过程中，用关键字Private声明这个变量
D．在需要使用这个变量的过程中，用关键字Public声明这个变量
单项选择题

编写如下程序：Dim num As Integer，r As Integer，n As Integer，i As IntegerDim arr(5)As IntegerPrivate Sub Command1_Click()num=12：r=2Call sub1(num，r，n)For i=n To 1 Step-1Print arr(i)；Next iEnd SubSub sub1(d As Integer，r As Integer，k As Integer)k=0Do While d＜＞0k=k+1arr(k)=d Mod rd=d＼rLoopEnd Sub程序运行后，单击命令按钮Command1，输出结果为

A．1 1 0 0
B．0 0 1 1
C．0 1 0 1
D．1 0 1 0
单项选择题

下列说法中错误的是

A．在过程中，可以用Static定义变量，但当该过程调用结束后，其值继续保留
B．当用Static关键字定义一个过程时，该过程中的所有变量都是“Static”存储方式的
C．Sub Main过程一定是程序运行时首先被执行的过程，是整个程序的入口点
D．同一个工程中只能有一个Sub Main过程
单项选择题

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

A．65
B．A
C．8765
D．W
单项选择题

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

A．CInt(3．5)
B．Val(3．5)
C．Fix(3．5)
D．Abs(3．5)
单项选择题

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

A．20
B．22
C．24
D．25
单项选择题

窗体上有一个名称为Command1的命令按钮，单击该按钮时所实现的功能是产生10个随机整数，然后从键盘输入一个整数，查找该数在数组中的位置。若找到，输出该数的位置；若没有找到，给出相应的提示。该命令按钮的单击事件过程如下：Private Sub Command1_Click()Dim a(10)As IntegerDim x As IntegerFor i=1 To 108(i)=Int(Rnd*100)Nextx=InputBox("输入100以内的整数：")p=0For i=1 To 10If a(i)=x Thenp=iExit ForEnd IfNextIf p=0 ThenPrint"没有找到与输入数据相同的数!"ElsePrint Str(x)+"名[擞组中的位置是"+Str(p)End IfEnd Sub对于上述事件过程，以下叙述中正确的是

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

窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。要求编写一个程序，统计文本框中0-9各数字字符的个数。某人编写如下程序：Prirate Sub Command1_Click()Dim count(10)As Integer第1个For循环For i=0 To 9count(i)=0Nexts=Trim(Text1．Text)strLen=Len(s)’第2个For循环For vi=1 To strLenc=Mid(s，i，1)If c＞="0"And c＜="9"Thnx=Val(C)count(i)=count(i)+1End IfNext’第3个For循环For i=0 To 9Print Str(i)，count(i)NextEnd Sub运行程序后，发现不能实现题目的要求，程序应该进行的修改是

A．将第2个For循环的初值改为0
B．将第2个For语句改为For i=0 To 9
C．去掉x=Val(C)语句
D．将count(i)=count(i)+1改为count(x)=count(x)+1
单项选择题

有下面程序代码：Private Sub Command1_Click()Dim a As Stringa="CONPUTER"n=search(a，"T")Print IIf(n=0，"未找到"，n)End SubPrivate Function search(str As String，ch As String)As IntegerFor k=1 To ten(str)c=Mid(str，k，1)If c=ch Thensearch=kExit FunotionEnd IfNext ksearch=0End Function程序运行后，单击命令按钮Command1，输出结果是

A．0
B．8
C．6
D．未找到
单项选择题

编写如下程序：Private Sub Command1_Click()Dim x As String，y As Stringx=Right("abcd"，2)Y=Mid("dcba"，2，3)If x＞y ThenPrint x+yElsePrint y+xEnd IfEnd Sub程序运行后，单击命令按钮Command1，输出结果为

A．cdcba
B．cbacd
C．ebacd
D．cbcd
单项选择题

设有如下函数：Function DelSpace(ch As String)As IntegerDim n％，st$，c$st=""n=0For k=1 To Len(ch)c=Mid(ch，k，1)If c＜ ＞""Thenst=st&cElsen=n+1End IfNext kch=stDelSpace=nEnd Function函数的功能是

A．统计并返回字符串ch中字符的个数
B．删除字符串ch中的空格符，返回删除字符的个数
C．统计并返回字符串ch中非空格字符数
D．删除字符串ch中除空格符外的其他字符，返回删除字符的个数
单项选择题

设有下面程序代码：Private Sub Command1_Click()Dim str As String，ch As Stringstr="Visual Basic Programming"ch="a"n=fun(ch，st)Print str，nEnd SubPrivate Function fun(ch As String，str As String)As IntegerDim strbuf As String，C As String，n As IntegerFor k=1 To Len(str)C=Mid$(str，k，1)If c＜ ＞ch Thenstrbuf=strbuf&cElsestrbuf=strbuf&UCase(C)n=n+1End IfNext kstr=strbuffun=nEnd Function程序运行时的输出是

A．Visual Basic Programming 0
B．VisuAl BAsic ProgrAmming 3
C．Visul Bsic Progrmming 3
D．VisualBasicProgramming 2
单项选择题

设a=10，b=4，c=5，d=7，表达式a＞b And Not c＜d+6的值为

A．True
B．False
C．1
D．0
单项选择题

下列运算符中，优先级别最低的是

A．Not
B．Like
C．Mod
D．And
单项选择题

窗体上有一个名称为Label的1标签；一个名称为Timer1的计时器，其Enabled和Interval属性分别为True和1000。编写如下程序：Dim n As IntegerPrivate Sub Timer1_Timer()ch=Chr(n+Asc("A"))Label1．Caption=chn=n+1n=n Mod 4End Sub运行程序，将在标签中

A．不停地依次显示字符“A”、“B”、“C”、“D”，直至窗体被关闭
B．依次显示字符“A”、“B”、“C”、“D”各一次
C．每隔1秒显示字符“A”一次
D．每隔1秒依次显示26个英文字母中的一个
单项选择题

设变量x的值是845，则下面语句的输出是Print x＼100+(x Nod 100)＼10+x Mod 10

A．17
B．548
C．845
D．485
单项选择题

设：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
单项选择题

假定有如下情况语句：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
单项选择题

能正确表述“x为大于等于5并且小于20的数”的Visual Basic表达式是

A．x＞=5 And x＜20
B．x＞=5 Or x＜20
C．5＜=x＜20
D．5＜=x＜=20
单项选择题

有如下语句序列：Dim a．b As IntegerPrint aPrint b执行以上语句序列，下列叙述中错误的是

A．输出的a值是0
B．输出的b值是0
C．a是变体类型变量
D．b是整型变量
单项选择题

下列程序段的输出结果是x=5Print x+1：x+1

A．6 6
B．5 5
C．6 7
D．5 6
单项选择题

语句Print Format$(23846．5，"000，000．00")的输出结果是

A．23846．5
B．23，846．5
C．23，846．50
D．023，846．50
单项选择题

设程序中有以下语句：MsgBox"Visual"，"Basic"，"等级考试"，2执行该语句后，显示一个信息框，以下关于该信息框的叙述中，正确的是

A．提示信息是Visual
B．提示信息是Basic
C．标题栏显示为Visual
D．标题栏显示为"等级考试"
微信扫码免费搜题