您现在的位置:在线题库 >> 计算机类 >> Visual basic 语言程序设计
  • ID:9102-10775

    执行语句Open "Tel.dat" For Random As #1 Len = 50后,对文件Tel.dat中的数据能够执行的操作是( )
    A
    )只能写,不能读 B)只能读,不能写
    C
    )既可以读,也可以写 D)不能读,不能写

  • 相关试题查看更多

  • ID:9102-10743
    下面程序段运行后,显示的结果是
    Dim x as Integer
    If x then print x else print x+1
    A) 1 B) 0 C) -1 D) 显示出错信息

    查看解析

  • ID:9102-10781

    设有如下通用过程:
    Public Sub Fun(a(), ByVal x As Integer)
    For i = 1 To 5
    x = x + a(i)
    Next
    End Sub
    在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下的事件过程:
    Private Sub Command1_Click()
    Dim arr(5) As Variant
    For i = 1 To 5
    arr(i) = i
    Next
    n = 10
    Call Fun(arr(), n)
    Text1.Text = n
    End Sub
    程序运行后,单击命令按钮,则在文本框中显示的内容是( )
    A
    10 B15 C25 D24

    查看解析

  • ID:9102-10734
    文本框没有__________属性
    A Enable B Visible C Backcolor DCaption

    查看解析

  • ID:9102-10783

    在窗体上画两个滚动条,名称分别为Hscroll1 Hscroll2;六个标签,名称分别为Label1Label2Label3Label4Label5Label6,其中标签Label 4~ Label6分别显示"A""B""A*B"等文字信息,标签Label1Label2分别显示其右侧的滚动条的数值,Label3 显示A*B的计算结果。如图所示。当移动滚动框时,在相应的标签中显示滚动条的值。当单击命令按钮"计算"时,对标签Label1Label2中显示的两个值求积,并将结果显示在Label3中。以下不能实现上述功能的事件过程是( )

    APrivate Sub Command1_Click()
    Label3.Caption = Str(Val(Label1.Caption )*Val( Label2.Caption))
    End Sub
    B
    Private Sub Command1_Click()
    Label3.Caption = HScroll1.Value * HScroll2.Value
    End Sub
    C
    Private Sub Command1_Click()
    Label3.Caption = HScroll1 * HScroll2
    End Sub
    D
    Private Sub Command1_Click()
    Label3.Caption = HScroll1. Text * HScroll2.Text
    End Sub

    查看解析

  • ID:9102-10766

    程序运行后,在窗体上单击鼠标,此时窗体不会接收到的事件是( )
    A
    MouseDown BMouseUp CLoad DClick

    查看解析