更多"刚建立工程时，使窗体上的所有控件具有区别于默认值的相同的字体格式，应对"的相关试题:
[填空题]刚建立工程时，使窗体上的所有控件具有区别于默认值的相同的字体格式，应对Form窗体的______属性进行设置。
[填空题]
刚建立工程时，使窗体上的所有控件具有区别于默认值的相同的字体格式，应对 (8) 的 (9)
属性进行设置。
[填空题]刚建立工程时，使窗体上的所有控件具有区别于默认值的相同的字体格式，应对 (8) 的 (9) 属性进行设置。
[填空题]在刚建立工程时，使窗体上的所有控件具有相同的字体格式，应对______的属性进行设置。
[单项选择]程序代码如下，当单击窗体上的Command1控件时，窗体上输出的结果是( )。
Private Sub Command1_Click（ ）
Dim Y As Integer，I As Integer
Dim A(7)As Integer
Y=18：I=0
Do
A(I)=Y Mod 2
I=I+1
Y=Y/2
Loop Until Y＜1
For j=I-1 To 0 Step-1
Print A(j)；
Next j
End Sub
A. 1 0 0 0
B. 1 0 0 1 0
C. 0 0 1 1 0
D. 1 0 1 0 0
[单项选择]程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是( )。
Private Sub Command1_Click（ ）
Dim i As Integer,k As Integer
Dim a(9) As Integer,p(2)As Integer
k=5
For i=0 To 9
a(i)=i
Next i
For i=0 To 2
p(i)=a(i*(i+1))
Next i
For i=0 To 2
k=k+p(i)*2
Next i
Print k
End Sub
A. 20
B. 21
C. 22
D. 23
[单项选择]程序代码如下，当单击窗体上的Command1控件时，在窗体上输出的结果是( )。
Private Sub Command1_Click（ ）
Dim aa(3，3)As Integer
Dim i As Integer,j As Integer
Dim s As Integer
For i=0 To 3
For j=0 To 3
aa(i，j)=i*4+j+1
Next j
Next i
For i=0 To 3
s=s+aa(i，1)
Next i
Print s
End Sub
A. 32
B. 28
C. 30
D. 36
[填空题]在窗体上选择多个控件应按______键然后单击各控件。
[填空题]下列程序运行时，单击窗体，执行结果为 【12】 。
说明：在窗体上有一Label控件，名为lblDate。
Dim Y As Integer,m As Integer,d As Integer,w1 As Integer
Dim Rq As Date
Dim W2 As String
Private Sub Form_Click（ ）
Rq=Date
Y=Year(Rq): m=Month(Rq)∶d=Day(Rq)
w1=Weekday(x)
Select Case w1
Case 1
W2="日"
Case 2
W2="一"
Case 3
W2="二"
Case 4
W2="三"
Case 5
W2="四"
Case 6
W2="五"
Case 7
W2="六"
End Select
bldate.Caption="今天是"&Y&"年"&m&"月"&d&"日"&"星期"&W2
End SUb
[填空题]在窗体上加上一个文本控件PCSTextBox，画一个命令按钮，当单击命令按钮的时候将显示 “打开文件”对话框，设置该对话框只用于打开文本文件，然后在文本控件中显示打开的文件名。请填空。
Private Sub Command1_Click（ ）
CommonDialog1．Filter=【 】
CommonDialog1．ShowOpen
PCSTextBox．Text=【 】
End Sub
