VB试题2.docx

1、VB试题2VB试题2在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书写，可以在行末使用续行字符_，表示下一行是当前行的继续。A、直接回车 B、一个空格加一个下划字符(_) C、一个下划字符(_) D、一个空格加一个连字符(-) 答案：B下列没有类型说明符的变量是_。A、货币型B、日期型C、字符串型D、长整型答案：B下面的表达试的值为真的是_。 A、Mid(“Visual Basic”,1,12)=Right(“Programing Language Visual Basic”,12)B、78.9/32.77 4.98 C、“ABCRG” ”abcde” D、Int(1

2、34.69) Cint(134.69) 答案：A_。A、x=3 OR x10B、3=x AND 10C、3=x AND x10D、3=x0答案：Ci被j整除的逻辑表达式是_。A、i/j = 0B、i0C、ij = 0D、i mod j = 0答案：D函数Cint(-3.5)，Int(-3.5)，Fix(-3.5)的值分别是_。A、-3，-4，-3B、-4，-4，-3C、-3，-4，-4D、-4，-3，-3答案：B表达式16/4-25*8/4 MOD 5/2的值为_。A、2B、14C、20D、4答案：D如果将布尔常量False赋值给一个整形变量，则整型变量的值为_。A、0B、-1C、FalseD

3、、True答案：A下列符号常量的声明中，_是不合法的。A、Const a as integer=12B、Const a as double=sin(1) C、Const a =”OK” D、Const a as single=1.1 答案：B在VisualBasic代码中，将多个语句合并在一行上的并行符是_。A、冒号(：)B、感叹号(！)C、撇号()D、问号(?) 答案：A描述X、Y中只有一个小于Z的逻辑表达式是_。A、XZ And YZB、XZ Xor YZC、XYZD、XZ Or YZ答案：B语句Print 5*20 输出的结果是_。A、5*20B、5*20C、出现错误信息D、100答案：

4、B语句x=x+1的正确含义是_.A、将变量X的值存在X+1中去 B、将变量X的值加1后赋给变量X C、变量X的值与X+1的值相等 D、变量X的值为1 答案：B以下各项中，_不是一个合法的字符串。A、等级考试B、#Basic#C、D、Visual答案：B下面程序的运行结果是_。Private Sub Command1 Click ( ) x=1: y=1 For i=1 TO 3 x=x+y: y=y+x Next i Print x;yEnd SubA、34 35B、5 8C、6 6D、13 21答案：D下面程序是一个求最大公约数的程序，执行程序后，m的值为_Dim m As Integer,

5、 n As Integerm=200n=150If n*m=0 Then Exit SubIf mn Then t=m: m=n: n=tEnd IfDo r=m Mod n m=n n=rLoop While r0Text3=mA、50B、100C、200D、150答案：A计算机算法可以分为两大类：一类是_算法，另一类是_算法。A、计算机辅助设计、财务B、排序、查找C、步骤管理、通信D、数值计算、非数值计算答案：D执行下面的程序，单击窗体后在窗体上显示的结果是_。Private Sub Command1_Click( ) Dim Str1 As String, Str2 As String

6、Dim Str3 As String, I As Integer Str1= e For i = 1 To 2 str2 = UCase(Str1) Str1 = Str2 & Str1 Str3 = Str3 &Str1 Str1 = Chr(Asc(Str1)+1) Next I Print str3End SubA、EEEEB、eeFFC、EeFFD、eEfF答案：C下列程序的输出结果是_。Dim y As Integery=10Do While y0 y=y-1LoopPrint y=;yA、y=-1B、y=0C、y=随机值D、y=1答案：B算法应具备的特征有：确定性、可行性、有穷性、

7、_性、_性。A、步骤有限、可以实现 B、输入、输出C、确切无误、可以实现 D、步骤有限、确切无误答案：B在窗体中添加一个命令按钮，并编写如下程序代码：Private Sub Command1_Click( ) Dim y As Integer y = 0 Do While y7 y=y+3 Loop MsgBox yEnd Sub程序运行后，消息对话框中显示_。A、8B、9C、7D、6答案：B以下语句执行时，从键盘上输入Zhang，执行结果是_。Dim a As Stringa=InputBox(Input,Name)Print aA、InprtB、ZhangC、NameD、空字符串答案：B下

8、面语句错误的是_。A、If a=1 Thenc=2ElseIf a=2 Thenc=3End IfB、If a=1 And b=2 Thenc=3End IfC、If a=1 Thenc=2ElseIf a=2 Thenc=3End IfD、If (a=1,2,3 ) Then c=2答案：D下列程序：Private Sub Form_Click( ) For j=1 To 15 a=a+j Mod 3 Next j Print aEnd Sub运行后输出的结果是_。A、15B、1C、90D、120答案：ADim y As Integerm = 1Do While m 5Print “ABCD

9、EF”End SelectB、Select Case XCase Is15, Is5, 1, 3 TO 10Print ABCDEFEnd SelectD、Select Case XCase 10 TO 1Print “ABCDEF”End Select答案：C用Msgbox 你好, vbokonly, Hello显示的消息对话框窗口的标题是_。A、你好B、vbokonlyC、Hello D、Ok答案：C给出下面的程序Private Sub Command1_Click( ) Dim Check ,Counter Check = True: Counter = 0 Do Counter = C

10、ounter + 1 If Counter = 10 Then Check = False: Exit Do Loop Until Check = False MsgBox CounterEnd Sub程序最后弹出的消息对话框的内容是_ 。A、FalseB、TrueC、20D、10答案：D下面程序的内层循环次数是_。For i=1 TO 3 For j=1 TO i For k=j TO 3 . Next k Next jNext iA、3B、14C、9D、21答案：B以下程序段运行后，消息框的输出结果是a=sqr(5)b=sqr(3)c=abMsgbox c+2A、2B、-1C、1D、出错答

11、案：C在窗体Form1上，有一个列表框控件List1，在窗体的Click事件中有如下代码:Private Sub Form_Click() Dim k As Integer Dim entry As String, item As String entry = EDCBA For k = Len(entry) To 1 Step -1 item = LCase(Mid(entry, k, 1) & k List1.AddItem item Next kEnd Sub运行此程序，单击窗体,列表框第4行为_。A、d2B、b2C、b4D、d3答案：A下面程序段运行后，显示的结果是_。Dim xIf

12、x Then Print x Else Print x +1A、-1B、0C、1D、显示出错信息答案：C在窗体上有一个文本框Text1，以下程序段的运行结果是_。 Text1= For i=1 To 10 Sum=Sum+iNext iText1=SumA、出错B、在文本框中Text1中输出55C、在文本框中Text1中输出不定值D、在文本框中Text1中输出0答案：B填空=已知A=7.5，B=2，C=-3.6，表达式 ab and ca or ab的值为_.答案：空 1:False 表示A+B+C大于等于255，或A与B分别大于90且C大于80的VB表达式的_答案：空 1:A+B+C=255

13、 Or A90 And B90 And C80 已知K=2，J=3，A=True，则VB表达式(K-J=J)的值为_。答案：空 1:True 语句Print 125+32=;125+32执行后，窗体上打印结果是_.答案：空 1:125+32= 157 执行下面的程序段后，b的值为_a=5b=7a=a+bb=a-ba=a-b答案：空 1:5输入一个三位的正整数，将之反向输出。如输入123，则输出321，完善下列程序。Private Sub Command1_Click( )Dim a As Integer, b As Integer, c As Integer, m As Integerm =

14、InputBox(输入一个正整数)a = m100b = (m-a * 100)10c = _MsgBox 结果=+ Str(c*100+b*10+a)End Sub答案：空 1:m mod 10 运行下面的程序，单击窗体后在窗体上显示的内容是_。Private Sub Form_Click( )For i = 1 To 10 Step 2Print I;Next IEnd Sub答案：空 1:1 3 5 7 9 找出110000之间的同构数。所谓同构数，是指此数的平方数的最后几位与该数相等。例如，25的平方为625，25是同构数。完善下列程序。程序代码如下：Private Sub Command1_Click( )Dim i As Integer, y As LongFor x = 1 To 1000y = x * xIf_ ThenPrint xEnd IfNext xEnd Sub答案：空 1:x=(y mod 10) or (x=(y mod 100) or (x=(y mod 1000)