单选题窗体上有两个名称分别为Text1、Text2的文本框,一个名称为Command1的命令按钮。设有如下的类型声明: Type Person name As String*8 major As String*20 End Type 当单击命令按钮时,将两个文本框中的内容写入一个随机文件Test.dat中。设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是( )。
单选题VB6.0是( )应用程序的开发工具。
单选题窗体上有一个名称为Picture1的图片框控件,一个了名称为Timer1的计时器控件,其Interval属性值为1000。要求每隔5秒图片框右移100。现编写程序如下:
Private Sub Timer1_Timer()
Static n As Integer
n=n+1
If(n/5)=Tnt(n/5)And Picture1.
Left<Form1.Width Then
Picture1.Left=Picture1.Left+100
End If
End Sub
分析以上程序,以下叙述中正确的是______。
单选题从键盘上输入一个实数nu,利用字符串函数对该数进行处理,如果输出的内容不是字符End,则程序输出的内容是( )。 nu=InputBox("nu=") n$=Str$(nu) p=InStr(n$,".") if p>0 Then Print Mid$(n$,P) Else Print"END" End If
单选题下列程序段运行后窗体上输出结果为( )。 Private Sub Command1_Click() a=5: b=4: c=3: d=2 x=3>2*b Or a=c And b<>c Or c>d Print x End Sub
单选题算法指的是
单选题设有语句:
Open "c:/Test.Dat" For Output As #1
则以下叙述中错误的是______。
单选题下面有一段程序代码,如果从键盘上输入“Computer”,则在文本框内显示的内容是 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii>=65 And KeyAscii<=122 Then KeyAscii=42 End If End Sub
单选题窗体上有1个名为List1的列表框,其中已经输入了若干个项目(如图所示);还有2个文本框,名称分别为Text1、Text2,1个名称为Command1的命令按钮,并有以下程序:PrivateSubCommand1_Click()DimstrAsString,sAsString,kAsIntegers=Text1str=""Fork=List1.ListCount-1To0Step-1IfInStr(List1.List(k),s)>0Thenstr=str&List1.List(k)&""EndIfNextkIfstr=""ThenText2="没有匹配项目"ElseText2=strEndIfEndSub程序运行时,在Text1中输入“京”,单击命令按钮,则在Text2中显示的内容是______。
单选题如下图所示的两个窗体:要使其中第一个窗体中的第一个命令按钮来控制显示第二个窗体,第二个命令按钮用来结束程序的运行(两个按钮名称为Command1和Command2)。则以下选项中,对这两个命令按钮编写的事件过程正确的是
单选题以下能够设置控件焦点的方法是
单选题要想在过程调用中返回两个结果,下面的过程定义语句合法的是( )。
单选题执行下面的程序后,输出的结果是( )。
K=1
For j=1 To 4
X=X - 1: y=0
For k=1 To 4
X=X + 1: y=y + 1
Next k
Next j
Print X;y
单选题设有命令按钮Commandl的单击事件过程,代码如下: Private Sub Commandl_Click() Dima(30)As Integer Fori=1 To 30 a(i)=Int(Rnd*100) Next For Each arrltem In a IfarrltemMod7=0 ThenPrintarrItem; Ifarrltem>90ThenExitFor Next End Sub 对于该事件过程,以下叙述中错误的是( )。
单选题假定有以下程序段: For i=1 To 3 Forj=5 To 1
Step-1 Print i*j Nextj Next
i 则语句Printi*j的执行次数是______。
A.15
B.16
C.17
D.18
单选题窗体上有一个列表框控件List1。以下叙述中错误的是
单选题下列关于栈叙述正确的是( )。
单选题有下面的程序段: x=InputBox(”字符串”,”输入”,”请输入”):Print x 如果执行上面程序段时没有从键盘输入任何内容就直接按了回车键,则输出内容是
单选题在数据库设计中,将E-R图转换成关系数据模型的过程属于( )。
单选题在窗体上画一个按钮,然后编写如下的事件代码。在按钮上单击,输出为( )。 Private Function fun(x As Integer,y As Integer) Static m As Integer Static i As Integer i=i+2 i=i+m+1 m=i+x+y fun=m End Function Private Sub Command1_Click() Dim j As Integer,m As Integer,k As Integer j=4:m=1 k=fun(j,m) Print k; k=fun (j,m) Print k End Sub
