单选题为了通过传值方式来传送过程参数,在函数声明部分应使用的关键字为
单选题设窗体上有一个名称为HSl的水平滚动条,如果执行了语句:
HS1.Value=(HS1.Max-HS1.Min)/2+HS1.Min
则______。
单选题窗体上有一个名称为Text1的文本框;一个名称为Timer1的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下: Private Sub Timer1_Timer() Static flag As Integer If flag = 0 Then flag = 1 flag = -flag If flag = 1 Then Text1. ForeColor = &HFF& '&HFF& 为红色 Else Text1. ForeColor = &HC000& '&HC000& 为绿色 End If End Sub 以下叙述中正确的是( )。 A) 每次执行此事件过程时,flag的初始值均为0 B) flag的值只可能取0或1 C) 程序执行后,文本框中的文字每5秒改变一次颜色 D) 程序有逻辑错误,Else分支总也不能被执行
单选题下面关于通用对话框的叙述中错误的是
单选题如果要在图片框Picture1中输出文本"图片框",则正确的语句是
单选题以下4个语句中,输出逻辑值为“True”的是( )。
单选题在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() Dim a1(4,4),a2(4,4) Fori=1 To 4 For j=1 To 4 a1(i,j)=i+j a(i,j)=al(i,j)+i+j Next j Next i Print a1(3,3);a2(3,3) End Sub 程序运行后,单击命令按钮,在窗体上输出的是______。 A) 6 6 B) 10 5 C) 7 21 D) 6 12
单选题以下语句可以实现将文件filename1复制为filename2的是 ______。
单选题在 Visual Basic中,要将一个窗体从内存中释放,应使用的语句是
A.Hide
B.Unload
C.Load
D.Show
单选题下列有关文件叙述中,正确的是( ) A.以Output方式打开一个不存在的文件时,系统将显示出错信息 B.以APPend方式打开的文件,既可以进行读操作,也可以进行写操作 C.在随机文件中,每个记录的长度是固定的 D.无论是顺序文件还是随机文件,其打开的语句和打开方式都是完全相同的
单选题在窗体上画一个命令按钮Command1和两个文本框,名称分别为Text1和Text2。编写如下两个事件过程:
Dim Str1 As String,str2 As String
Private Sub form_load()
Text1.Text=""
Text2.Text=""
Text1.Enabled=False
Text2.Enabled=False
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
str1=str1 & Chr(KeyAscii)
End Sub
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
str2=str2 & Chr(KeyCode)
End Sub
Private SubCommand1_Click()
Text1.Text=str1
Text2.Text=str2
str1=""
str2=""
End Sub
当在设计阶段的窗体的KeyPreview属性设置为True时,程序运行过程中,在键盘上输入小写字母abc,然后单击命令按钮,则文本框Text1中显示的内容为
单选题Dima(3,-3 to 0,3 to 8)As Stritig语句定义的数组元素有
单选题窗体上有1个名称为List1的列表框,其中已经输入了若干个项目,如图所示;还有 2个文本框,名称分别为Text1、Text2,1个名称为Command1的命令按钮,并有下列事件过程。 PrivateSubCommand1_Click() DimstrAsString,SAsString.kAsInteger s=Text1 str="" Fork=Listl.ListCount-1To0Step-1 IfInStr(List1.List(k),s)>0Then str=str&List1.List(k)&"" EndIf Nextk Ifstr=""Then Text2="没有匹配的项目" Else Text2=str EndIf EndSub 程序运行时,在Text1中输入"京",单击命令按钮,则在Text2中显示的内容是()。
单选题设程序中有如下语句:
x=InputBox("输入","数据",100)
Print x
运行程序,执行上述语句,输入5并单击输入对话框上的“取消”按钮,则窗体上输出______。
单选题执行以下程序段 a$="Visual Basic Programming" b$="C++" c$=UCase(Left$(a$,7))& b$ & Right $(a$,12) 后,变量c$的值为______。
单选题如果要将一个窗体从内存中清除,应使用的语句是
单选题设窗体上有1个水平滚动条,已经通过属性窗V1把它的Max属性设置为1,Min属性设置为100。下面叙述中正确的是( )。
单选题在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下代码: Sub s(x As Integer, y As Integer) Static z As Integer y=x*x+z z=y End Sub Private Sub Command1 Click() Dim i As Integer, z As Integer m=0 z=0 For i=1 To 3 S i, Z m=m+z Next i Labell. Caption=Str(m) End Sub 程序运行后,单击命令按钮,在标签中显示的内容是( )。
单选题下面数组说明语句错误的是______。
单选题如果在窗体模块中所有程序代码的前面有语句:Dim x,则x是______。
