题库 题库

【单选题】

在窗体上画一个名称为Text1的文本框,要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是

    参考答案

    查看答案

    相关试题

    单选题 以下关于图片框控件的说法中,错误的是 查看答案
    单选题 在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:
    Private Function f(m As Integer)
    If m Mod 2 = 0 Then
    f = m
    Else
    f = 1
    End If
    End Function
    Private Sub Command1_Click()
    Dim i As Integer
    s = 0
    For i = 1 To 5
    s = s + f(i)
    Next
    Print s
    End Sub
    程序运行后,单击命令按钮,在窗体上显示的是
    查看答案
    单选题 在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
    Private Sub Command1_Click()
    a = 12345
    Print Format$(a, "000.00")
    End Sub
    程序运行后,单击命令按钮,窗体上显示的是
    查看答案
    单选题 确定一个控件在窗体上的位置的属性是 查看答案
    单选题 以下叙述中错误的是 查看答案
    单选题 以下关系表达式中,其值为False的是 查看答案
    单选题 在以下描述中正确的是 查看答案
    单选题 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
    Private Sub Command1_Click()
    Dim array1(10, 10) As Integer
    Dim i As Integer, j As Integer
    For i = 1 To 3
    For j = 2 To 4
    array1(i, j) = i + j
    Next j
    Next i
    Text1.Text = array1(2, 3) + array1(3, 4)
    End Sub
    程序运行后,单击命令按钮,在文本框中显示的值是
    查看答案
    单选题 在窗体上画四个文本框,并用这四个文本框建立一个控件数组,名称为Text1(下标从0开始,自左至右顺序增大),然后编写如下事件过程:
    Private Sub Command1_Click()
    For Each TextBox In Text1
    Text1(i) = Text1(i).Index
    i = i + 1
    Next
    End Sub
    程序运行后,单击命令按钮,四个文本框中显示的内容分别为
    查看答案
    单选题 假定在窗体(名称为Form1)的代码窗口中定义如下记录类型:
    Private Type animal
    AnimalName As String*20
    AColor As String*10
    End Type
    在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
    Private Sub Command1_Click()
    Dim rec As animal
    Open "c:\vbTest.dat" For Random As #1 Len = Len(rec)
    rec.animalName = "Cat"
    rec.aColor = "White"
    Put #1, , rec
    Close #1
    End Sub
    则以下叙述中正确的是
    查看答案
    单选题 一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句Pubilc X As Integer,在Model1中有语句Pubilc Y As Integer,则以下叙述中正确的是 查看答案
    单选题 在窗体上画一个名称为Text1的文本框,要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是 查看答案
    单选题 以下定义数组或给数组元素赋值的语句中,正确的是 查看答案
    单选题 在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框。当改变当前驱动器时,目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中,这个事件过程是 查看答案
    单选题 在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程:
    Private Sub Command1_Click()
    n = Val(Text1.Text)
    If n\2 = n/2 Then
    f = f1(n)
    Else
    f = f2(n)
    End If
    Print f; n
    End Sub
    Public Function f1(ByRef x)
    x=x*x
    f1=x+x
    End Function
    Public Function f2(ByVal x)
    x=x*x
    f2=x+x+x
    End Function
    程序运行后,在文本框中输入6,然后单击命令按钮,窗体上显示的是
    查看答案
    单选题 在窗体上画一个命令按钮(其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
    运行上面的程序,单击命令按钮,其输出结果是
    查看答案
    单选题 执行语句s=Len(Mid("VisualBasic",1,6))后,s的值是 查看答案
    单选题 在窗体上有若干控件,其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是 查看答案
    单选题 在窗体上画一个名称为List1的列表框,为了对列表框中的每个项目都能进行处理,应使用的循环语句为 查看答案
    单选题 以下关于变量作用域的叙述中,正确的是 查看答案