首页 > 计算机应用技术> 平面图像软件设计与应用

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

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

搜题

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

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

[主观题]

在窗体上画一个名为Command1的命令按钮。下列程序的功能是：从输入对话框输入一个正整数n。用随机函

数产生n个1～100范围的随机数，然后求出去掉一个最大数和最小数的平均数。根据题意，请完善下列程序： Private Sub Command1_Click() Dim ave As Single, max As Integer, i As Integer, n As Integer Dim min As Integer, Sum As Integer, s As String Dim t As Integer s=InputBox("输入一个正整数:") n=Val(s) If n＞0 Then max=n: min=n: Sum=0 For j=1 To n t=【】 Print t; Sum=Sum+t If t＜min Then min=t Elself max＜t Then max=t End If Next j 【】 ave=Sum/n MsgBox"平均值="+Str(ave)，，"去掉最大数和最小数后" End If End Sub

答案

查看答案

发布时间：2022-12-04

更多“在窗体上画一个名为Command1的命令按钮。下列程序的功能是：从输入对话框输入一个正整数n。用随机函”相关的问题

第1题

在窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如

下事件过程：Private Sub Command1_Click() CommonDialog1.FileName=“” CommonDialog1.Filter=“All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt” CommonDialog1.FilterIndex=2 CommonDialog1.DialogTitle=“VBTest”CommonDial

A.该对话框被设置为“打开”对话框

B.在该对话框中指定的默认文件名为空

C.该对话框的标题为VBTest

D.在该对话框中指定的默认文件类型为文本文件(*.Txt)

点击查看答案

第2题

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

Private Sub Command1_Click（）

CommonDialog1.FileName =""

CommonDialog1.Filter="All file|*.*|（*.Doc）|*.Doc|（*.Txt）|*.Txt"

CommonDialog1.FilterIndex=1

CommonDialog1.DialogTitle="VBTest"

CommonDialog1.Action=1

End Sub

对于这个程序，以下叙述中错误的是（）。

A.该对话框被设置为"打开"对话框

B.在该对话框中指定的文件名为空

C.该对话框的标题为VBTest

D.在该对话框中指定的默认文件类型为文本文件（*.Txt）

点击查看答案

第3题

在窗体上画一个名称为Command1的命令按钮。编写如下事件过程： Private Sub Command1_Click（) Di

在窗体上画一个名称为Command1的命令按钮。编写如下事件过程： Private Sub Command1_Click() Dim a As String A=【】 For i=1 To 5 Print Space(6-i); Mid$(a, 6-i, 2*i-1) Next i End Sub 程序运行后，单击命令按钮，要求窗体上显示的输出结果为： 5 456 34567 2345678 123456789 请填空。

点击查看答案

第4题

在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Function M（x As Integer, y As I

在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Function M(x As Integer, y As Integer) M=IIf(x＞y, x, y) End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a=100 b=200 Print M(a, B) End Sub 程序运行后，单击命令按钮，输出结果为【】。

点击查看答案

第5题

在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click（) Dim arr（)A

在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 arr(i)=i Next i x=InputBox("请输入一个数字：") If Val(x)＞4 Then ReDim art(4) air(4)=x End If Me.Print(arr(4)-art(3)) End Sub 程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为【】。

点击查看答案

第6题

在窗体上画一个名称为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

点击查看答案

第7题

在窗体上画一个命令按钮，然后编写如下程序：（假定变量x是一个窗体级变量) Dim x As Intege

在窗体上画一个命令按钮，然后编写如下程序：(假定变量x是一个窗体级变量) Dim x As Integer Sub inc(a As Integer) x=x+a End Sub Private Sub Command1_Click() inc 2 inc 3 inc 4 Print x； End Sub 程序执行后，单击Command1命令按钮，输出的结果是【】。

点击查看答案

第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题

在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub

Command1_Click() Dim a s=0 a=Array (1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a (i) * j j=j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是()。

A.4321

B.34

C.1234

D.12