题库 题库
🏘️ 爱查询 > 题库 > VB

VB

单选题 窗体上有一个名称为 Frame1 的框架（如图），若要把框架上显示的“Frame1”改为
汉字“框架”，下面正确的语句是（    ）。
  		 查看答案
单选题 以下叙述中错误的是（    ）。 查看答案
单选题 设窗体上有一个列表框控件 List1，含有若干列表项。以下能表示当前被选中的列表
项内容的是（    ）。		 查看答案
单选题 设a=4，b=5，c=6，执行语句 Print a<b And b<c 后，窗体上显示的是（    ）。 查看答案
单选题 执行下列语句
strInput=InputBox ("请输入字符串"，"字符串对话框"，"字符串")
将显示输入对话框。此时如果直接单击“确定”按钮，则变量 strInput 的内容是（    ）。		 查看答案
单选题 窗体上有 Command1、Command2 两个命令按钮。现编写以下程序：
Option Base 0
Dim a( ) As Integer, m As Integer
Private Sub Command1_Click( )
  m=InputBox("请输入一个正整数")
  ReDim a(m)
End Sub
Private Sub Command2_Click( )
  m=InputBox("请输入一个正整数")
  ReDim a(m)
End Sub
运行程序时，单击 Command1 后输入整数 10，再单击 Command2 后输入整数 5，则
数组 a 中元素的个数是（    ）。		 查看答案
单选题 在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 Labcl1，然后编
写如下事件过程：
Private Sub Command1_Click( )
  Counter=0
  For i=1 To 4
    For j=6 To 1 Step -2
      Counter=Counter+1
    Next j
  Next i
  Label1.Caption=Str(Counter)
End Sub
程序运行后，单击命令按钮，标签中显示的内容是（    ）。		 查看答案
单选题 在窗体上画一个名为 Command1 的命令按钮，然后编写以下程序：
Private Sub Command1_Click( )
  Dim M(10) As Integer
  For k=1 To 10
  M(k)=12-k
  Next k
  x=8
  Print M(2+M(x))
End Sub
运行程序，单击命令按钮，在窗体上显示的是（    ）。		 查看答案
单选题 以下关于过程及过程参数的描述中，错误的是（    ）。 查看答案
单选题 在窗体上画一个名称为 Command1 的命令按钮，再画两个名称分别为 Label1、Label2
的标签，然后编写如下程序代码：
Private X As Integer
Private Sub Command1_Click( )
  X=5: Y=3
  Call proc(X, Y)
  Label1.Caption=X
  Label2.Caption=Y
End Sub
Private Sub proc(a As Integer, ByVal b As Integer)
  X=a*a
  Y=b+b
End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是（    ）。		 查看答案
单选题 在窗体上有两个名称分别为 Text1、Text2 的文本框，一个名称为 Command1 的命令
按钮。运行后的窗体外观如图所示。
   
设有如下的类型和变量声明：
Private Type Person
  name As String*8
  major As String*20
End Type
Dim p As Person
设文本框中的数据已正确地赋值给 Person 类型的变量 p，当单击“保存”按钮时，能
够正确地把变量中的数据写入随机文件 Test2.dat 中的程序段是（    ）。		 查看答案
单选题 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编
写如下事件过程：
Private Sub Command1_Click( )
  Dim i As Integer, n As Integer
  For i=0 To 50
    i=i+3
    n=n+1
    If i>10 Then Exit For
  Next
  Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是（    ）。		 查看答案
单选题 假定有以下循环结构
Do Until  条件表达式
循环体
Loop
则以下正确的描述是（    ）。		 查看答案
单选题 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
  Dim I, Num
  Randomize
  Do
    For I=1 To 1000
      Num=Int(Rnd*100)
      Print Num;
      Select Case Num
        Case 12
          Exit For
        Case 58
          Exit Do
        Case 65, 68, 92
          End
      End Select
    Next I
  Loop
End Sub
上述事件过程执行后，下列描述中正确的是（    ）。		 查看答案
单选题 在窗体上画一个名为 Command1 的命令按钮，然后编写如下代码：
Option Base 1
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
运行上面的程序，其输出结果是（    ）。		 查看答案
单选题 设有如下通用过程：
Public Function Fun(xStr As String)As String
  Dim tStr 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 Command1_Click( )
  Dim S1 As String
  S1="abcdef"
  Print UCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，输出结果是（    ）。		 查看答案
单选题 某人为计算 n!(0<n<=12)编写了下面的函数过程：
Private Function fun(n As Integer) As Long
  Dim p As Long
  p=1
  For k=n-1 To 2 Step-1
    p=p*k
  Next k
  fun=p
End Function
在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有
3 种是正确的，错误的方案是（    ）。		 查看答案
单选题 假定有以下函数过程：
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 Str1 As String, Str2 As String
Str1=InputBox("请输入一个字符串")
Str2=Fun(Str1)
Print Srt2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确
定”按钮后在窗体上的输出结果为（    ）。		 查看答案
单选题 为计算 a 的值，某人编写了函数 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 个是正确的，错误的一个是（    ）。		 查看答案
单选题 某人编写了下面的程序
Private Sub Command1_Click( )
  Dim a As Integer, b As Integer
  a=InputBox("请输入整数")
  b=InputBox("请输入整数")
  pro a
  pro b
  Call pro(a+b)
End Sub
Private Sub pro(n As Integer)
  While (n>0)
    Print n Mod 10;
    n=n\10
  Wend
  Print
End Sub
此程序功能是：输入 2个正整数，反序输出这 2 个数的每一位数字，再反序输出这 2
个数之和的每一位数字。例如：若输入 123 和234，则应该输出：
3 2 1
4 3 2
7 5 3
但调试时发现只输出了前 2 行（即2 个数的反序），而未输出第 3 行（即2 个数之和
的反序），程序需要修改。下面的修改方案中正确的是（    ）。		 查看答案
单选题 下列数据结构中，属于非线性结构的是 查看答案
单选题 下列数据结果中，能够按照“先进后出”原则存取数据的是 查看答案
单选题 对于循环队列，下列叙述中正确的是 查看答案
单选题 算法的空间复杂度是指 查看答案
单选题 软件设计中划分模块的一个准则是 查看答案
单选题 下列选项中不属于结构化程序设计原则的是 查看答案
单选题 软件详细设计产生的图如下：
  
该图是		 查看答案
单选题 数据库管理系统是 查看答案
单选题 在E-R图中，用来表示实体联系的图形是 查看答案
单选题 有三个关系R，S和T如下：

  
其中关系T由关系R和S通过某种操作得到，该操作为		 查看答案
单选题 以下变量名中合法的是 查看答案
单选题 把数学表达式 图1 表示为正确的VB表达式应该是 查看答案
单选题 下面有关标准模块的叙述中，错误的是 查看答案
单选题 下面控件中，没有Caption属性的是 查看答案
单选题 用来设置文字字体是否斜体的属性是 查看答案
单选题 若看到程序中有以下事件过程，则可以肯定的是，当程序运行时
Private Sub Click_MouseDown(Button As Integer,_Shift As Integer,X As Single,Y As Single)
Print “VB Program”
End Sub		 查看答案
单选题 可以产生30-50（含30和50）之间的随机整数的表达式是 查看答案
单选题 在程序运行时，下面的叙述中正确的是 查看答案
单选题 窗体上有名称为Command1的命令按钮和名称为Text1的文本框
Private Sub Command1_Click()
Text1.Text=”程序设计”
Text1.SetFocus
End Sub
Private Sub Text1_GotFocus()
Text1.Text=”等级考试”
End Sub
运行以上程序，单击命令按钮后		 查看答案
单选题 设窗体上有名称为Option1的单选按钮，且程序中有语句：
If Options.Value=True Then
下面语句中与该语句不等价的是		 查看答案
单选题 设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100。下面叙述正确的是 查看答案
单选题 有如下过程代码：
Sub var_dim()
Static numa As Integer
Dim numb As Integer
numa=numa+2
numb=numb+1
print numa;numb
End Sub
连续3次调用var_dim过程，第3次调用时的输出是		 查看答案
单选题 在窗体上画1个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
For i=5 to 1 step -0.8
Print Int(i);
Next i
End Sub
运行程序，单击命令按钮，窗体上显示的内容为		 查看答案
单选题 在窗体上画1个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
Dim a(3,3)
For m=1 To 3
For n=1 To 3
If n=m Or n=4-m Then
a(m,n)=0
End If
Print a(m,n);
Next n
Print
Next m
End Sub
运行程序，单击命令按钮，窗体上显示的内容为		 查看答案
单选题 设有以下函数过程
Function fun(a As Integer,b As Integer)
Dim c As Integer
If a<b Then
c=a:a=b:b=c
End If
c=0
Do
c=c+a
Loop Until c Mod b=0
fun=c
End function
若调用函数fun时的实际参数都是自然数，则函数返回的是		 查看答案
单选题 窗体上有1个名称为Text1的文本框；1个名为Timer1的计时器控件，其Interval属性值为5000，Enable属性值是True。Timer1的事件过程如下：
Private Sub Timer1_Timer()
Static flag As Integer
If flag=0 Then flag=1
flag=-flag
If flag=1 Then
Text1.ForeColor=&HFF&  ‘&HFF&为红色
Else
Text1.ForeColor=&HC000& ‘&HC000&为绿色
End If
End Sub
以下叙述正确的是		 查看答案
单选题 为计算1+2+22+23+24+…+210的值，并把结果显示在文本框Text1中，若编写如下事件过程：
Private Sub Command1_Click()
Dim a%,s%,k%
s=1
a=2
For k=2 To 10
a=a*2
s=s+a
Next k
Text1.Text=s
End Sub
执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是		 查看答案
单选题 标准模块中有如下程序代码：
Public x As Integer,y As Integer
Sub var_pub()
x=10:y=20
End Sub
在窗体上有1个命令按钮，并有如下事件过程：
Private Sub Command1_Click()
Dim x As Integer
Call var_pub
x=x+100
y=y+100
Print x;y
End Sub
运行程序后单击命令按钮，窗体上显示的是		 查看答案
单选题 设a、b都是自然数，为求a除以b的余数，某人编写了以下函数：
Function fun(a As Integer,b As Integer)
While a>b
a=a-b
Wend
fun=a
End Function
在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是		 查看答案
单选题 下列关于通用对话框CommonDialog1的叙述中，错误的是 查看答案
爱查询
Copyright © 2021-2024 苏ICP备2023055430号-2
本站部分内容来自互联网，版权归原作者所有，如有侵权请联系我们。联系QQ：26051639