单选题在窗体上画一个命令按钮和两个文本框,其名称分别为Command1、Text1和Text2,然后编写如下程序: Dim S1 As String.S2 As String Private Sub Form_Load0 Text1.Text="" Text2.Text="" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2&Chr(KeyCode) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) S1=S1 & Chr(KeyAscii) End Sub Private Sub Command1_Click() Text1.Text=S2 Text2.Text=S1 S1="" S2="" End Sub 程序运行后,在Text1中输入“abc”,然后单击命令按钮,在文本框Text1和Text2中显示的内容分别为( )。
单选题窗体上有一个名称为Label1的标签;一个名称为Timer1的计时器,其Enabled和Interval属性分别为True和1000。编写如下程序:Dim n As IntegerPrivate Sub Timer1_Timer()ch=Chr(n+Asc("A")):Label1.Caption=ch:n=n+1:n=n Mod 4End Sub运行程许,将在标签中
单选题目录列表框的Path属性的作用是( )。
单选题阅读程序: Option Base 1 Dim arr() As Integer Private Sub Form Click() Dim i As Integer,i As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 arr(i,j)=i*2+j Next j Next i ReDim arr(3,2)+arr(3,4) End Sub 程序运行后,单击窗体,输出结果为
单选题在窗体上添加一个命令按钮,名为Command1,事件过程如下,则执行结果是______。
单选题窗体上有名称分别为Text1、Text2的2个文本框,有一个由3个单选按钮构成的控件数组Option1,如图1所示。程序运行后,如果单击某个单选按钮,则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100),并将结果显示在Text2中,如图2所示。为了实现上述功能,在程序中的问号(?)处应填入的内容是______。图1图2PrivateSubOption1_Click(IndexAsInteger)IfText1.Text<>""ThenSelectCase?Case0Text2.Text=Val(Text1.Text)Case1Text2.Text=Val(Text1.Text)*10Case2Text2.Text=Val(Text1.Text)*100EndSelectEndIfEndSub
单选题有如下事件过程:
Private Sub Form Click()
Dim n A s Integer
x=0
n=InputBox("请输入一个整数”)
For i=1 Ton
For j=1 To i
x=x+I
Next j
Next i
Print x
End Sub
程序运行后,单击窗体,女口果在输入对话框中输入:,则在窗体上显示的内容是
单选题单击命令按钮执行下列程序,其输出结果是( )。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=3 b=4 c=5 Print SecProc(c,b,a) End Sub Function FirProc(x As Integer, y As Integer, z As Integer) FirProc=2*x+y+3*Z End Function Function SecProc(x As Integer,y As Integer, z As Integer) SecProc=FirProc(z,x,y)+x End Function
单选题假定有以下函数过程: Function Fun(S As String)As String Dim s1 As String For i=1 To Len(S) s1=LCase(Mid(S,i,1))+s1 Next i Fun=s1 End Function 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim Strl As String.Str2 As String Strl=InputBox("请输入一个字符串"):Str2=Fun(Str1) Print Str2 End Sub 程序运行后,单击命令按钮,如果在输入对话框中输入字符串“abcdefg”,则单击“确定”按钮后在窗体上的输出结果为
单选题在窗体上画一个名称为Text1的文本框,然后画3个单选按钮,并用这3个单选按钮建立一个控件数组,名称为Option1,程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换,请选择空白处合适的语句( )。 Private Sub Optionl_Click(Index As Integer) Select Case Case 0 a="宋体" Case 1 a="黑体" Case 2 a="楷体 GB2312" End Select Text1. =a End Sub
单选题在结构化方法中,用数据流程图(DFD)作为描述工具的软件开发阶段是( )。
单选题目录列表框的Path属性的作用是
单选题语句Print 4+5/6*7/8 Mod 9的值是______。
A. 4
B. 5
C. 6
D. 7
单选题窗体上已有1个名称为Picturel的图片框,要求实现下面2个功能之一:(1)在窗体上移动鼠标时,立即将Picturel显示在鼠标位置(2)在窗体上单击鼠标时,立即将Picturel显示在鼠标位置下面不能实现上述任何功能的事件过程是
单选题Mid("HelloEveryone",7,3)的执行结果是
____
。
单选题在窗体上画一个名称为Commandl的命令按钮,编写如下事件过程:Private Sub Commandl_Click()n=0For i=0 To 10 X=2*i一1IfX Mod 3=0 Then n=n+1 Next i Print nEnd Sub运行程序,单击命令按钮,则窗体上显示的是
单选题在窗体上画一个命令按钮和两个文本框,其名称分别为Command1、Text1和Text2,在属性窗口中把窗体的KeyPrivew属性设置为True,然后编写如下程序:
Dim S1 As String,S2 As String
Private Sub Form_Load()
Text1.Text=""
Text2.Text=""
Text1.Enabled=False
Text2.Enabled=False
End Sub
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
S2=S2&Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
S1=S1&Chr$(KeyAscii)
End Sub
Private Sub Command1_Click()
Text1.Text=S1
Text2.Text=S2
S1=""
S2=""
End Sub
程序运行后,先后按“A”、“B”、“C”键,然后单击命令按钮,在文本框Text1和Text2中显示的内容分别为
单选题在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程:Private Sub Command1_Click() Dim iAs Integer,nAs Integer For i=0 To 50 i=i+3:n=n+1 Ifi>10 Then Exit For Next TeXt1.Text=Str(n)End Sub程序运行后,单击命令按钮,在文本框中显示的值是
单选题在窗体上添加如下命令按纽,然后编写如下事件过程: Private Sub Command1_Click() Dim a(10)As Integer Dim p(3)As Integer k= 5 For i = 1 To 10 a(i) = i Next i For i = 1 To 3 p(i) = a(i * i) Next i For i = 1 To 3 k = k + p(i) * 2 Next i Print k End Sub该过程的运行结果为______。
单选题某人编写了下面的程序Pfivate Sub Commandl_Click() Private Sub pro(n As Integer) Dim a As Integer,b As Integer While(n>0) a=InputBox("请输入整数") Print n Mod 10;n=n\10 b=InputBox("请输入整数") Wend pro a:pro b Print Call pro(a+b) End SubEnd Sub此程序功能是:输入2个正整数,反序输出这2个数的每一位数字,再反序输出这2个数之和的每一位数字。例如:若输入123和234,则应该输出:3 2 1 4 3 2 7 5 3但调试时发现只输出了前2行(即2个数的反序),而未输出第3行(即2个数之和的反序),程序需要修改。下面的修改方案中正确的是
