单选题设有如下程序: Private Sub Command1_Click() Dim C As Integer, d As Integer c=4 d=InputBox("请输入一个整数") Do While d>0 If d>c Then c=c+1 End If d=InputBox("请输入一个整数") Loop Print c+d End Sub 程序运行后,单击命令按钮,如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,则输出结果是______。 A) 12 B) 11 C) 10 D) 9
单选题软件工程与计算机科学性质不同,软件工程着重于______。
单选题使用Do While循环从打开的文件中逐条读取记录。以下能够正确读取数据的程序段是
单选题下列说法中,不属于数据模型所描述的内容是______。
单选题在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程: private Sub Command1_Click() CommonDialog1.Flags=cdl0FNHideReadOnly CommonDialog1.Filter="All Files(*.*)|*.*|Text Files"&_ "(*.txt)|*.txt|Batch Files(*.bat)|*.bat" CommonDialog1.Filterlndex=2 CommonDialog1.ShowOPen MsgBox CommonDialog1.filename End Sub 程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是______。
单选题下列语句中______ 是顺序文件操作和随机文件操作中都有的。
单选题设Label1、Command1、Text1、Check1分别为标签、命令按钮、文本框、复选框的名称,则以下属性设置语句中,运行时不会出错的是
单选题假定程序中有以下语句: answer=MsgBox("String1",,"String2","String3",2) 执行该语句后,将显示一个信息框,此时如果单击“确定”按钮,则answer的值为______。
单选题下面程序段执行结果为 x=Int(Rnd()+4) Select Case x Case 5 Print"excellent" Case4 Print"good" Case 3 Print"pass" Case Else Print"fail" End Select
单选题设在工程文件中有—个标准模块,其中定义了如下记录类型:Type Books Name As String *10 TelNum As String*20End Type在窗体上画—个名为Command1的命令按钮,要求当执行事件过程Command1_Click时,在顺序文件Petson.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是 ______。
单选题列表框中的项目保存在一个数组中,这个数组的名字是( )。
单选题阅读程序:
Option Base 1
Sub P(b() As Integer)
For i=1 To 4
b(i)=2*i
Next i
End Sub
Private Sub Form_Click()
Dim a(4)As Integer
For i=1 To 4
a(i)=i+4
Next i
P a
For i=1 To 4
Print a(i)
Next i
End Sub
运行上面的程序,单击窗体,输出结果为______。
单选题当Esc键与单击该命令按钮作用相同时,此命令按钮的什么属性被设置为 Tree?
A) Style
D) Default
C) Caption
D) Cancel
单选题工程中有Form1、Form2两个窗体(Forml中有文本框Text1;Form2中有Text1文本框和Command1命令按钮)。Form1是启动窗体。在这些模块中编写下面的程序代码:Form1中的代码如下: Form2中的代码如下:Private Sub Text1_DblClick() Private Sub Command1_Click() Text1="VisualBasic" Textl=Form1.Text1 Form2.Show Form1.ShowEnd Sub End Sub下面关于程序的叙述中错误的是
单选题要使文本框获得输入焦点,则应采用文本框控件的( )。 A) GotFocus方法 B) LostFocus方法 C) KeyPress方法 D) SetFocus方法
单选题在窗体上有一个名称为Label1的标签和一个名称为Timer1的计时器,并编写有如下几个事件过程: Private Sub Form_Load() Timer1.Enabled=False Timer1.Interval= End Sub Private SubForm_Click() Timer1.Enabled=__________ End Sub Private Sub Timer1_Timer() Labe11.Caption=__________ End Sub 程序运行后,单击窗体,将在标签中显示当前时间,每隔1s钟变换一次,在横线处应填写( )。
单选题设有如下数组定义语句:Dim a(-1 To 4, 3)As Integer 以下叙述中正确的是( )。
单选题工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是: Public X As Integer Private Y As Integer 窗体文件的程序代码是: Dim a As Integer Private Sub Form_Load() Dim b As Integer a=2:b=3:x=10:y=20 End Sub Private Sub Command1_Click() a=a+5:b=b+5:x:x+5:y=y+5 Print a;b;x;y End Sub 运行程序,单击窗体上的命令按钮,则在窗体上显示的是( )。
单选题假设在窗体Form1上加一个通用对话框控件CommonDialog1,用语句CommonDialog1.ShowOpen建立打开文件对话框,那么从该对话框中单击“确定”按钮退出对话框时,为了得到用户所选择的文件的路径以及文件名,应该使用CommonDialog1的属性是 ______ 。
单选题关于菜单设计,下列叙述中错误的是( )。