VB模拟考

最新推荐文章于 2021-07-23 18:30:42 发布

xsh118

最新推荐文章于 2021-07-23 18:30:42 发布

阅读量351

点赞数

文章标签：调用同一二个

1，有语句 Print val(“123ABC456”) 履行后,显示的是 (     B )
   A.”123ABC456” B. 123
   C.123ABC456    D.123456
2.下列语句中循环体的履行次数是（ A ）
   a=3 : b=1
For I=b to a step -1
Print I
Next I
A．0        B．1        C．2        D．3
3.文本框Text1的KeyDown事件过程如下：
Private　Sub　Text1_KeyDown(KeyCode　As　Integer,　Shift　As　Integer)
　　　　　　　…
End　Sub
其中参数KeyCode的值表示的是发生此事件时（　C　　）。
A）是否按下了Alt键或Ctrl键　       　　B）按下的是哪个数字键　　
C）所按下的键盘键的键码　　　　　　　　　D）按下的是哪个鼠标键
4. 若已把一个命令按钮的Default属性设置为True，则下面可导致按钮的Click事件过程被调用的操纵是（　C　　）。
A）用鼠标右键单击此按钮　　　　   　 B）按键盘上的Esc键　　
C）按键盘上的回车键　　　　　　　　　D）用鼠标右键双击此按钮

5，窗体上有一个文本框Text1,程序运行后，要求该文本框只能显示信息，没有能接受输入的信息，以下能实现该操纵的语句是（ B   ）。
A.Text1.MaxLength=0          B.Text1.Enabled=False
C.Text1.Visible=False        D.Text1.Width=0
6，将组合框1当前选择的项目内容赋值给变量A，语句是（     A    ）。
A．A= Combo1.Text      B．A= Combo1.Value
C．A= List1.Text       D．A= List1.Value
7，表达式3+5 \ 6 * 7 / 8 Mod 9 的值是： (   A )
A. 4   B. 5
C. 6   D. 7
8，控件数组共用事件和门径，区分控件元素需要引用控件的（ A ）下标属性。
    A．Index       B．Name
C．Caption     D．Visible
9，窗体上有一个名称为Hscroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置（即刻度值）。下面能够实现上述操纵的事件过程是（　A　　）。
A）　　Private　Sub　Hscroll1_Change()
　　　Print　Hscroll1.Value
End　Sub
B）　　Private　Sub　Hscroll1_Change()
　　　Print　Hscroll1.SmallChange
End　Sub
C）Private　Sub　Hscroll1_Scroll()
　　　Print　Hscroll1.Value
End　Sub
D）Private　Sub　Hscroll1_　Scroll　()
　　　Print　Hscroll1.　SmallChange
End　Sub
10，以下叙述中错误的是（　D　　）。
A）标准模块文件的扩展名是.bas　　　
B）标准模块文件是纯代码文件　
C）在标准模块中声明的全局变量可以在整个工程中使用　　　　　　　　
D）在标准模块中没有能定义过程
11，若非诚勿扰要隐藏窗体，实现的语句为（     A     ）。
A. hide        B. show        C. load          D. unload
12，以下选项中，没有合法的Visual　Basic的变量名是（　　B　）。
A）a56　　　B）_xyz　　　C）a_b　　　D）andif
13，在窗体上中添加一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
x=InputBox("Input")
Select Case x
Case 1,3
Print "分支 1"
Case Is >4
Print "分支 2"
Case Else
Print "Else 分支 "
End Select
End Sub
程序运行后，如果在输入对话框中输入2，则窗体上显示的是（   C ）。
A. 分支1       B. 分支2        C. Else分支       D. 程序失足
14，以下程序段履行的成果是 (   A    )
a=0 : b=1
Do
  a=a+b
  b=b+1
Loop While a<10
Print a;b
    A.10 5          B.a b
C.0 1     D.10 30
15，设a=“Visual Basic”，下面使b=“Basic”的语句是（ B   ）。
A. b=Left(a,8,12)     B. b=Mid(a,8,5)
C. b=Rigth(a,5,5)     D. b=Left(a,8,5)
16，语句Print 8\2*3+1的运行成果是（    C    ）。
A. 0                 B. 1
C. 2                 D. 3
17，设窗体上有一个标签Label1和一个计时器Timer1，Timer1的Interval属性被设置为1000，Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是（　B　　）。
A）　　Private　Sub　Timer1_Timer()
　　　Label1.Caption=True
End　Sub
B）　　Private　Sub　Timer1_Timer()
　　　Label1.Caption=Time$
End　Sub
C）Private　Sub　Timer1_Timer()
　　　Label1.Interval=1
End　Sub
D）Private　Sub　Timer1_Timer()
　　 For　k=1　To　Timer1.Interval　　
Label1.Caption=Timer
　　 Next　k
End　Sub
　　 Text1.Text　=　"Visual　Basic"
18. Visual Basic是一种面向对象的可视化程序语言，采用了事件驱动的编程机制。（    T    ）
19，在 For <控制变量>＝<初值> To <终值> [Step <步长>] 结构中，循环次数为 Int((终值－初值)/步长+1)。                                           （ T ）
20，数组是用一个统一的名字,没有同下标表示的,顺序排列的一组变量。   （ T ）
21，数组是一组具有同一名字、没有同下标的下标变量。            （    T    ）
22，在同一过程中，数组与简单变量允许同名。                     （ F   ）
23，InputBox 函数和MsgBox 函数一样，返回的是字符串。           （ F ）
24. 在VB中，设置或修改一个对象的属性的门径有两种，它们分别是属性窗口修改，命令修改或语句修改。                                           （     T   ）
25，设置属性的语句花式为：“对象名.属性名＝属性值”。             ( T )

26下列程序段的履行成果为。

答案：3 2 1

答案：P=M mod N

28. 程序如下，当运路程序后，单击窗体，显示的成果是（）
Private Sub Form_Click()
Dim x As Integer, y As Integer
a% = 8
b = 3
Call test(6, a, b + 1)
Print "主程序"; 6; a; b
End Sub
Sub test(x As Integer, y As Integer, z As Integer)
x = 2
y = 4
z = 9
End Sub
答案：主程序 6 4 3

29. 下列程序段的履行成果为_________。

答案：2 3 4

30，从键盘输入若干个学生的考试成果，统计并输出最高分和最低分，当输入负数时结束输入，输出成果。请补充完整。

答案：x < min
min > x
31，小猴子有若干桃子，第一天吃掉一半多一个；第二天吃掉剩下的一半多一个；……如此，到第七天早上要吃时，只剩下一个桃子。问小猴子一开始共有几何个桃子？
private sub form_click()
   Dim n%,i%
   x=1
   Print "第7天桃子个数：1个"
   for i=6 to 1 step -1
      _______________
      print "第" & i & "天桃子数：" & x & "个"
   next i
end sub
答案：x=(x+1)*2
x=2*(x+1)
32，如下程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcde"，单击"确定"按钮后在窗体上的输出成果为（）。

答案：EDCBA

答案：27

27. 输入二个正整数N、N ，用辗转相除法求它们的最年夜公约数P。
   Sub command1_click()
        Dim M%,N%
        M=val(inputbox(“M=”))
        N=val(inputbox(“N=”))
        Do

        M=N
        N=P
        Loop While P<>0
        P=M
        Print P
End sub

34，有过程swap，其功能为交换一维数组，即第一个与最后一个元素交换，第二个与倒数第二个元素交换，……请填空。
Sub swap( a() as integer)
     M= Lbound(a)
     N= Ubound(a)
     J=0
     For k=M to (N-M+1)/2

    a(k)= a(N-J)
            a(N-J)= T
         J=J+1
     Next
End sub
答案：T=a(M+J)

35，下列程序段的履行成果为。
　　

答案：2
36. 以下程序的运行成果为。

答案：7

37. 下列程序段的履行成果为。

答案：28

38．计算并输出数组Arr中10个数的正数之和pos与负数之和neg，程序如下，请补
充完整。
答案：neg=neg+arr(k)

33，下列程序段的履行成果为。

39，编写判断奇偶性的function函数，在主过程输入一个整数，调用该函数计算，成果在主过程输出
Private Sub Command1_Click()
Dim a As Integer
Dim x As Integer
Dim m As Integer
a = Val(InputBox("输入a="))

x = ff(a)
If x = 0 Then
     Print a; "是偶数"
Else
     Print a; "是奇数"
End If
End Sub
Function ff(b As Integer) As Integer
Dim t As Integer
If b Mod 2 = 0 Then
     t = 0
    Else
     t = 1
End If
ff = t
   End Function

40，随机产生10个【10 ，50】之间的整数，用冒泡排序法对其进行排序。
Private Sub Command1_Click()
   Dim t As Integer
   Dim a(1 To 10) As Integer
   For i = 1 To 10
      a(i) = Int(Rnd * 41 + 10)
   Next i
   For i = 1 To 9
      For j = i + 1 To 10
         If a(i) > a(j) Then
            t = a(i)
            a(i) = a(j)
            a(j) = t
         End If
      Next j
   Next i
   For i = 1 To 10
      Print a(i);
   Next i
End Sub

42，主过程（如command_click）输入一行字符，编写一个子过程，该过程实现分别统计出其中英文字母、空格、数字、和其他字符的个数。
Private Sub Command1_Click()
Dim a As String
Dim b As String
b = InputBox("输入b=")
Print b
a = ff(b)
End Sub
Function ff(x As String) As String
Dim letter As Integer
Dim num As Integer
Dim ot As Integer
Dim sq As Integer
For i = 1 To Len(x)
   Select Case Mid(x, i, 1)
      Case "a" To "z", "A" To "Z"
         letter = letter + 1
      Case "0" To "9"
         num = num + 1
      Case " "
         sq = sq + 1
      Case Else
         ot = ot + 1
      End Select
Next i
Print "字母个数"; letter, "数字个数"; num, "空格格数"; sq, "其他字符个数"; ot
End Function

43，计算0～99范围内有几何个数，其每位数的乘积年夜于每位数的和。
    Private sub command1_click()
      For i =0 to 99
          a =i mod 10
          b= i\10
          if a*b>a+b then
          n = n+1
       end if
next i
print n
End sub

44. 编程完成计算并输出1+3+5+7+……+99之和。
Private sub command1_click()
Dim i as integer,sum as integer
i = 1
sum = 0
   do while i <= 99
     sum = sum + i
   i =i +2
loop
print sum
end sub

41，在窗体上输出一个n行、n列、主对角线和次对角线元素为1，其余元素均为零的矩阵。n由用户指定
Option base 1
Private sub command1_click()
Dim a()
Dim n as integer
n=inputbox(“”)
redim a(n,n)
for i =1 to n
for j= 1 to n
     if i = j or i+j=n+1 then
      print a(i,j)=1
else
print a(i,j)=0
     end if
    next j
   next i
for i=1 to n
for j=1 to n
if j=n then
print a(I,j);
   print
else
   print a(I,j);
end if
next j
   next i
End sub

xsh118

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
VB模拟考

1，有语句 Print val(“123ABC456”) 履行后,显示的是 ( B ) A.”123ABC456” B. 123 C.123ABC456 D.1234562.下列语句中循环体的履行次数是（ A ） a=3 : b=1For I=b to a step -1Print I Next I A．0 B
复制链接

扫一扫