相关试卷

  • 1、窗体上有一个图片框Picture1,两个命令按钮Command1和Command2,如图所示。当单击命令按钮Command1时,在图片框中画出正弦函数,当单击命令按钮Command2时,清空图片框中的图像,请填空。

    Private Sub Command1_Click()

        Picture1.Scale (-6, 6)-(6, -6)

        Picture1.DrawWidth = 5

        For i = -6 To 6 Step 0.0001

            Picture1.  (i,)

           

    End Sub

    Private Sub Command2_Click()

        Picture1.

    End Sub

  • 2、下面过程max()用于求3个数中的最大值,利用这个过程求5个数中的最大值,请填空。

    Private Sub Command1_Click( )

        Print “5个数34、124、68、73、352的最大值是:”

        Max1 = max(34,124,68)

        Max1 =

        Print Max1

    End Sub

    Public Function max(ByVal a%,ByVal b%,ByVal c%)

        If   Then

            M = a

        Else

            M = b

        End If

        If  Then

            Max = m

        Else

           

        End If

    End Function

  • 3、在过程调用中,参数的传递可分为传递和传递两种方式。
  • 4、如果列表框的ListCount属性为20,则列表框的最后一项的Listindex值为
  • 5、根据数组中元素的个数是否可以变化,数组分为数组和数组。
  • 6、Visual Basic提供了结构化程序设计的三种基本结构,三种基本结构是
  • 7、VB中的变量如果没有显示声明其数据类型,则默认为
  • 8、产生一个[20,50]范围内的随机数的表达式是
  • 9、在VB中设计程序时,能自动被检查出来的错误是(     )
    A、语法错误 B、语法错误和逻辑错误 C、运行错误 D、逻辑错误
  • 10、以下程序的运行结果是(    )

    Private Sub Form_Click( )

        a= 1: b= 1

        Print"A="; a; "B="; b

        Call mult(a, b)

        Print"A=";a; "B=";b

    End Sub

    Sub mult(x, y)

        x=2* x

        y=3*y

    End Sub

    A、A=1 B=1

    A=1 B=1

    B、A=1 B=1

    A=1 B=3

    C、A=1 B=1

    A=2 B=3

    D、A=1 B=1

    A=2 B=1

  • 11、在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编如事件过程:

    Private Sub Command1_Click()

        Dim array1(10, 10) As integer

        Dim i As integer, j As integer

        For i= 1 To 4

            For j= 2 To 5

                Array1(i, j)=i+j

            Next j

        Next i

        Text1.Text = array1(2, 5) + array1(3, 4)

    End Sub

    程序运行后,单击命令按钮,在文本框中显示的值是(    )

    A、15 B、14 C、13 D、12
  • 12、在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:

    Private Sub Command1_Click()

        n = Val(Text1.Text)

        For i=2 To n

            For j= 2 To sqr(i)

                If i Mod j=0 Then Exit For

            Next j

            If j>Sqr(i) Then Print i

        Next i

    End Sub

    该事件过程的功能是(    )

    A、输出n以内的奇数 B、输出n以内的偶数 C、输出n以内的素数 D、输出n以内能被j整除的数
  • 13、在窗体上画一个命令按钮(其NAME属性为Command1),然后编写如下代码

    Option Base 1

    Private Sub Command1_Click()

        Dim a

        s= 0

        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

    运行上面的程序,单击命令按钮,其输出结果是(    )

    A、4321 B、1234 C、34 D、12
  • 14、在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:

    Private Sub Command1_ Click()

        x=-5

        If Sgn(x) Then

            y= Sgn(x^2)

        Else

            y= Sgn(x)

        End If

    Print y

    End Sub

    程序运行后,单击命令按钮,窗体上显示的是(    )

    A、-5 B、25 C、  1 D、-1
  • 15、在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:

    Private Sub Command1_Click( )

        strText = InputBox("请输入")

        Text1.Text = strText

    End Sub

    Private Sub Text1_Change()

        Label1.Caption = Right(Trim(Text1.Text), 3)

    End Sub

    程序运行后,单击命令按钮,如果在输入对话框中输入abcdef,则在标签中显示的内容是(    )

    A、 B、abedef C、abc D、def
  • 16、语句Print 5/4*6\5 Mod 2的输出结果是(    )
    A、0 B、1 C、2 D、3
  • 17、以下关系表达式中,其值为False 的是(    )
    A、"ABC">"AbC" B、"the"<>"they" C、"VISUAL"=UCase("Visual") D、"Integer">"Int"
  • 18、在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程

    Private Sub Command1 _Click()

    Text1.Text = "Visual"

    Me.Text1= "Basic"

    Text1 = "Program"

    End Sub

    程序运行后,如果单击命令按钮,则在文本框中显示的是(    )

    A、Visual B、Basic C、Program D、出错
  • 19、确定一个控件在窗体上的位置的属性是(    )
    A、Width和Height B、Width 或Height C、Top和Left D、Top或Left
  • 20、以下关于函数过程的叙述中,正确的是(    )
    A、函数过程形参的类型与函数返回值的类型没有关系 B、在函数过程中,过程的返回值可以有多个 C、当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递 D、如果不指明函数过程参数的类型,则该参数没有数据类型
上一页 604 605 606 607 608 下一页 跳转