单选题在窗体上画一个名称为Commandl的命令按钮,并编写如下程序: Private Type Record ID As Integer:Name As String*20End Type Private Sub Commandl_Click() Dim MaxSize,NextChar,MyChar Open”d:\temp\female.txt”For Input As#1 MaxSize=LOF(1) For NextChar=MaxSize To 1 Step-1 MyChar=Input(1,#) Next NextChar Print EOF(1) Close#1 End Sub 运行程序,单击命令按钮,其输出结果为
单选题执行下列程序后,鼠标单击窗体,输出结果为
Private Sub Form_Click()
Print "Click";
End Sub
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
Print "Donw"
End Sub
Private Sub Form_MouseUp(ButtonAs Integer,Shift As Integer,X As Single,Y As Single)
Print "Up"
End Sub
单选题操作Visual FoxPro,用户可以通过三种方式是( )
单选题在窗体上有一个文本框Text1和一个标签Label1,要求运行程序时,在文本框中输入的内容立即显示在标签中(如图所示),则空白处应填入的内容是()。PrivateSubText1______________()Label1.Caption=Text1.TextEndSub
单选题下列程序运行时输出的结果是 Private Sub Form_Click() Dim x x=Array("天天向上","清华大学","天上人间","程序设计") For i=LBound(a,1)to UBound(a,1) If Left(a(i),1)="天"Then Print a(i); Next End Sub
单选题在窗体上画一个文本框,然后编写如下代码:
Option Base 1
Private Sub Form_Click()
Dim arr
Dim Start As Integer,Finish As Integer
Dim Sum As Integer
arr=Array(12,4,8,16)
Start=LBound(arr)
Finish=UBound(arr)
Sum=0
For i=Start To Finish
Sum=Sum+arr(i)
Next i
c=Sum/Finish
Text1.Text=c
End Sub
程序运行后,单击窗体,则在文本框中显示的内容是
单选题下列描述中,不是线性表顺序存储结构特征的是
____
。
单选题语句Print Sgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是( )。
单选题运行下列程序: Private Sub Command1_Click( ) x = 0 Do While x < 10 x = x * x + 1 y = y + x Loop MsgBox y End Sub 单击Command1命令按钮后,则弹出的消息对话框中显示________。
单选题单击—次命令按钮后,下列程序的执行结果是 Private Sub Command1_Click( ) S=P(1)+P(2)+P(3)+P(4) Print S End Sub Public Function P(N As Integer) Static Sum For i=1 To N Sum=Sum+i Next i P=Sum End Function
单选题目录列表框Path属性所表示的含义是______。
单选题下列程序的输出结果为( )。
S1="1":S2="2":S1=VaI(S1)+Val(S2)
S2=Val("12")
If S1<>S2 Then Print S1-S2 Else Print S2-S1
单选题在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String
Str=Chr(KeyAscii)
KeyAscii=Asc(UCase(str))
Text1.Text=String(2,KeyAscii)
End Sub程序运行后,如果在键盘上输入字母"b",则在文本框Text1中显示的内容是
单选题设窗体文件中有下面的事件过程: Private sub Command1_Click() Dim S a%=100 Print a End Sub 其中变量a和s的数据类型分别是( ) A.整型,整型 B.变体型,变体型 C.整型,变体型 D.变体型,整型
单选题1个三维数组可以存放1个矩阵。在程序开始有语句Option Base o,则下面定义的数中正好可以存放1个4x3矩阵(即只有12个元素)的是【 】
单选题在窗体上画一个名称为Command1的命令按钮。单击命令按钮时执行如下事件过程:
Private Sub Command1 Click()
a$=”software and hardware”
b$=Right(a$,8)
c$=Mid(a$,L,8)
MsgBox a$,,bs,CS,1
End sub
则在弹出的信息框标题栏中显示的标题是( )。
单选题有下面的程序段:A = 1.2B = 321C = Len(Str(A) + Str(B))Print C执行上面的程序段,输出结果是
单选题以下不能输出“Program”的语句是
单选题执行语句Open "TC.dat" For Random As #1 Len=50后,对文件TC.dat中的数据能执行的操作是( )。 A) 只读操作 B) 只写操作 C) 既可以读,也可以写 D) 追加操作
单选题设a=5,b=6,c=7,d=8,则执行下列语句后,x的值为______。 X=IIF((a>B) And(c<D) ,10,20)
