sysu医学计算机基础实验30（SYSU medical computer basic experiment 30）.docVIP

下载本文档

1
0
约4.67千字
约 12页
2017-10-05 发布于河南
举报
版权申诉

sysu医学计算机基础实验30（SYSU medical computer basic experiment 30）.doc

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

sysu医学计算机基础实验30（SYSU medical computer basic experiment 30）

sysu医学计算机基础实验30（SYSU medical computer basic experiment 30） Form1类私有子button1_click（ByVal sender系统。对象，ByVal E系统。EventArgs）处理单击Button1。 “用实验30-1 -（1）、求解一元二次方程的根X1 X2。将a作为字符串，B作为字符串，C作为字符串暗淡的X1为单一，x2为单一 = InputBox（“输入“，”输入据Y”，500, 500） B = InputBox（“输入B”、“输入数据Y”，500, 500） C = InputBox（“输入C”、“输入数据Y”，500, 500） X1 = B +数学。Sqrt（B ^ 2 - 4 * * C）/ 2 / X2 = B数学。Sqrt（B ^ 2 - 4 * * C）/ 2 / MsgBox（“X1 =”格式（X1，“# # #。# # #”）和“x2”格式（X2，“# # #。# # #”））端子私有子button2_click（ByVal sender系统。对象，ByVal E系统。EventArgs）处理单击Button2。 “实验30-1 -（2）编写关于函数式（x ^ 3 + X×Y Y ^ + 3）/ 2 * X×Y的程序，x = 5，y = 9 将x，y作为整数，z作为单个 x＝5：y＝9 z =（x 3×3）/（2×y） MsgBox（“（x ^ 3 + X×Y Y ^ + 3）/（2×X×Y）=“Z）端子私有子button3_click（ByVal sender系统。对象，ByVal E系统处理按钮点击事件）。 “实验30-1 -（3）编写计算y = 20 +︱x-16︱的程序。暗x，y为单个 X = InputBox（“输入数值X”） y =数学。log（20）+数学。abs（x - 16） MsgBox（“20 + | x-16 | =“Y）端子私有子button4_click（ByVal sender系统。对象，ByVal E系统。EventArgs）处理步button4。点击 “实验30-1 -（4）编写y = 0.231 * x + 1.36的程序。暗x，y为单个 X = InputBox（“输入数值X”） y＝0.231×1.36 MsgBox（“0.231 * X + 1.36 =“Y）端子私有子button5_click（ByVal sender系统。对象，ByVal E系统。EventArgs）处理按钮。单击 “实验30-1 -（5）一个物体做斜抛运动，计算它落地所需时间T和落地时运动的射程S. 暗淡的x，y，t，s是单个的常数g＝9.81 X = InputBox（“输入初速度X”） Y = InputBox（“输入斜抛方向与地面的夹角Y”） T = 2×××数学。罪（Y * math.pi / 180）/克 S =××数学。罪（2 * * math.pi / 180）/克 MsgBox（“落地使用的时间T =“科技与“秒落地时物体运动的射程=”和“米”）端子私有子button1_click（ByVal sender系统。对象，ByVal E系统。EventArgs）处理单击Button1。如果再语句编写奇偶数用将x设为整数 “随机”初始化随机数生成器 X = int（微软Visual Basic。rnd()×100）如果Int（X / 2）= x / 2然后判断数是否奇偶。用2除该数，该数取整等于其不取整的结果即为偶数。 MsgBox（X和“是偶数”）其他的 MsgBox（X和“是奇数”）最后如果端子私有子button2_click（ByVal sender系统。对象，ByVal E系统。EventArgs）处理单击Button2。 3个数中找出最大值和最小值在昏暗的X Y Z单，单，单，max_num单，min_num单 X = InputBox (enter the first number) Y = InputBox (enter second numbers) Z = InputBox (enter third numbers) Max_num = x: min_num = x If Y max_num max_num = Then = y If z max_num max_num = Then = Z If y min_num Then min_num = y If Z min_num Then min_num = Z MsgBox (maximum number is max_num minimum number min_num) En