VB实验报告作业.doc_第1页
VB实验报告作业.doc_第2页
VB实验报告作业.doc_第3页
VB实验报告作业.doc_第4页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

：1、实验报告中的学生自我小结一定要写，可以是疑惑、心得，我会给出无声的回答。2、作业不能有抄袭，If 你一定要触犯的话，Then请一并写出原创单位。第1次 VB实验报告作业实验项目顺序结构的运用实验目的（1）掌握顺序结构程序设计的特点。（2）掌握函数的使用。（3）掌握赋值语句、Visual Basic数据的输入/输出。1、单击命令按钮后，两个文本框中的文本能进行交换。（效果如下图所示）第2次 VB实验报告作业实验项目选择结构IF语句实验目的（1）掌握选择结构的流程。（2）掌握IF语句的语法及应用。1判断方程式ax2+bx+c=0的实根情况，在三个文本框中输入a、b、c的值，显示最终的实根信息。请补充空白（1）、（2）处，以便能得到正确答案，但不得增删原语句。程序代码如下： Private Sub Command1_Click() Dim a As Single, b As Single, c As Single Dim d As Single a = Val(text1.Text) b = Val(text2.Text) c = Val(text3.Text) d = （1） If d 0 Then Label1.Caption = 该方程式有两个不等的实根 （2） Then label1.Caption = 该方程式有两个相等的实根 Else Label1.Caption = 该方程式没有实根 End IfEnd Sub提示：一元二次方程的求根公式：=b2-4ac；当0时，方程有两个不相等的实根；当=0时，方程有两个相等的实根；当 Form1.ScaleHeight Then step = -1 图片框移至窗体最下边时则向上飘移 ElseIf Picture1.Top 0
人人文库> 全部分类> 教育资料 > 课设设计

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论