单选题以下关于VB文件的叙述中,错误的是______。
单选题在窗体上画一个名称为CommandDialog1 的通用对话框,一个名称为Command1的命令按钮。然后编写如下事件过程:
Private Sub Command1_Click( )
CommonDialog1.FileName =""
CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"
CommonDialog1.FilterIndex=1
CommonDialog1.DialogTitle="VBTest"
CommonDialog1.Action=1
End Sub
对于这个程序,以下叙述中错误的是( )
单选题在窗体上有文本框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 单击命令按钮,程序运行后,在文本框中显示的值是( )。
单选题引用列表框(List1)最后一个数据项应使用的表达式是( )。 A) List1.List(List1.ListCount) B) List1.List(List1.ListCount-1) C) List1.List(ListCount) D) List1.List(ListCount-1)
单选题执行下面的程序段,x的值为 Private Sub Command1_Click( ) For i=1 To 5 a=a+i Next i x=Val(i) MsgBox x End Sub
单选题下列程序段的执行结果为 a=5 For k=1 To 0 a=a
* k Next k Print k;a
A. -1 6
B. -1 16
C.1 5
D.11 21
单选题假定有以下程序: Private Sub Form_Click() a=1: b=a Do Until a>=5 x=a*b Print b:x a=a+b b=b+a Loop End Sub 程序运行后,单击窗体,输出结果是( )。
单选题设在工程文件中有一个标准模块,其中定义了如下记录类型:
Type Books
Name As String * 10
TelNum As String * 20
End Type
在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是______。
单选题某人编写了下面的程序:
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a=InputBox("请输入整数")
b=InputBox("请输入整数")
pro a
pro b
Call pro(a+b)
End Sub
Private Sub pro(n As Integer)
While(n>0)
Print n Mod 10;
n=n/0
Wend
Print
End Sub
此程序功能是:输入2个正整数,反序输出这2个数的每一位数字,再反序输出这2个数之和的每一位数字。例如:若输入123和234,则应该输出:
3 2 1
4 3 2
7 5 3
但调试时发现只输出了前2行(即2个数的反序),而未输出第3行(即2个数之和的反序),程序需要修改。下面的修改方案中正确的是______。
单选题在窗体(Name属性为Forml)上面添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Commandl),然后编写如下两个事件过程:
Private Sub Commandl_Click()
a=Text1.Text+Text2.Text Printa End
Sub Private Sub Form_Load()
Text1.Text="" Text2.Text="" End Sub
程序运行后,在第1个文本框(Text1)和第2个文本框(Text2)中分别输入123和321,然后单击命令按钮,则输出结果为{{U}}
{{/U}}。
A.444
B.321123
C.123321
D.132231
单选题在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1),然后编写如下事件过程:
Private Sub Command1_Click()
x=0
Do Wbile x<50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后,单击命令按钮,在两个文本框中显示的值分别为______。
单选题下面程序计算并输出的是( )。 Private Sub Command1_Click() Num=10 Sum=0 Do Sum=Sum+Num*Num*Num Num=Num-1 Loop Until Num<=0 Print Sum End Sub A) 13+23+33+103的值 B) 10!+…+3!+2!+1!的值 C) (1+2+3+…+10)3的值 D) 10个103的和
单选题设有分段函数:以下表示上述分段函数的语句序列中错误的是______。
单选题要使文本框获得输入焦点,则应采用文本框控件的( )方法。
单选题设有如下过程: Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+2) End SUb 若把窗体的KeyPreview属性设置为True,程序运行后,如果按“A”键,则输出结果为( )。
单选题表示窗体名称的属性是 ______。
单选题层次型、网状型和关系型数据的划分原则是______。
单选题在医院,每个医生只属于某一个诊疗科,医生同一天可为多位患者看病,而一名患者可在多个科室治疗。则实体医生和患者之间的联系是
单选题窗体上有一个名称为Command1的命令按钮,其事件过程如下: Private Sub Command1_Click( ) x = "VisuatBasicProgramming" a = Right(x, 11) b =Mid(x, 7, 5) c = MsgBox(a , , b) End Sub 运行程序后单击命令按钮。以下叙述中错误的是( )。 A) 信息框的标题是Basic B) 信息框中的提示信息是Programming C) c的值是函数的返回值 D) MsgBox的使用格式有错
单选题Visual Basic 规定工程文件的扩展名为______ 。