单项选择题

如果准备读文件，打开顺序文件"text.dat"的正确语句是

A．Open "text.dat" For Write As#1
B．Open "text.dar" For Binary As#1
C．Open "text.dat" For Input As#1
D．Open "text.dat" For Random As#1
<上一题 目录 下一题>
热门 试题

单项选择题
下列各种形式的循环中，输出“*”的个数最少的循环是 Ａ) a=5:b=8 Ｂ) a=5:b=8 Do Do Print * Print * a=a+1 a=a+1 Loop While a＜b Loop Until a＜b Ｃ) a=5:b=8 Ｄ) a=5:b=8 Do Until a-b Do Until a＞b Print * Print * b=b+1 a=a+1 Loop Loop
下列各种形式的循环中，输出“*”的个数最少的循环是
Ａ) a=5:b=8 Ｂ) a=5:b=8
　Do Do
　Print "*" Print "*"
　a=a+1 a=a+1
　Loop While a＜b Loop Until a＜b
Ｃ) a=5:b=8 Ｄ) a=5:b=8
　Do Until a-b Do Until a＞b
　Print "*" Print "*"
　b=b+1 a=a+1
　Loop Loop
单项选择题
在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() Text1.Text= Text1.SetFocus For i=1 To 9 Sum=Sum=i Next i Text1.Text=Sum End Sub 上述程序的运行结果是 Ａ) 在文本框Text1中输出45 Ｂ) 在文本框Text1中输出0 Ｃ) 出错 Ｄ) 在文本框Text1中输出不定值
在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程：
Private Sub Form_Load()
Text1.Text=""
Text1.SetFocus
For i=1 To 9
Sum=Sum=i
Next i
Text1.Text=Sum
End Sub
上述程序的运行结果是
Ａ) 在文本框Text1中输出45
Ｂ) 在文本框Text1中输出0
Ｃ) 出错
Ｄ) 在文本框Text1中输出不定值
相关试题