更多"在窗体上添加一个命令按纽,名为command1,其事件过程如下,程序运"的相关试题:
[简答题]
在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框。程序运行后,Command1显示为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在______处填入适当的内容,将程序补充完整。 Private Sub Form_Load( ) Command1. Enabled=False End Sub Private Sub Text1______( ) Command1. Enabled=True End Sub |
[单项选择]
窗体上有一个名称为Command1的命令按钮,其事件过程如下:
Private Sub Command1_Click( )
Dim s As String
Open “c:/File1.txt” For Input As #1
Open “c:/File2.txt” For Output As #2
Do While Not EOF(1)
Input #1,s
Print #2,s
Loop
Close #1,#2
End Sub
关于上述程序,以下叙述错误的是()。
A. 程序把File1.txt文件的内容存放到File2.txt文件中
B. 程序中打开了两个随机文件
C. 程序中打开了两个顺序文件
D. “EOF(1)”中的“1”对应于File1.txt文件
[单项选择]窗体上有一个名称为Command1的命令按钮,其事件过程如下:
Private Sub Command1_Click( )
x="VisualBasicProgramming"
a=Right(x,11)
b=Mid(x,7,5)
C=Msgbox(a,b)
End Sub
运行程序后单击命令按钮,以下叙述中错误的是( )
A. 信息框的标题是Basic
B. 信息框中的提示信息是Programming
C. C的值是函数的返回值
D. MsgBox的使用格式有错
[单项选择]
窗体上有一名称为Command1的命令按钮,其事件过程如下:
Private Sub Command1_Click( )
Dim i As Integer,j As Integer , k As Integer
Dim s As Double
s=0 ; i=1 ; j=0 ; k=-1
Do While i<6
s=s+k*(j/i)
i=i+1
j=j+1
k=-k
Loop
Print s
End Sub
以上程序所计算的表达式是()。
A. 1/2-2/3+3/4-4/5
B. -1/2+2/3-3/4+4/5
C. 1-1/2+2/3-3/4+4/5
D. -1+1/2-2/3+3/4-4/5
[单项选择]在窗体上添加一个命令按钮(名为Command1)和一个文本框(名为Text1),并在命令按钮中编写如下事件代码:
Private Sub Command1_Click( )
m=2.17
n=Len(Str$(m)+Space(5))
Mc! Text1=n
End Sub
打开窗体运行后,单击命令按钮,在文本框中显示( )。
A. 5
B. 8
C. 9
D. 10
[填空题]设计一个窗体,窗体上画一个名为Command1的命令按钮、一个名为CommonDialogl的通用对话框控件、一个名为Text1的文本框,利用“颜色”对话框将文本框中的字体颜色设置成用户所选择的颜色,为此编写以下程序代码,井按要求将程序补充完整。
Private Sub Command1_Click( )
CommonDialogl.Flags=cdlCCRGBInit
CommonDialogl.Color=Text1.ForeColor
【9】
Text1.ForeColor=CommonDialog1.Color
End Sub
[单项选择]在窗体上添加一个名为Command1的命令按钮,一个名为text1的文本框,则执行如下事件过程后,文本框中的输出为( )。
For i=1 To 3
For i=1 To 3
For k=1 To 2
x=x+3
Next k,j,i
Text1.Text=str(X)
A. 21
B. 42
C. 54
D. 72
[单项选择]在窗体上添加一个命令按钮,名为Command1,然后为该命令按钮编写如下事件过程,该过程执行结果为______。
Option Base 1
Private Sub Cemmand1_Click( )
Dim a As Variant
a = Array(1, 2, 3, 4)
j = 1
for i = 4 To 1 Step - 1
s = s+ a(i)* j
j= j* 10
Next i
Print s
End Sub
A. 4321
B. 1234
C. 34
D. 12
[单项选择]在窗体上添加一个命令按钮(名为Command1)和一个文本框(名为Text1),则执行如下事件过程后,文本框中的输出为______。private Sub Command1_ click( ) for i = 1 To 4 for j = 1 To 3 x = 3 for K = 1 To 2 x=x+3 Next K Next j Next i Text1.Text= Str(x)End Sub
A. 3
B. 6
C. 9
D. 12
[单项选择]在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框,并把窗体的 KeyPreview 属性设置为True,然后编写如下代码: Dim SaveAll As String Private Sub Form_ Load ( ) Show Text1.Text = " " Text1. SetFocus End Sub Private Sub Command1 Click( ) Text1. Text= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后,在键盘上输入ABCDEFG,单击命令按钮,则文本框中显示的内容为 ______ 。
A. abodefg
B. 不显示任何信息
C. ABCDEFG
D. 出错
[单项选择]在窗体上添加一个命令按钮,其名为Command1,然后编写代码如下:
Option Base 1
Private Sub command1_ Click( )
Dim arr (4)As Integer
Dim arrt (4) As Integer
for i= 1 To 4
Arr (i)= i
arr1 (n)= 2 * n + i
Next i
Print arr1 (n); arr(n)
程序的运行结果为______。
A. 3 11
B. 11 3
C. 10 3
D. 3 13
[填空题]在窗体上添加一个命令按钮(名为Command1),然后编写如下事件过程:
Private Sub Command1_Cliek
Dim b, k
For k = 1 to 6
b=23+k
Next k
MsgBox b + k
End Sub
打开窗体后,单击命令按钮,消息框的输出结果是 【15】 。
[填空题]在窗体上添加一个命令按钮(名为Command1),然后编写如下事件过程:
Private Sub Command1 Click( )
Dim b,k
For k=1 to 6
b=23+k
Next k
MsgBox b+k
End Sub
打开窗体后,单击命令按钮,消息框的输出结果是 [15] 。