题目内容（请给出正确答案）

[主观题]

设有如下程序： 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 程序运行后，单击窗体，输出结果为【】。

查看答案

如果结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装优题宝APP，拍照搜题省时又省心！

更多“设有如下程序： Private Sub Form_Click…”相关的问题

第1题

设有如下程序 Private Sub Search（a（)As Variant，ByVa1 key As Variant，index%)

设有如下程序 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

设有如下程序： 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 D0ublesum=0n=0For i=1 To 5x

设有如下程序： 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 Intege

设有如下程序 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

设有如下程序： 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题

设有如下程序，查找并输出该数组中的最小值，请在空白处填上合适的代码，将程序补充完整。 Option B

ase 1 Private Sub Command1_Click() Dim arr1 Dim Min As Integer, i As Integer arr1=Array(12, 435, 76, -24, 78, 54, 866, 43) Min = arr1(l) For i=2 To 8 If arr1(i) ＜ Min Then Next i Print "最小值是:"; Min End Sub

点击查看答案

第7题

设有如下记录类型： Type student Number As String*10 Name As String*8 End Type 窗体中有

若干控件，单击其中的一个按钮Command1时，执行如下事件过程，该过程的功能是把数据输出到指定的文件中。根据题意，请完善下列程序。 Private sub Command1_click() Dim stu As student Open "C:\file, dat" For Random As 1 Len=Len(【】) Title $="写记录到随机文件" Str1 $="请输入学生名" Str2 $="请输入学生名" For i=1 To 5 stu. Number=InputBox(Str1 $, Title $) stu. Name=InputBox$(Str2 $, Title $) 【】1, i, stu Next i Close【】 End Sub

点击查看答案

第8题

在窗体上画一个文本框和一个命令按钮，如下图所示。编写如下程序： Private Sub Form_Lo

在窗体上画一个文本框和一个命令按钮，如下图所示。

在窗体上画一个文本框和一个命令按钮，如下图所示。编写如下程序： Private Sub Form_ 编写如下程序： 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

执行如下程序段后，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$=“操作对话

阅读如下程序； Private Sub Form. Click() msg1$=“继续吗？” msg2$=“操作对话框” r=MsgBox(msg1$，vbYesNo OrvbDefaultButton2，msg2$) End Sub 程序运行后，单击窗体，将产生一个信息框。此时如果直接按回车键，则相当于用鼠标单击信息框中的【】按钮。

点击查看答案