VB基础练习五
1、图形符号"          "在算法流程图描述中表示( B  ).
A 处理或运算的功能            B 输入输出操作
C 用来判断条件是否满足需求    D 算法的开始或结束
2、图形符号"          "在算法流程图描述中表示( A  ).
A 处理或运算的功能            B 输入输出操作
C 用来判断条件是否满足需求    D 算法的开始或结束
3、以下哪个是算法的描述方法?(  A  )
A 流程图描述法    B 枚举法    C 顺序法      D 列表法
4、以下哪个是算法的描述方法?( D  )
A 顺序法  B 列表法  C 集合法    D 自然语言描述法
5.介于自然语言和计算机语言之间的一种算法描述是下列哪个选项？（ C  ）
A、伪代码  B、流程图  C、高级语言  D、VB 程序设计语言
6、下列关于程序设计说法正确的是( D  )。
A、程序设计语言的发展经历了机器语言、汇编语言到高级语言的过程，比较流行的高级语言是PASCAL, FORTRAN, EXCEL, C++等
B、程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机可以执行的程序的过程
C、程序设计语言和计算机语言是同一个概念的两个方面
D、程序设计就是指示计算机如何去解决间题或完成一组可执行指令的过程
7、下列说法错误的是（D ）.
A、程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机可以执行的程序的过程
B、程序设计语言的发展经历了机器语言、汇编语言、高级语言的过程
C、计算机程序就是指计算机如何去解决间题或完成一组可执行指令的过程
D、程序设计语言和计算机语言是同一概念的两个方面
8、下列不属于程序设计语言中高级语言的是（ A  ）。
A、BASIC  B、C语言  C、汇编语言  D、PASCAL
9、在VB 语言中，下列合法的变量名是（ B    ）。
A、34ab  B、ab34    C、basic语言属于高级语言*abc    D、c\c
10、下列选项中属于字符串常量的是（C  ）。
A、ab  B、a+b    C、"1235"    D、1235
11、在VB 语言中，下列合法的变量名是（A  ）。
A、aa  B、a*b  C、7ab    D、dim
12、下面表达式的值是false的有( C  ).
A、"969" < "n97"         B、Int(4.99) <> len("basic")
C、str(2000) < "1997"    D、3 > 2
13、下列逻辑表达式的值为“假”的是（ A  ）。
A、2 + 4 > 8  B、3 + 12 = 15  C、5 > 0 And 4 > 3  D、10 / 5 <3
14、下列逻辑表达式的值为“假”的是（D  ）。
A、3 + 5 > 7    B、8 / 4 < 4  C、5 > 3 And 3 > 2    D、4 + 11 > 20
15、已知A，B，C，D 是简单变量，且都已有互不相同的值，执行语句A=C: D=B 后，下列 关系表达式逻辑值为“真”的是（A  ）。
A、C=A  B、A=B    C、D=C    D、B=C
16、设a=2, b=3,在VB中，表达式a>b Or b>3值是:( A    )
A、False  B、True  C、-1  D、1
17、VB的字符串运算符是“&”，该运算符主要用于连接两个或更多的字符串。如："abcd" & "efg"  连接后的运算结果为："abcdefg"。那么，"1+2" & "3"的运算结果为：（A  ）。
A、33    B、6      C、"1+23"      D、True
18、在VB语言中，表示“a大于0且b小于12”的正确表达式是（ D  ）。
A、b<12 or a > 0    B、b > 12 And a < 0  C、a > 12 Or a < 0    D、a > 0 And b < 12
19、函数mid (C,N1,N2)的作用是从字符串C中N1位开始取出长度为N2 的子串。那么， Mid ("aBcDeFg", 3, 3)的值为（D    ）。
A、aBc    B、cde      C、eFg    D、cDe
20、、以下是一段Visual Basic程序:
      If I=1 Then
          X=X+1
      Else
          X=X*2
      End If
它的基本结构属于( A  ).
A、选择结构    B、循环结构  C、顺序结构    D、树型结构
21、向x变量中输入任意一个小写字母，再将x变量中的小写字母转成大写字母。正确的算法是(  A  ).
选项:
A、①输人字母到x ②a=Asc(x)-32 ③x=chr(x) ④Print x
B、①输人字母到x ②a=Asc(x)+32 ③x=chr(x) ④Print x
C、①输人字母到x ②a=Val(x)一32 ③x=Chr(x) ④Print x
D、①输人字母到x ②a=Val(x)+32 ③x=Chr(x) ④Print x
22、.在VB中，表达式Mid("程序设计",2,2)的结果是(C    )
A.程    B.序    C.序设    D.出错
23、系统日期的函数是（ C  ）
A. data　 B. time　 C. date　 D. gettime
24、Visual Basic规定工程文件的扩展名是（B  ）
A. .for　 B. .frm　 C. .vbp　 D. .bas
25、 Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是(A )
A．属性、事件、方法      B．控件、属性、事件
C．窗体、控件、过程      D． 窗体、控件、模块
二、完善程序（卓帆第八、九套）
1、用递归法求1+2+3+…+100的值。
Public Function S(n As Integer) As Integer
    If n = 1 Then
        S =1
    Else
        S = n + S(n - 1)
    End If
End Function
Private Sub Command1_Click()
    Dim Sum  As Integer
    Sum = S(100)
    Print "Sum=" & CStr(Sum)
End Sub
2、暑假，小明的阿姨带着一个小弟弟到小明家玩，这个小弟弟开学就要上一年级，阿姨交了一个任务给小明，要他每天出20道一位数的加法题给小弟弟做，做完后还要帮小弟弟批改。小明自己的作业也很多，他不想每天花许多时间去重复出题、改题的工作，于是他想到了用计算机帮他出题并批改。
实现功能：当单击“出题”按钮后，在Label1和Label2中各显示一个随机的一位整数，当在Text1中输入一个结果并单击“判断”按钮后，在Label3中显示“正确”或“错误”。
Dim a, b, c, x, n As Integer
Private Sub Command1_Click()
    Randomize
    Label6.Caption = "第" & n & "道题"
    a = Int(Rnd * 10)
    b = Int(Rnd * 10)
    Label1.Caption = a
    Label2.Caption = b
    n = n + 1
End Sub
Private Sub Command2_Click()
    c = a + b
    x = Val()
    If c = X Then
        Label3.Caption = "正确"
    Else
        Label3.Caption = "错误"
    End If
End Sub
Private Sub Form_Load()
    print
End Sub
3、假设有一个5位数密码，只记得密码为67- -8，其中百位和十位的数字记不清楚了，但知道该数能够被78整除，也能被67整除，请帮忙出密码。
Private Sub Command1_Click()
  Dim x As Long
  For x = 67008 To 67998 Step 10
    If (x Mod 67 = 0) and (x Mod 78 = 0) Then
      Print x
    End If
Next i
End Sub
4、从文本框t1中输入一个圆的半径，计算圆的面积，把结果输出到文本框t2中。
Private Sub Command1_Click()
    Const pi = 3.14
  Dim  r, s as Single
    r = Val()
    s = pi * r * r
    T2.Text = s
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。