相关试卷

1、表达式3∧2 * 2+3 Mod 104的值是（）

A、18 B、21 C、19 D、0

查看解析
2、下列表达式的值为2123的是（）

A、Val("123asd")&2000 B、Val("123asd")+2000 C、Str(123)&"2000" D、Str(123)+"2000"

查看解析
3、设S=“中华人民共和国”，表达式Left（S，1）+Right（S，1）+Mid（S，3，2）的值为（）

A、“中华民国” B、“中国人民” C、“中共人民” D、“人民共和”

查看解析
4、假设变量bool_x是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是（）

A、bool_x="False" B、bool_x=.False. C、bool_x=#False# D、bool_x=False

查看解析
5、下列属于非法调用的函数是（　　）。

A、sqr(-5) B、Sgn(-5) C、Exp(-5) D、Int(-5)

查看解析
6、确定控件在窗体上位置的属性是（　　）。

A、Width 和 Height B、Width 和 Top C、Top 和 Left D、Top 和Height

查看解析
7、下列不是VB常量的是（　　）。

A、3.14 B、′Name ′ C、#10/18/2007# D、True

查看解析
8、在 VB的基本数据类型中以下（　　）占4字节内存空间。

A、整型 B、布尔型 C、日期型 D、单精度型

查看解析
9、用来将数值转换为字符串类型的函数是（）

A、Chr ( ) B、Asc( ) C、Str ( ) D、Val( )

查看解析
10、下列选项中，把r定义为双精度型变量的是（）

A、r% B、r! C、r# D、r$

查看解析
11、以下声明语句中错误的是（）

A、Const var1=123 B、Dim var2 = 'ABC' C、public a，b as integer D、Dim var3 As Integer

查看解析
12、下列可以作为Visual Basic的变量名的是（）

A、FileName B、a(A+b) C、23D D、Print

查看解析
13、与传统的程序设计语言相比，Visual Basic 最突出的特点是（）

A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术

查看解析
14、输入三个数，按从小到大的顺序输出。
DIM A AS INTEGER, B AS INTEGER

DIM C AS INTEGER

A= VAL（INPUTBOX（“请输入第一个数”））

B= VAL（INPUTBOX（“请输入第二个数”））

C= VAL（INPUTBOX（“请输入第三个数”））

IF A>B THEN

    T=A

    A=B

    B=T

IF A>C THEN

    T=A

   A=C

   C=T

IF THEN

    PRINT   A，B，C

PRINT A，C，B

END IF

查看解析
15、输入X，求 $Y = \{\begin{cases} \begin{matrix} 5 \\ 4 \\ 3 \end{matrix} & \begin{matrix} (x > = 1000) \\ (1000 > x > = 800) \\ (800 > x > = 500) \end{matrix} \\ \begin{matrix} 2 \\ 1 \\ 0 \end{matrix} & \begin{matrix} (500 > x > = 200) \\ (200 > x > = 0) \\ (x < 0) \end{matrix} \end{cases}$
PRIVATE SUB FORM_CLICK( )

    DIM X AS SINGLE, Y AS INTEGER

    X=VAL(TEXT1.TEXT)

    IF X>=1000 THEN

        Y=5



        Y=4



        Y=3



        Y=2



        Y=1



        Y=0

    END IF

    PRINT “Y=”;Y

END SUB

查看解析
16、下面程序输入X的值，按以下公式求Y的值。
$Y = \{\begin{matrix} \begin{array}{l} 100 - X & - 100 ⩽ X < 0 \end{array} \\ \begin{array}{l} 100 + X & 0 \leq X \leq 100 \end{array} \\ \begin{array}{l} 400 & 100 < X \leq 200 \end{array} \end{matrix}$

Private Sub Command1_Click( )

    X=Val(Text1.Text)

   Select Case X

        Case

            Print “出错”

        Case Is<0

            Y=100-X

        Case 0 To 100

            Y=100+X

        Case

            Y=400

    End Select

    Text2.Text=X

End Sub

查看解析
17、求2+4+6+8+10+12+14+……100
PRIVATE SUB FORM_CLICK( )

    DIM I AS INTEGER，S AS INTEGER

    FOR I= 2 TO 100

        S=S+

    NEXT I

    PRINT S

END SUB

查看解析
18、输入一个成绩，若大等90显示“优”，否则若大等80显示“良”，否则若大等70显示“一般”，否则若大等60显示“及格”，否则显示“不及格”
PRIVATESUB FORM_CLICK( )

    DIM X AS SINGLE

    X=VAL（INPUTBOX（“请输入一个成绩”））

    SELECT CASE

        CASE

            PRINT “优”

        CASE

            PRINT “良”

        CASE

            PRINT “一般”

        CASE

            PRINT “及格”

        CASE

            PRINT “不及格”



END SUB

查看解析
19、清除窗体上的内容，清除TEXT1中的内容，清除LABEL2上的内容.
PRIVATE SUB FORM_CLICK( )







END SUB

查看解析
20、输入两个数，交换后在窗体上输出这两个数.
PRIVATE SUB FORM_CLICK( )

    A=VAL(INPUTBOX(“请输入第一个数”))

    B=VAL(INPUTBOX(“请输入第二个数”))

    T=A







END SUB

查看解析

上一页 508 509 510 511 512 下一页跳转