下列()事件过程可以将打开文件对话框的标题改变为“new Caption”。
A. Prirate Sub Commandl Click() CommonDialogl.DialogTitle="new Caption" CommonDialogl.ShowFont End Sub
B. Private Sub Commandl+Click() CommonDialogl.DialogTitle="new Caption" CommonDialogl.ShowOpen End Sub
C. Private Sub Commandl_Click() CommonDialogl.DialogTitle="new Caption" CommonDialogl.ShowHelp End Sub
D. Private Sub Commandl_Click() CommonDialogl.DialogTitle="new Caption" CommonDialogl.ShowColor End Sub
查看答案
下列程序代码实现生成20个0~100之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。请选择正确的程序段是(),完成程序。 Private Sub Commandl_Click() Dim arr(1 To 20) For i=1 To 20 arr(i)=______ Textl.Text=Textl.Text & arr(i)& Chr(13)& Chr(10) Next i Sum=0 For Each X ______ If X>50 Then Print Tab(20);X Sum=Sum+X End If Next X Print Tab(20);"Sum=";Sum End Sub
A. Int(Rnd*99+1) In arr
B. Int(RnD)In arr
C. Int(Rnd*99+1) In arr()
D. Int(RnD)In arr()
下列程序的运行结果是()。 Private Sub Commandl_Click() a=1.5 b=1.5 Call fun(a,B)Print a,b End Sub Private Sub fun(x,y) x=y*y y=y+x End Sub
A. 2.25 3.75
B. 1.5 2.25
C. 1.5 0.75
D. 0.75 1.5
What's the evidence that Jackson thought Kobe is better than Michael?
A. Kobe is doing less post-up, less penetration, less at-the-basket kind of stuff.
B. Kobe is shooting more than Michael was.
C. Kobe's shooting way is raising up over people and knocking the ball down.
D. Kobe can shoot in more range than Michael.
What can we learn front this passage?
A. Blanche Lincoln had intensive intention to protect natural environment.
B. Mr. Bumpers extended his influence by his constant endeavors.
C. Maybe some years ago, Mr. Bumpers kept hostile posture to this kind of irrigation project.
D. Many of refuges were constructed by Mr. Bumpers himself.