当前位置：文档之家 › 8-15上机操作答案

8-15上机操作答案

  • 格式：doc
  • 大小：74.50 KB
  • 文档页数：21

8. 打开D盘根目录VB实验文件夹下的"工程1"工程文件，编写一个程序，求数组中每一行的和并显示在文本框中。

将原窗体文件和工程文件分别另存为为F8.frm和P8.vbp，保存在D盘的VB实验文件夹中。

如不按要求保存，造成文件无法上传，后果自负！具体要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、单击"显示"按钮，则随机生成二位数组成的5行5列的数组并显示在图片框中；3、单击“计算”按钮，则在文本框中显示每一行的和；4、单击“清除”按钮，则将文本框和图片框清空；5、单击“退出”按钮，结束程序运行；(问题：不能空行输出，答案不是要得答案)Option ExplicitOption Base 1Dim a(5, 5) As IntegerPrivate Sub Command1_Click()Dim i, j As IntegerFor i = 1 To 5For j = 1 To 5a(i, j) = Int(10 + Rnd * 90)Picture1.Print CStr(a(i, j)); " ";Next jPicture1.PrintNext iEnd SubPrivate Sub Command2_Click()Dim sum(5) As Integer, i, j As IntegerFor i = 1 To 5sum(i) = 0For j = 1 To 5sum(i) = sum(i) + a(i, j)Next jText1 = Text1 & CStr(sum(i)) & Chr(13) & Chr(10)Next iEnd SubPrivate Sub Command3_Click()Picture1.ClsText1.Text = ""End SubPrivate Sub Command4_Click()EndEnd Sub9打开D盘根目录VB实验文件夹下的"工程1"工程文件，编写一个程序，找出数组中最大的元素并显示其位置。

将原窗体文件和工程文件分别另存为为F9.frm和P9.vbp，保存在D盘的VB实验文件夹中。

如不按要求保存，造成文件无法上传，后果自负！具体要求:1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见(其中四个按钮为控件数组)；2、单击"显示"按钮，则随机生成二位数组成的5行5列的数组并显示在图片框中；3、单击“查找”按钮，则在文本框中显示数组中的最大元素及其位置；4、单击“清除”按钮，则将文本框和图片框清空；5、单击“退出”按钮，结束程序运行；Option ExplicitOption Base 1Dim a(5, 5) As IntegerPrivate Sub Command1_Click()Dim i, j As IntegerFor i = 1 To 5For j = 1 To 5a(i, j) = Int(10 + Rnd * 90)Picture1.Print CStr(a(i, j)); " ";Next jPicture1.PrintNext iEnd SubPrivate Sub Command2_Click()Dim i, j As IntegerDim max As Integer, lmax As Stringmax = a(1, 1)For i = 1 To 5For j = 1 To 5If a(i, j) > max Thenmax = a(i, j)lmax = "a(" & i & "," & j & ")"End IfNext jNext iText1.Text = "最大数为" & max & "," & " 它的位置是" & lmaxEnd SubPrivate Sub Command3_Click()Picture1.ClsText1.Text = ""End SubPrivate Sub Command4_Click()EndEnd Sub10打开D盘根目录VB实验文件夹下的"工程1"工程文件，编写一个随机产生10个两位正整数并放入数组arr中，然后查找并输出这10个数中的最大值Max 和最小值Min。

将原窗体文件和工程文件分别另存为为F10.frm和P10.vbp，保存在D盘的VB实验文件夹中。

如不按要求保存，造成文件无法上传，后果自负！具体要求:1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、单击"查找"按钮，则开始生成10个满足条件的随机数，并显示在Text1中,将Max值显示在Text2中，Min值显示在Text3中；3、单击“清除”按钮，则将文本框清空；4、单击“退出”按钮，结束程序运行；5、程序中应包含一个名为MaxMin的Sub过程，用于查找最大值Max和最小值Min。

Option Base 1Dim arr(10) As IntegerPrivate Sub maxmin()Dim i As IntegerDim max, min As Integermax = arr(1)min = arr(1)For i = 1 To 10If arr(i) > max Thenmax = arr(i)ElseIf arr(i) < min Thenmin = arr(i)End IfEnd IfNext iText2 = maxText3 = minEnd SubPrivate Sub Command1_Click()Dim i As IntegerFor i = 1 To 10arr(i) = Int(10 + Rnd * 90)Text1 = Text1 & arr(i) & " "Next iCall maxminEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""End SubPrivate Sub Command3_Click()EndEnd Sub11打开D盘根目录VB实验文件夹下的"工程1"工程文件，完成VB实验指导书实验9中的第3题，求n个自然数的最大公约数和最小公倍数，用递归过程实现。

将窗体文件和工程文件分别以F11.frm和P11.vbp保存在D盘的VB实验文件夹中。

要求代码书写呈锯齿型，按题目要求保存在相应的文件夹中，否则无法上传你完成的实验！Option Base 1Dim a() As LongSub gcdn(a() As Long, n As Long, gcd As Long)If n = 2 Thengcd = gcd2(a(1), a(2))Elsegcdn a(), n - 1, gcdgcd = gcd2(gcd, a(n))End IfEnd SubFunction gcd2(a As Long, b As Long)If b = 0 Thengcd2 = aElsegcd2 = gcd2(b, a Mod b)End IfEnd FunctionSub lcmn(a() As Long, n As Long, lcm As Long) If n >= 2 ThenCall lcmn(a(), n - 1, lcm)lcm = lcm / gcd2(lcm, a(n)) * a(n)Elselcm = a(1)End IfEnd SubPrivate Sub Form_click()Dim n As Long, gcd As Long, lcm As LongDon = InputBox("请输入自然数的个数") Loop Until n > 1ReDim a(n) As LongFor i = 1 To na(i) = InputBox("请输入第" & i & "个自然数")Next iCall gcdn(a(), n, gcd)Call lcmn(a(), n, lcm)PrintFor i = 1 To nPrint a(i); "";Next iPrint "的最大公约数是:"; gcdPrintFor i = 1 To nPrint a(i); "";Next iPrint "的最小公倍数是:"; lcmEnd Sub12打开D盘根目录VB实验文件夹下的"工程1"工程文件，利用鼠标事件编写程序，实现在窗体上画图。

具体要求如下：1、按下鼠标右键画图，按下鼠标左键无操作；2、设置画笔宽度为10，颜色为蓝色；3、程序参考界面如图所示；4、程序代码须书写呈锯齿型；5、将窗体文件和工程文件分别以F12.frm和P12.vbp保存在D盘的VB实验文件夹中。

Dim paintnow As BooleanSub form_mousedown(button As Integer, shift As Integer, x As Single, y As Single)paintnow = TrueEnd SubSub form_mouseup(button As Integer, shift As Integer, x As Single, y As Single)paintnow = FalseEnd SubSub form_mousemove(button As Integer, shift As Integer, x As Single, y As Single)If paintnow And button = 2 ThenPSet (x, y)End IfEnd SubSub form_load()DrawWidth = 10forecolour = RGB(0, 0, 255)（改为蓝色）End Sub13打开D盘根目录VB实验文件夹下的"工程1"工程文件，完成VB题解与上机指导书P268实验11中的第一个实验内容，在文本框中输入适当的文本，通过菜单命令控制文本框中字体的外观、名称、大小和颜色，具体要求和实验步骤参照上机指导书。

合集下载

c程序设计实验参考答案

c程序设计实验参考答案

编程求出某学生期末三门课程的总分及平均分。结果保留小数点后一位。
main( )
{ float a,b,c;
float s,v;
scanf("%f,%f,%f,%f",&a,&b,&c);
s=a+b+c;
v=s/3.0;
printf("\n%7.1f,%7.1f",s,v);
}
实验五参考答案
一．1、a=10,b=30,c=10
}
2、main()
{int i;
double m=100000,n,s;
n=0.01;
s=0;
for(i=1;i<=30;i++)
{s+=n;
n=n*2;
}
printf("%f %f\n",s,m*30 );
}
实验八参考答案：
一．1、s=12345
2、7，
5，
3，
3、<1,2>=6
二．1、% for(j=k;j>0;j--)
第4行改为scanf("%d",&a[i])；
第12行改为printf("av=%d\n",av)；
四．1、分析：C中数组长度必须是确定大小，即指定N的值。排序的方法有多种，取出其中两种作为参考。
方法一：起泡排序
从第一个数开始依次对相邻两数进行比较，如次序对则不做任何操作；如次序不对则使这两个数交换位置。第一遍的（N-1）次比
{ case 10:
case 9: ch='A'; break;
case 8: ch='B'; break;
8_4008S__HD上机操作程序

8_4008S__HD上机操作程序

Frsenius 4008S HD使用说明一、血液透析（HD）管路预充操作程序1.打开机器背部电源开关，按面板上的ON / OFF 键，开机。

2.接A、B 液，按自检(Test)键，机器进入自检。

按肝素泵上^ 键，将肝素泵的滑动支架上升。

3.自检完成，安装血路管，透析器，分离A、V 端头，将动脉端用夹子夹闭，挂输液瓶架上，静脉端夹在桶上；动脉壶倒置，静脉壶正立，注意连接部位的紧密及连接方向的正确性。

4.通过输液器将生理盐水和泵前的侧管相连，接第一瓶盐水，按预冲(Prime)键，冲洗血管路血泵流量调至150ml/min，排净透析器内消毒液。

5.接第二瓶盐水，冲肝素管、动脉壶管、静脉壶管，各管约冲洗20ml，余100ml时将动脉端的夹子打开，通过连接管将动静脉端口相连，形成闭合回路。

6.接第三瓶肝素盐水（内加肝素30mg），连接快速接头，蓝头接透析器上透析液的出口，红头接透析器上透析液的入口，将排净空气的静脉壶装入空气监测器。

[注：快速接头不能连接过早！]7.按超滤菜单(UF Menu)键，设超滤量400ml，时间15分钟，按确认(Conf.)键。

8.准备病人穿刺后，推首量肝素20mg，将肝素注射器装入肝素泵，按速率(Rate)键，设定输送速率1.5～2.0ml/h，设定停表时间3.30～4.00h。

9.超滤完毕(UF-Goal reached)后，按方向键选择系统参数菜单(System parameters)，按确认(Conf.)键进入后，通过+ -键将治疗参数复位(Reset treatment parameters)设置为Yes，按确认键(Conf.)确认修改并返回治疗画面。

10.分离动静脉的连接，放A 头液体夹紧连接病人A 端针头，打开V 壶监测管夹，下调液面，连接V监测传感器，打开血泵开关，放瓶中余量盐水，夹紧输液管头，打开A 夹引血；调血流量100m/min，连V 针头，调血流量200～300ml / min。

数字信号处理学习指导与课后答案第8章

数字信号处理学习指导与课后答案第8章


xˆa (t) xa (t) δ(t nT ) n
第8章 上机实验
对上式进行傅里叶变换， 得到
Xˆ a ( j )

[xa (t)

δ(t nT )]e j tdt
n

＝

xa
(t
)δ(t

nT
)e

j
t
dt
n
在上式的积分号内只有当t=nT时， 才有非零值， 因此
第8章 上机实验
2. 实验原理与方法
1)
时域采样定理的要点是：
(1) 对模拟信号xa(t)以T进行时域等间隔理想采样， 形成 的采样信号的频谱 Xˆ ( j ) 会以采样角频率Ωs（Ωs=2π/T）为 周期进行周期延拓。 公式为
Xˆ a ( j ) FT[xˆa (t)]
ห้องสมุดไป่ตู้

1 T

X a ( j
第8章 上机实验
8.1 实验一：
8.1.1
1. （1） 掌握求系统响应的方法。 （2） 掌握时域离散系统的时域特性。 （3） 分析、 观察及检验系统的稳定性。
第8章 上机实验
2. 在时域中， 描写系统特性的方法是差分方程和单位脉 冲响应， 在频域可以用系统函数描述系统特性。 已知输入 信号可以由差分方程、 单位脉冲响应或系统函数求出系统对 于该输入信号的响应。 本实验仅在时域求解。 在计算机上 适合用递推法求差分方程的解， 最简单的方法是采用 MATLAB语言的工具箱函数filter函数。 也可以用MATLAB 语言的工具箱函数conv函数计算输入信号和系统的单位脉冲 响应的线性卷积， 求出系统的响应。
第8章 上机实验
8.1.2
sas上机操作

sas上机操作


a 4 5 6 6 8
b c probbnml01 ppoisson probchi01 probf01 probit01 probnorm01 probt01 3 4 5 4 3 0.99990 0.99757 0.99590 0.76672 0.00043 1.00000 1.00000 1.00000 1.00000 1.00000 0.44217 0.45058 0.45619 0.32332 0.06564 0.02491 -1.28155 0.10947 -0.52440 0.14776 -0.25335 0.27410 0.25335 0.39986 1.28155 0.53983 0.61791 0.65542 0.72575 0.81594 0.53742 0.61188 0.64850 0.71477 0.80280
0.1 0.3 0.4 0.6 0.9
2015/11/18
31
PERCENT 40
P64 应用SAS画频率和累计频率直方图
data hist01; input x@@; cards; 45 46 48 51 51 57 62 64 ; proc gchart; vbar x/type=pct space=0; run;
2015/11/18
12
以下是用SAS程序绘制的二维正态分布分布密度函数 的示意图。所用的SAS程序为： data ex;do x=-3 to 3 by 0.25; do y=-3 to 3 by 0.25; p=exp(-((x*x+y*y)*5/4+x*y*3/2)/2)/2/3.1416; output;end;end; proc g3d;plot y*x=p;run;
2.P34 计算标准正态分布的分布函数值