• 1、输入两个数(a,b),输出最大数(max);根据题意完成流程图,并将对应的程序填充完整

    (1)、完成流程图

     ② ③ ④

    (2)、将对应的程序填充完整

    说明:text1.text、text2.text、text3.text分别表示a,b,max的值

    Private Sub Command1_Click()

        Dim a AS Integer, b AS Integer

        Dim max AS Integer

        a= 

        b=

        If  then

           

        Else

           

       

    End Sub

  • 2、请在原程序上指出本程序的语法错误,并写出程序结果

    Private Sub Command1_Click()

        Dim x As Integer

        x = Val(Text1.Text)

        Select Case x

        Case Is >= 450

            Text2.Text = "优秀"

        Case Is >= 400

            Text2.Text = "良好"

        Case Is > 350

            Text2.Text = "中等"

        Case Is >= 300

            Text2.Text = "及格"

        Case Else

            Text2.Text = "不及格"

        End Select

    End Sub

    语法错误:

    该程序运行后,若在文本框中输入350,则输出为:

  • 3、VB中我们常常会碰到控件属性及数据类型的使用,请将下列名称与功能正确连接:

    FontSize             文本颜色

    ForeColor            标题

    Caption              单精度实数

    Single               字体大小

    Font                 字体

  • 4、以下一段VB程序运行后,Y的值是( )

    Dim Y As Integer

    Y=0

    Do While Y<30

        Y=(Y+2)*(Y+3)

    Loop

    A、60 B、72 C、34 D、156

  • 5、请选出下列书写正确的语句( )
    A、p=5 (a+b+p) B、if a>0 then b=b+1

    C、t1.text=”请输入密码:” D、For i=1 to 10 do j=j*2

  • 6、下列哪个属于程序设计的基本结构(  )
    A、顺序结构 B、链接结构 C、分支结构 D、循环结构

  • 7、小明要用VB语句描述“AB”是小于100的非负数,正确的是(  )
    A、0<=AB<100

    B、0<=AB Or x<100

    C、0<=AB And AB<100

    D、0≤AB<100

  • 8、下列属于正确的VB赋值语句的是(  )
    A、var=Text1.Text

    B、x+y=3

    C、Label1.Caption=“hello”

    D、-x=b

  • 9、VB启动后,它的工作环境中的窗体,可用作定制应用程序界面的窗口,保存窗体后它的文件扩展名是( )
    A、.frm B、.exe C、.vbp D、.pdf

  • 10、小明想学习一种计算机高级语言,下列哪个属于高级语言(  )
    A、photoshop

    B、汇编语言

    C、Visual Basic

    D、flash

  • 11、在VB程序设计阶段,当双击窗体上的某个控件时,所打开的窗口是( )
    A、工程资源管理器窗口

    B、工具箱窗

    C、代码窗口

    D、属性窗口

  • 12、a表示“处理框”,b表示“输入、输出框”,c表示“起、止框”,d表示“判断框”,以下四个图形依次为 (  )

      ②   ③   ④

    A、abcd B、dcab C、bacd D、cbad

  • 13、在VB程序中能把数值型转换为字符型需要使用的函数是( )
    A、Str B、Val C、Chr D、Sqr
  • 14、计算1到100之和,欲设计的界面如下:

    图片_x0020_2

    (1)、设置部分对象及其属性如下表:

    对象名

    属性名

    属性

    Command1

    计算

    (2)、编写代码:

    Private Sub Command1_Click()

        Dim i, s As Integer

        s =

        For i = 0 To 100 Step 1

           

        Next i

        Label2.Caption = Str(s)

    End Sub

  • 15、变量a,b,c分别保存一元二次方程的二次项、一次项系数和常数项(其中a≠0),变量x1和x2分别保存方程的两个根。完善下列程序,使程序运行时能根据方程的a,b,c值计算根并输出相应信息。

    d=

    if d>0 then

        x1= (-b + Sqr(d)) / (2 * a)

        x2=

        text4.text=str(x1)

        text5.text=str(x2)

        label6.caption=“有两个不同的实数根”

    else

        if  then

            x1=(-b)/(2*a)

            x2=x1

            text4.text=str(x1)

            text5.text=str(x2)

            label6.caption=“有两个相同的实数根”

        else

            text4.text=

            text5.tex

            label6.caption=

        end if

    end if

  • 16、根据流程图回答问题

    (1)、上面流程图执行后,输出的变量t的结果是什么?
    (2)、上面的流程图表示的是程序的哪种结构?
  • 17、在VB中,对于语句If I=1 Then J=1 else J=2,下列说法正确的是(    )
    A、I=1 和 J=1 都是赋值语句

    B、J=1 和 J=2 都是关系表达式

    C、I=1为关系表达式,J=1为赋值语句

    D、J=1为赋值语句,J=2为关系表达式

  • 18、下列关于算法的描述,正确的是(    )
    A、描述算法的方法只能是流程图

    B、算法过程要一步一步执行,每一步执行的操作必须确切,不能含混不清,而且经过有限步或无限步后能得出结果

    C、同一种算法只能用一种程序语言来实现

    D、算法是描述解决问题的方法和步骤

  • 19、小明用计算机解决数值交换问题时经历了若干阶段,其中设计算法属于(    )
    A、“分析问题确定要用计算机做什么”阶段

    B、“寻找解决问题的途径和方法”阶段

    C、“用计算机进行处理”阶段

    D、“运行调试”阶段

  • 20、在Visual Basic中,如果给变量a、b都赋值为3,则下列语句正确的是(    )
    A、a=3:b=3 B、a=b=3 C、a=3,b=3 D、a=3;b=3

1 2 3 4 5 下一页 跳转