问题：
[填空题] 要使标签的背景样式为不透明，应将BackStyle属性设置为【 】。
问题：
[填空题] 下列程序是判断一个整数(>=3)是否为素数，请补充完整。 Dim n As Integer n=InputBox("请输入一个整数(>=3)") k=Int(Sqr(n)) i=2 swit=0 While i<=k And swit=0 If n Mod i=0 Then 【】 Else 【】 End If Wend If swit=0 Then Print n；"是一个素数。"
问题：
[填空题] 已知B的ASCII码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数Dim pp (65 To 90)For i = 65 To 90 pp(i) =0Next x$ = InputBox(" Enter a string", x$ ) x$ = UCase$ (x$) For i = 1 To Len (x$) n =Asc(Mid$ (x$, i, 1) ) If n＞= 65 And n＜ = 90 Then 【11】 End If
问题：
[填空题] 设有如下程序：Private Sub Form_Click()Dim n As Integer, s As Integer n = 8s = 0 Do s = s + n n = n - 1Loop While n > 0Print sEnd Sub以上程序的功能是 _________。程序运行后，单击窗体，输出结果为 _________。
问题：
[填空题] 有如下函数过程。 Function UNC(ByVal x As Integer，ByVal y As Integer)As Integer Do While y＜＞0 S=x/y x=y y=S Loop UNC=x End Function 以下事件调用该函数，程序运行结果是 【7】 。 Private Sub Command1_Click() Dim a As Integer Dim b As Integera=12b=2x=UNC(a，b)Print x En
问题：
[填空题] 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = i Next Call swap（【 】） For i = 1 To 10 Print a(i); Next End Sub Sub swap(b() As Integer) n =【 】
问题：
[填空题] 下面运行程序后，单击命令按钮，输出出的结果是 【12】 。 Private Sub Command1_Click( ) Dim a% (1 To 5) ,i%, s# For i = 1 To 5 a(i) =i Next s = Fun(a) Print"s="; s; End Sub Function Fun(a() As Integer) Dim t#, i% t=1 For i = LBound(a) To UBound(a) t=t
问题：
[填空题] 为了选择多个控件，可以按住______键，然后单击每个控件。
问题：
[填空题] 下面的程序的作用是利用随机函数产生10个100-300(不包含300)之间的随机整数，打印其中7的倍数的数，井求它们的总和，请填空。 Sub TOF( ) Randomize Dim s As Double Dim a(10) As lnteger For i=0 To 9 【】 Next For i=0 To 9 If【】Then Print a(i) s=s+a(i) 【】 Next i Print Print "S=&
问题：
[填空题] 下列的For语句循环体要执行50次，请填空。 For k=______To -7 Step -3
鄂公网安备 42120202000370号