题库 题库

【单选题】

假定在工程文件中有一个标准模块,其中定义了如下记录类型
Type Books
Name As String * 10
TelNum As String * 20
End Type
要求当执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是

    参考答案

    查看答案

    相关试题

    单选题 在窗体上画一个列表框和一个命令按钮,其名称分别为List1和Command1,然后编写如下事件过程:
    Private Sub Form_Load()
    List1.AddItem "Item 1"
    List1.AddItem "Item 2"
    List1.AddItem "Item 3"
    End Sub
    Private Sub Command1_Click()
    List1.List(List1.ListCount) = "AAAA"
    End Sub
    程序运行后,单击命令按钮,其结果为
    查看答案
    单选题 有如下程序:
    Private Sub Form_Click()
    Dim Check, Counter
    Check = True
    Counter = 0
    Do
    Do While Counter < 20
    Counter = Counter + 1
    If Counter = 10 Then
    Check = False
    Exit Do
    End If
    Loop
    Loop Until Check = False
    Print Counter, Check
    End Sub
    程序运行后,单击窗体,输出结果为
    查看答案
    单选题 在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:
    Private Sub Form_Load()
    Show
    Text1.Text = ""
    Text2.Text = ""
    Text1.SetFocus
    End Sub
    Private Sub Text1_Change()
    Text2.Text = Mid(Text1.Text, 8)
    End Sub
    程序运行后,如果在文本框Text1中输入BeijingChina,则在文本框Text2中显示的内容是
    查看答案
    单选题 为了清除窗体上的一个控件,下列正确的操作是 查看答案
    单选题 有如下程序:
    Option Base 1
    Private Sub Form_Click()
    Dim arr, Sum
    Sum = 0
    arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)
    For i = 1 To 10
    If arr(i) / 3 = arr(i) \ 3 Then
    Sum = Sum + arr(i)
    End If
    Next i
    Print Sum
    End Sub
    程序运行后,单击窗体,输出结果为
    查看答案
    单选题 下列描述中正确的是 查看答案
    单选题 下列叙述中正确的是 查看答案
    单选题 设a=2, b=3, c=4, d=5, 下列表达式的值是
    Not a<=c Or 4*c=b^2 And b<>a+c
    查看答案
    单选题 以下叙述中错误的是 查看答案
    单选题 以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是 查看答案
    单选题 下列关于栈的描述正确的是 查看答案
    单选题 数据库系统的核心是 查看答案
    单选题 设有如下关系表:
     
    则下列操作中正确的是
    查看答案
    单选题 下列数据结构中,能用二分法进行查找的是 查看答案
    单选题 目录列表框的Path属性的作用是 查看答案
    单选题 在软件设计中,不属于过程设计工具的是 查看答案
    单选题 在窗体上画一个名称为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
    程序运行后,单击命令按钮,在文本框中显示的值是
    查看答案
    单选题 在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程:
    Private Sub Command1_Click()
    a$ = "software and hardware"
    b$ = Right(a$, 8)
    c$ = Mid(a$, 1, 8)
    MsgBox a$, , b$, c$, 1
    End Sub
    运行程序,单击命令按钮,则在弹出的信息框的标题栏中显示的是
    查看答案
    单选题 数据库设计的根本目标是要解决 查看答案
    单选题 假定在工程文件中有一个标准模块,其中定义了如下记录类型
    Type Books
    Name As String * 10
    TelNum As String * 20
    End Type
    要求当执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是
    查看答案