首页 > 计算机应用技术> JAVA程序设计

网友您好，请在下方输入框内输入要搜索的题目：

请输入或粘贴题目内容搜题

搜题

拍照、语音搜题，请扫码下载APP

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

[主观题]

下列程序的功能是：单击窗体时将随机生成10个1～100之间的数，求出它们的总和及平均数。请填空。

Option Base 1 Private Sub Form_Click() Dim a(10)As Integer,i As Integer Dim sum As Integer,aver As Single 【】 For i=1 To 10 a(i)=Int(100*Rnd)+1 sum=sum+a(i) Next i 【】 Print sum,aver End Sub

答案

查看答案

发布时间：2022-12-04

更多“下列程序的功能是：单击窗体时将随机生成10个1～100之间的数，求出它们的总和及平均数。请填空。”相关的问题

第1题

下列程序实现的功能是：当在窗体上单击时，将输出a1．txt 文件中的数字字符的个数。 Private Sub fo

rm_ Click() Dim Ch As String * 1 Dim n As Integer Open "c:\a1. txt" for Input As 10 do while【】 Ch = Input(1, 10) if【】 then n=n+1 End if Loop【】 Close 10 End Sub

点击查看答案

第2题

下列程序实现的功能是：当在窗体上单击时，将在窗体上输出c:\a1．txt文件中的所有小写字母。 Pri

vate Sub Form_Click() Dim Ch As String*1 Open"c:\a1．txt"For Input As 10 Do While【】 Ch=Input(1，10) If【】Then Print Ch； End If Loop 【】 End Sub

点击查看答案

第3题

在窗体中添加一个命令按钮，（其Name属性为Command1)，然后编写代码。程序的功能是产生100个小于1000

在窗体中添加一个命令按钮，(其Name属性为Command1)，然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数，并统计其中5的倍数所占比例。请在【】和【】、【】处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() Dim a(100) For j=1 To 100 a(j)=Int (【】) If a(j)【】5=0 Then【】 Print a(j) Next j Print print k/100 End Sub

点击查看答案

第4题

有如下VB程序：PrivateSubForm_Click（)DimiAsIntegeri=－Abs（－3)Mod2>－1PrintiEndSub当单击窗体时i的值是（)。

A.0

B.1

C.True

D.False

点击查看答案

第5题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（)x=-5 If x＞0 Then y=x∧2 Else y=x End If Print y End Sub 程序运行后，单击命令按钮，窗体上显示的是（)。

A.-5

B.25

C.1

D.-1

点击查看答案

第6题

在窗体中添加一个名称为Lablel1的标签、两个名称为Text1和Text2的文本框以及名称为Command1的按钮

。程序运行后，在两个文本框中输入数据，当单个按钮时，标签Label1中显示运算的结果。程序的功能是计算，n!+(n+1)!+(n+2)!+…+(n+m)!。请在【】处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() Dim a，b，c，d As Double Dim i，n，m As Integer n=Val(Text1.Text):m=Val(【】) a=0： b=1： c=0： d=1 For i=1 TO m b=b*i a=a+b Next i For i=1 To n d=d*i C=c+d Next i Label1.Caption=a-c End Sub

点击查看答案

第7题

在程序的每个空白处填写一条适当的语句，使程序完成相应的操作。程序实现的功能是：窗体上有文本框T

ext1和若干复选框，其中复选框Check1设置文本框Text1显示的文本是否加下划线。Check1的单击事件过程如下： Private Sub Check1_Click() If______ Then Text1.FontUnderline=Tree ElseIf______Then Text1.FontUndefiine=False End If End Sub

点击查看答案

第8题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click（）

Dim a As Integer, s As Integer

a = 8

s = 1

s = s + a

a = a－1

Loop While a ＜＝ 0

Print s; a

End Sub

程序运行后，单击命令按钮，则窗体上显示的内容是（）。

A.7 9

B.34 0

C.9 7

D.死循环

点击查看答案

第9题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num > 6 Print num; num = num + 2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是()。

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num ＞ 6 Print num; num = num + 2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是()。

A.无数据输出

B.1 3.4 5.8

C.1 4 7

D.1 3 5

点击查看答案

第10题

在窗体上画一个命令按钮，然后编写如下事件过程，该过程的功能是用简单选择排序法将10个数排成

升序，请在______处将程序补充完整。

Private Sub Command1 _ Click() Dim a(10)

For i=1 To 10

a(i)=Val(InputBox(″″,″″,0)) Next i

For i=______ For j=______

If ______ Then b=a(i) a(i)=a(j) a(j)=b End If Next j Next i

For k=1 To 10 Print a(k) Next k End Sub

点击查看答案

第11题

阅读如下程序； Private Sub Form. Click（) msg1$=“继续吗？” msg2$=“操作对话

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

点击查看答案