首页 > 其他> 其他

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

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

搜题

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

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

[判断题]

自定义函数是function开头，endfunction语句结尾，它只能返回值，不能新建工作簿、设置单元格格式、删除工作表等等操作。（)

答案

查看答案

发布时间：2022-12-05

更多“自定义函数是function开头，endfunction语句结尾，它只能返回值，不能新建工作簿、设置单元格格式、删除工作表等等操作。（)”相关的问题

第1题

对下面的Pascal程序： PROGRAM ex710； VAR k：Real； FUNCTION f（n：Integer)：Real；

对下面的Pascal程序： PROGRAM ex710； VAR k：Real； FUNCTION f(n：Integer)：Real； BEGIN IF n＝0 THEN f：＝1 ELSE f：＝n*f(n－1) END； BEGIN k：＝f(10)； Write(k) END．试指出：当递归调用函数f(n)时，在第二次进入f之后，栈式存储分配活动记录的内容是什么？

点击查看答案

第2题

测量标杆用于测量海浪高度（单位：m)，海浪高度是随时间变化的函数。对高度的采样信号的采样频率为每秒5个样本。

测量标杆用于测量海浪高度(单位：m)，海浪高度是随时间变化的函数。对高度的采样信号的采样频率为每秒5个样本。采样得到的样本组成了下面的离散时间信号

s_i(nT)=cos[2π(0.2)nT+1.1]+0.5cos[2π(0.3)nT+1.5]

以上信号被传送至中央波浪检测站。由于噪声的影响，接收到的信号x(nT)为传送信号与噪声的和，噪声可用下面的MATLAB函数表示：

function no=drn(n)

N=size(n，2)；rand('seed'，0)；

no(1)=rand-0.5;

for i=2:N；

no(i)=0.2*no(i-1)+(rand-0.5)；

end；

利用一个低通滤波器对x(nT)进行处理以去除噪声。该滤波器的单位脉冲响应为

h(nT)={0.2*(0.8)ⁿ-0.14*(0.9)ⁿcos(0.4n)+0.2(0.9)ⁿsin(0.4n)}u(nT)]

试画出0≤t≤6s内高度采样信号s_i(nT)，滤波器的输入信号x(nT)，滤波器的单位脉冲响应h(nT)以及滤波器的输出信号y(nT)。

点击查看答案

第3题

下列程序的功能是：将字符串“abcde”逆序打印出来。请填写空白处以完善程序。 Function rev（str1) A

下列程序的功能是：将字符串“abcde”逆序打印出来。请填写空白处以完善程序。 Function rev(str1) As String B=Mid(______,1, 1) If B= "" Then rev="" Else rev=rev(Mid(str1, 2)) +______ End If End Function Private Sub Form_Click() ld ="abcde" Print rev(old) End Sub

点击查看答案

第4题

下列过程的功能是用来计算并输出S=1+1/2+1/3+……+1/100的值，请完善程序。 Function SumF（n As

下列过程的功能是用来计算并输出S=1+1/2+1/3+……+1/100的值，请完善程序。 Function SumF(n As Integer)As Single s = 0 For i=1 To n s=【】 Next i SumF=s End Function Private Sub Form_Click() Sum1=SumF(100) Print Print"sum1="； sum1 End Sub

点击查看答案

第5题

下列程序的功能是计算两个自然数的最大公约数，界面如下图所示。给定的程序不完整，将程序补充完整。

Private Sub Command1_Click() Dim x As Long， y As Long，i As Long x=Val(Text1．Text) y=Val(TextText) TextText = Str(【】) End Sub Function fun1(a As Long，b As Long)As Long Dim r As Long Dim t As Long If【】Then t = a a = b b = t End If r = a Mod b Do While r ＜＞ 0 a = b b = r r = a Mod b Loop 【】 End Function

点击查看答案

第6题

下面程序的功能是计算给定正整数序列中奇数之和y与偶数之和x，最后输出x平方根与 y平方根的乘积。

请在画线处填上适当的内容使程序完整。 Private Sub Form_Click() a=Array(3，6，8，11，64，13，24，9，42，35，22) y=Fun1(a) print y End Sub Private Function Fun1(b) x=0：y=0 for k=0 to 10 If【】Mod 2=0 then x=x+b(x) else y=y+b(x) End If Next Fun1=Sqr(x)*Sqr(y) End Function

点击查看答案

第7题

下面的程序是找出两个正整数a和b，使得a＜b、a+ b=99、a和b的最大公约数是3的倍数，并统计满足条件数

对的个数。 Option Explicit Dim a As Integer, b As Integer, n As Integer, c As Integer Private Function Gcd (ByVal a As Integer, Byval b As Integer) As Integer do c=a Mod b: a=b=c Loop【】 Gcd=a End Function Private Sub form_ Click() n=0 for a= 1 To 49 b=【】 c= Gcd (a, b) if c Mod 3= 0 then 【】 Print a, b, c End if Next a Print n End Sub

点击查看答案

第8题

在窗体上添加一个命令按钮Command1，一个文本框Text1，编写如下程序： Function result（ByVal x As Integer)A

在窗体上添加一个命令按钮Command1，一个文本框Text1，编写如下程序：

Function result(ByVal x As Integer)As Boolean

If x Mod 2=0 Then

result=True

ElSe

result=False

End If

End Function

Private Sub Command1_Click()

x=Val(InputBox("请输入一个整数"))

If______Then

Textl=Str(x)&"是偶数."

ElSe

Text1=Str(x)&"是奇数."

End If

End Sub

程序运行后单击命令按钮，在输入对话框中输入19，则在Text1中显示“19是奇数”。那么程序的空白处应填写( )。

A．result(x)="偶数" B．result(x)="奇数"

C．result(x)D．NOT result(x)

点击查看答案

第9题

下列程序的功能是：当发生窗体的单击事件时，求出3～1000之间的所有素数的和以及所有能被3和5整除的

数的和(素数是指只能被1和它本身整除的数)，并在窗体上把这两个和显示出来。 Private Sub Form_Click() Dim s1 As Long，s2 As Long Dim i As Integer For i=3 To 1000 If prime(i) Then s1=s1+i Else If【】Then s2=s2+i End If Next i Print s1，s2 End Sub Public Function prime(ByVal n As Integer)As Boolean Dim j As Integer For j=2 To n-1 If n Mod j=0 Then Exit For End If Next j If j=n Then 【】 Else prime=False End If End Function

点击查看答案

第10题

以下程序的功能是：求x的y次方。根据题意，请完善下列程序。 Private Function funl（x As Double, y

以下程序的功能是：求x的y次方。根据题意，请完善下列程序。 Private Function funl(x As Double, y As Integer)As Double Dim i As Integer Dim z As Double z=【】 For i=1 To y z=z*x Next i 【】 End Function Private Sub Command1_Click() Dim m As Double Dim n As Integer Dim t As Double m=InputBox("输入x数:") n=InputBox("输入次方数:") t=funl(m, n) Print Str(m)+"^"+Str(n)+"=";【】 End Sub

点击查看答案

第11题

在窗体上画一个命令按钮，其名称为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 程序运行后，单击命令按钮，输出结果为【】。

点击查看答案