单项选择题 在当前窗体有一个文本框Text1,在D盘的根目录存在数据文件data.txt,数据文件的内容是abc 10 20 30efg 40 50 60若运行程序,要在文本框中显示的内容是( )。Private Sub Form_Click( )Open "d:/data.txt" For Input As #10Do Until EOF(10)Line Input #10, linesText1.Text = Text1.Text + Mid(lines, 5, 2)LoopClose #10End SubA.abcB.1040C.efgD.10 20
单项选择题 计算机最具代表性的应用领域是科学计算,数据处理,( ),计算机辅助设计和人工智能。
单项选择题 运行下列程序:Private Sub form_Click( )s = InputBox("请输入一个字符A:")Select Case Asc(s)Case Is > 65n = String(3, UCase(s))Case Is = 65n = String(3, LCase(s))Case Elsen = sEnd SelectPrint nEnd Sub从键盘输入A,输出的结果是( )。
单项选择题 运行下列程序:Private Sub form_Click( )Dim xx = 0Do While x < 10x = x + 3LoopMsgBox x
单项选择题 运行下列程序:Private Sub form_Click( )x = InputBox("请输入一个数:")Select Case xCase Is > 0: y = x + 1: x = y + 1Case Is = 0: y = x + 2: x = y + 2Case Else: y = x + 3: x = y + 3End SelectPrint x; yEnd Sub从键盘输入1,输出的结果是( )。A.3 2B.2 3C.2 2D.1 4