设有如下程序: Private Sub Form_Click() a=325456 Print Format(Int((a*10+0
设有如下程序: Private Sub Form_Click() a=325456 Print Format(Int((a*10+0.5))/10,"000,000.00") End Sub 程序运行后,单击窗体,输出结果为【 】。
设有如下程序: Private Sub Form_Click() a=325456 Print Format(Int((a*10+0.5))/10,"000,000.00") End Sub 程序运行后,单击窗体,输出结果为【 】。
第1题
设有如下程序 Private Sub Search(a()As Variant,ByVa1 key As Variant,index%) Dim I% For I=LBound(A)To UBound(a) If key=a(1) Then index=I Exit Sub End If Next I index=I End Sub Private Sub Form_Load() Show Dim b() As Variant Dim n As Integer b = Array(1,3,5,7,9,11,13,15) Call Search(b, 11 ,n) Print n End Sub程序动行后,输出结果是【 】。
第2题
设有如下程序: Private Sub Form_Click() Dim a As Integer,s As Integer n=8 S=0 DO S=S+n n=n-1 Loop While n>0 Print S End Sub 以上程序的功能是【 】。程序进行后,单击窗体,输出结果为【 】。
第3题
设有如下程序: Private Sub Commandl Click() Dimsum As Double,x As D0uble sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值,这个表达式是______。
A.1+1/2+2/3+3/4+4/5
B.1+1/2+2/3+3/4
C.1/2+2/3+3/4+4/5
D.1+1/2+1/3+1/4+1/5
第4题
设有如下程序 Private Sub Fom1_Click() Dim s As Integer,b As Integer a=20:b=50 p1 a,b p2 a,b p3 a,b Print"a=";a,"b=";b End Sub Sub pl(x As Integer,ByValy As Integer) x=x+10 y=y+20 End Sub Sub p2(ByVal x As Integer,y As Integer) x=x+10 y=y+20 End Sub Sub p3(ByVal x As Integer,ByValy As Integer) x=x+10 y=y+20 End Sub 该程序运行后,单击窗体,则在窗体上显示的内容是:a=【 】和b=【 】。
第5题
设有如下程序: Private Sub Command1_Click() Dim sum As Double,x As Double sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub 该程序通过For循环计算—个表达式的值,这个表达式是_________。
A.1+1/2+2/3+3/4+4/5
B.1+1/2+2/3+3/4
C.1/2+2/3+3/4+4/5
D.1+1/2+1/3+1/4+1/5
第6题
第7题
第8题
在窗体上画一个文本框和一个命令按钮,如下图所示。
编写如下程序: Private Sub Form_Load() Show Text1.Text=" " Form1.KeyPreview=False Text1.SetFocus End Sub Private Sub Command1_Click() KeyPreview=Not KeyPreview Print End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print UCase(Chr(KeyAscii+1)); End Sub Private sub Text1_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii+2) KeyAscii=0 End Sub 阅读以上程序,理解每个事件过程的操作,然后填空。 ①程序运行后,直接从键盘上输入abc,程序输出的结果是【 】。 ②程序运行后,单击一次“命令按钮1”,然后从键盘上输入abc,程序输出的结果是【 】。
第9题
执行如下程序段后,intsum的值为【 】。 Private Sub Command1_Click() sum=0 For i=1 To 18 Step 2 For j=2 To 6 If(i Mod j)<>0 Then sum=sum+j Next Next Print sum End Sub
第10题
阅读如下程序; Private Sub Form. Click() msg1$=“继续吗?” msg2$=“操作对话框” r=MsgBox(msg1$,vbYesNo OrvbDefaultButton2,msg2$) End Sub 程序运行后,单击窗体,将产生一个信息框。此时如果直接按回车键,则相当于用鼠标单击信息框中的【 】按钮。