题库 题库

【单选题】

在窗体上有两个名称分别为 Text1、Text2 的文本框,一个名称为 Command1 的命令
按钮。运行后的窗体外观如图所示。
   
设有如下的类型和变量声明:
Private Type Person
  name As String*8
  major As String*20
End Type
Dim p As Person
设文本框中的数据已正确地赋值给 Person 类型的变量 p,当单击“保存”按钮时,能
够正确地把变量中的数据写入随机文件 Test2.dat 中的程序段是(    )。

    参考答案

    查看答案

    相关试题

    单选题 在窗体上画一个名称为 Command1 的命令按钮,再画两个名称分别为 Label1、Label2
    的标签,然后编写如下程序代码:
    Private X As Integer
    Private Sub Command1_Click( )
      X=5: Y=3
      Call proc(X, Y)
      Label1.Caption=X
      Label2.Caption=Y
    End Sub
    Private Sub proc(a As Integer, ByVal b As Integer)
      X=a*a
      Y=b+b
    End Sub
    程序运行后,单击命令按钮,则两个标签中显示的内容分别是(    )。
    查看答案
    单选题 下列叙述中正确的是(    )。 查看答案
    单选题 在窗体上画一个命令按钮和一个标签,其名称分别为 Command1 和 Labcl1,然后编
    写如下事件过程:
    Private Sub Command1_Click( )
      Counter=0
      For i=1 To 4
        For j=6 To 1 Step -2
          Counter=Counter+1
        Next j
      Next i
      Label1.Caption=Str(Counter)
    End Sub
    程序运行后,单击命令按钮,标签中显示的内容是(    )。
    查看答案
    单选题 在窗体上画一个命令按钮,然后编写如下事件过程:
    Private Sub Command1_Click( )
      Dim I, Num
      Randomize
      Do
        For I=1 To 1000
          Num=Int(Rnd*100)
          Print Num;
          Select Case Num
            Case 12
              Exit For
            Case 58
              Exit Do
            Case 65, 68, 92
              End
          End Select
        Next I
      Loop
    End Sub
    上述事件过程执行后,下列描述中正确的是(    )。
    查看答案
    单选题 窗体上有 Command1、Command2 两个命令按钮。现编写以下程序:
    Option Base 0
    Dim a( ) As Integer, m As Integer
    Private Sub Command1_Click( )
      m=InputBox("请输入一个正整数")
      ReDim a(m)
    End Sub
    Private Sub Command2_Click( )
      m=InputBox("请输入一个正整数")
      ReDim a(m)
    End Sub
    运行程序时,单击 Command1 后输入整数 10,再单击 Command2 后输入整数 5,则
    数组 a 中元素的个数是(    )。
    查看答案
    单选题 若变量 a 未事先定义而直接使用(例如:a=0),则变量 a 的类型是(    )。 查看答案
    单选题 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮,然后编
    写如下事件过程:
    Private Sub Command1_Click( )
      Dim i As Integer, n As Integer
      For i=0 To 50
        i=i+3
        n=n+1
        If i>10 Then Exit For
      Next
      Text1.Text=Str(n)
    End Sub
    程序运行后,单击命令按钮,在文本框中显示的值是(    )。
    查看答案
    单选题 为把圆周率的近似值 3.14159存放在变量 pi 中,应该把变量 pi 定义为(    )。 查看答案
    单选题 执行下列语句
    strInput=InputBox ("请输入字符串","字符串对话框","字符串")
    将显示输入对话框。此时如果直接单击“确定”按钮,则变量 strInput 的内容是(    )。
    查看答案
    单选题 在长度为 n 的有序线性表中进行二分查找,最坏情况下需要比较的次数是(    )。 查看答案
    单选题 数据流图中带有箭头的线段表示的是(    )。 查看答案
    单选题 在面向对象方法中,不属于“对象”基本特点的是(    )。 查看答案
    单选题 在窗体上有两个名称分别为 Text1、Text2 的文本框,一个名称为 Command1 的命令
    按钮。运行后的窗体外观如图所示。
       
    设有如下的类型和变量声明:
    Private Type Person
      name As String*8
      major As String*20
    End Type
    Dim p As Person
    设文本框中的数据已正确地赋值给 Person 类型的变量 p,当单击“保存”按钮时,能
    够正确地把变量中的数据写入随机文件 Test2.dat 中的程序段是(    )。
    查看答案
    单选题 下列叙述中正确的是(    )。 查看答案
    单选题 在软件开发中,需求分析阶段可以使用的工具是(    )。 查看答案
    单选题 有三个关系 R、S和 T 如下:

      
    由关系 R 和S通过运算得到关系 T,则所使用的运算为(    )。
    查看答案
    单选题 在设计窗体时双击窗体的任何地方,可以打开的窗口是(    )。 查看答案
    单选题 以下不能输出“Program”的语句是(    )。 查看答案
    单选题 假定有以下循环结构
    Do Until  条件表达式
    循环体
    Loop
    则以下正确的描述是(    )。
    查看答案
    单选题 设有如下通用过程:
    Public Function Fun(xStr As String)As String
      Dim tStr As String, strL As Integer
      tStr=""
      strL=Len(xStr)
      i=1
      Do While i<=strL/2
        tStr=Tstr & Mid(xStr, i, 1)& Mid(xStr, strL-i+1, 1)
        i=i+1
      Loop
      Fun=tStr
    End Function
    在窗体上画一个名称为 Command1的命令按钮。然后编写如下的事件过程:
    Private Sub Command1_Click( )
      Dim S1 As String
      S1="abcdef"
      Print UCase(Fun(S1))
    End Sub
    程序运行后,单击命令按钮,输出结果是(    )。
    查看答案