vb关于if语句实验报告
vb实验报告循环
As Integer, ch1, ch2As String, ch1 As String Integer
As String
Public LoginSucceeded AsPublic LoginSucceeded
Public
Boolean
As Boolean
LoginSucceeded AsPrivate Sub Form_Click() Private
Then
Print m
End If
Next m
Else
MsgBox "输入错
误，请重新点击页
面输入！"
End If
End Sub
If s = a Then Print a m=m+1 End If Next a MsgBox "1和1000之 间一共有" & m & "个 完全数。" Unload Me End Sub
For a = 1 To 1000
实验 数：") i = Len(a)
过程 If i = 2 Then
ch = Right(ch, i) s = Val(ch) If s = a Then
s=0 For i = 1 To a - 1 n = a Mod i
总结 ch1 = StrReverse(a) Print a & "为守形数！" If n = 0 Then
（产 b = Val(ch1)
End If
s=i+s
生的 For m = 10 To 99 Next a
ch2 = CStr(m)
End Sub
问
End If Next i
VB实验报告册
实验报告一(循环与数组)实验目的：通过学习，要求掌握选择语句结构if 语句、 Select case 语句、While wend 语句 、For Next 语句，do while (until ) loop 语句的基本书写格式，以及要掌握累和与累乘以及杨辉三角的算法进行演算。
实验要求：1．编辑，输入X 值，按下式计算并输出Y 的值Y=f(x)=2．计算下式的和，变量X 与N 的数据值用输入对话框输入)!1(............!4!3!232+++++=n x x x x s n3．用近似公式求自然对数据的底数E 的值，直到前后两项之差小于10-4为止。
E ≈!1..............31!21!111n ++++ 4．编程，输入n(n 为1位整数)，输出n+1层的杨辉三角形。
如n 为6时，输出结果如下所示。
11 11 2 11 3 3 11 4 6 4 11 5 10 10 5 11 6 15 20 15 6 1实验步骤：实验体会：x+3 x>3 x 2 1<=x<= 3Sqr(x) 0<x<1 0 x<=0实验目的：通过学习，要求熟练掌握常用控件：textbox commandbox labelbox 控制的用法；掌握optionbox 与listbox的方法，属性及事件，对于定时器与滚动条的基本用法要学会运用与操作。
实验要求：1.编制一个用于进制转换的应用程序，运行时的界面如图2．编制一个“偶数迁移”程序设计，运行界面如图：具体要求为：窗体的标题为“偶数迁移”，单击“产生”按钮，计算机随机产生10个两位正整数放入列表框里list1中，同时清空列表框list2中的内容。
单击“- ”按钮，将列表框list1中所有的偶数迁移到列表框list2中。
3．设计一个字幕推出程序。
标签的字号在定时时器的控制下每个时间间隔放大2磅并且保持标签在窗体中水平居中，当标签的字号超过72时，定时器停止响应Timer事件，字号放大的速度由水平滚动条控制。
VB6.0程序设计上机实训四(编程IF)(1)答案
VB6.0程序设计上机实训四（1）数组程练习（1）姓名：学号：[实验目的]熟练掌握mid函数和if条件语句的使用.[实验内容]1. 任意输入两个数存入变量A, B。
使得A中存入较大数，B存较小数，再输出A、B。
Dim A As Integer, B As Integer, T As IntegerA = InputBox("输入一个正整数")B = InputBox("输入一个正整数")If A < B ThenT=AA = BB = TEnd IfPrint A, B2.实现逆序输出用户输入的三位整数，如下图所示：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integera = Mid(Text1.Text, 3, 1)b = Mid(Text1.Text, 2, 1)c = Mid(Text1.Text, 1, 1)Text2 = a & b & cEnd SubPrivate Sub Form_Load()Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub或：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integera = Text1.Text Mod 10b = (Text1.Text - a) / 10 Mod 10c = Text1.Text \ 100Text2.Text = a * 100 + b * 10 + c'Text2 = a & b & cEnd Sub3.编写程序实现符号函数返回值。
（利用两种if语句形式编程）Private Sub Form_Click()Dim x As Single, y As Singlex = InputBox("请输入x的值")If Sgn(x) > 0 Theny = 1ElseIf Sgn(x) < 0 Theny = -1Elsey = 0End IfPrint "x="; x, "y="; yEnd Sub4.利用条件函数IIf判断改变文本框内字体或字号，程序设计界面如下图所示，具体程序如下：Private Sub Command1_Click()Text1.FontName = IIf(Option1.Value, "宋体", "黑体")Text1.FontSize = IIf(Option3.Value, 8, 12)End SubPrivate Sub Command2_Click()EndEnd Sub5.利用条件语句改变文本框内显示内容，程序设计界面如下图所示，程序实现参照前后QH.EXE文件。
vb程序实验报告
vb程序实验报告VB 程序实验报告一、实验目的通过本次实验，深入了解和掌握 Visual Basic（VB）程序设计的基本概念、语法和编程技巧，提高解决实际问题的能力，培养逻辑思维和创新能力。
二、实验环境操作系统：Windows 10开发工具：Microsoft Visual Basic 60三、实验内容本次实验主要包括以下几个方面的内容：1、界面设计使用 VB 的窗体设计器，创建一个简单的用户界面，包含文本框、按钮、标签等控件，并设置其属性，如字体、颜色、大小等，以实现美观和友好的用户交互。
2、变量与数据类型在程序中声明不同类型的变量，如整数型（Integer）、字符串型（String）、布尔型（Boolean）等，并进行赋值和运算操作，理解不同数据类型的特点和适用场景。
3、控制结构运用顺序结构、选择结构（IfThenElse、Select Case）和循环结构（ForNext、WhileWend）编写程序，实现条件判断和重复执行的功能，例如计算阶乘、判断素数、打印九九乘法表等。
4、数组与过程定义数组来存储和处理大量的数据，掌握数组的声明、初始化和遍历操作。
同时，学习使用过程（Sub 过程和 Function 过程）来封装可重复使用的代码块，提高程序的可读性和可维护性。
5、文件操作实现对文本文件的读写操作，包括创建文件、写入数据、读取数据和关闭文件，了解文件处理在实际应用中的重要性。
四、实验步骤1、界面设计（1）打开 Microsoft Visual Basic 60，新建一个标准 EXE 工程。
（2）在窗体上添加所需的控件，如文本框 Text1、Text2，命令按钮 Command1、Command2，标签 Label1 等。
（3）通过属性窗口设置各个控件的属性，如 Text1 的 Text 属性为空，Command1 的 Caption 属性为“计算”，Label1 的 Caption 属性为“结果：”等。
VB实验指导四(inputbox,msgbox,简单if语句)
VB实验指导四（inputbox，msgbox，简单if语句）
实验目的：
1、掌握inputbox函数的使用
2、掌握msgbox函数和过程的使用
3、掌握简单if语句的使用
实验内容：
1、利用输入对话框输入一个学生的姓名和电话，然后以消息框的形式给出提示，最后显示在窗体上的两个标签上显示。
（Inputbox和msgbox的练习）
2、输入两个数，求它们中的最大数。
请先自己看着给你的运行效果图，完成程序，然后再对比老师给你的程序。
3、输入一个年份，判断该年是否为闰年。
实验分析：
（1）判断条件为：
–年份(y)能被4整除，但不能被100整除；
–年份(y)能被400整除。
–只要满足其中一个条件，该年份即为闰年。
（2）表示这个条件的逻辑表达式为：
(y Mod 4=0 And y Mod 100<>0) Or (y Mod 400=0)
4、当点击窗体空白处后，实现图1所示的消息对话框，显示“终止”、“重试”和“忽略”按钮，图标样式为，默认按钮为重试按钮，标题为“错误提示”。
当在消息框中单击某个按钮后，在窗体上输出用户的按键信息。
第二版vb实验报告
实验四 选择结构程序设计
一、实验目的
1．掌握逻辑表达式的正确使用方法。
2．掌握单分支、双分支和多分支条件语句结构的使用方法。
3. 掌握选择结构的嵌套
二、实验内容
1 有函数：
⎪⎩⎪⎨⎧≥-<≤-<=)
10(124)101(2
3)1(x x x x x x
y 写一个程序，输入x 值后，则输出相应y 值。
要求用“If …ElseIf …EndIf ”和用“Select Case ”两种方法完成该题目。
1.IF 的写法
2.select 的写法
2编写一个判断给定坐标在第几象限的程序，界面如图3-1所示。
3 编写一个简易学生成绩管理系统，要求输入姓名和成绩，点击“添加”按钮后，在文本框中追加并换行显示“姓名”、“成绩”和“合格”或“不合格”信息，如图3-2所示。
图3-2 实验3-3程序运行界面
进一步要求：按照≥90为“优”，≥80为“良”，≥70为“中”，≥60为“及格”，<60为“不及格”来划分并显示上述信息。
4 编写完整的一元二次方程求根的程序
思考题：
1、对于多重选择，使用if嵌套时，注意配对关系
2、使用选择结构时，要注意防止出现“死语句”，即永远也不可能出现的语句。
VB实验报告3
台州学院《VB程序设计》实验报告实验三：选择结构程序设计班级：学号：姓名：实验日期：一、实验目的和要求1．掌握逻辑表达式及关系表达式的正确书写形式；2．掌握IF语句单行和块书写格式及其正确使用（尤其注意ELSE 和ELSE IF）；3．掌握多分支情况的控制（使用Select CASE语句）的使用及与多分支条件语句的区别。
二、实验主要仪器和设备计算机一台，Windows XP操作系统，Visual Basic环境。
三、实验内容实验3.1在两个文本框中输入实数，单击按钮，显示“较小值是xxx”。
实验3.2输入三个实数，计算其中的最大值，运行界面如图3-1所示。
图3-1 程序运行时的界面实验3.3用输入对话框输入x，根据下式计算对应的y，并在窗体上输出y的值。
实验3.4由键盘输入（1～7）范围内的整数，试编程将其转换为中文表示的星期几，运行界面如图3-2所示。
图3-2 程序运行时的界面实验3.5（选做）由键盘输入3个数，试编程将它们的中间数打印出来。
四、实验原始记录实验3.1程序的界面设计。
程序代码。
实验3.2程序的界面设计。
程序代码。
实验3.3程序的界面设计。
程序代码。
实验3.4程序的界面设计。
程序代码。
实验3.5（选做）程序的界面设计。
程序代码。
五、实验结果及分析实验3.1运行结果。
实验3.2运行结果。
实验3.3运行结果。
实验3.4运行结果。
实验3.5运行结果。
（选做）六、实验总结与思考（主要写一些在实验过程中，遇到的问题、所犯的错误，以及是如何发现纠正的。
大约100至200字左右。
）。
VB实验报告04
浙江大学城市学院实验报告课程名称VB程序设计基础与实验实验项目名称实验四、分支结构程序设计学生姓名专业班级学号实验成绩指导老师（签名）日期一. 实验目的和要求1.掌握单分支与双分支条件语句IF的使用。
2.掌握多分支条件语句的使用。
3.掌握情况语句Select Case的使用及其与多分支条件语句的区别。
二. 实验内容和原理【练习4-1】研究下面的代码段，画程序流程图，当输入93，81，74，65，42时，写出窗体中显示的结果。
Private Sub Form_Click()score = Val(InputBox("输入成绩"))If score < 60 Then Print "不合格"If score >= 60 and score<85 Then Print "合格"If score >= 85 Then Print "优秀"End sub引伸1若把程序代码写成如下形式，画出它的流程图。
问当输入成绩为90分时，显示什么结果？为什么？用嵌套块If语句应如何写？Private Sub Form_Click()score = Val(InputBox("输入成绩"))If score >= 85 Then st= "优秀"If score < 60 Thenst=”不合格”Elsest="合格"End IfPrint stEnd Sub引伸2若把程序写成如下形式，当输入成绩为90、80、50时，显示什么结果？画出流程图。
Private Sub Form_Click()score = Val(InputBox("输入成绩"))If score >= 85 ThenPrint "优秀"ElseIf score >= 60 ThenPrint "合格"ElsePrint "不合格"End IfEnd Sub调试运行以上程序，采用单步跟踪的方法（按F8）查看程序执行流程，进一步加深对分支结构的理解。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB程序设计课内实验
报告书
系部名称：
学生姓名：
专业名称：
班级：
学号：
时间：
实验题目过程
一、实验目的
1．掌握for语句的使用。
2．掌握for语句的各种形式的使用。
3．掌握如何控制循环条件，防治死循环或不循环。
二、实验内容
实验一：利用for语句实现1-3图形的输出。
实验二：利用for语句实现2-3图形的输出。
三、设计方案（程序，界面）
实验一：
1.打开Visual Basic，新建一个EXE工程。
2.创建一个按钮命名图（a）,双击Command1编写程序如图1-1.
图1-1
3. 运行程序,点击Command1,得结果如图1-4；
4．分别保存工程文件和窗体文件
实验二： 1. 打开Visual Basic，新建一个EXE工程
2．创建一个按钮命名图（b）,双击Command1编写程序如图：
1－2
图2－1
3. 运行程序,点击Command1,得结果如图1-5；
4．分别保存工程文件和窗体文件。
四、结果及分析
实验一
图1－2
实验二：
图2－2
五、调试情况，设计技巧及体会
通过学习VB我更好了解了计算机运行程序，了解了计算机运行的语言，并能根据自己的需要编写程序，极大的减小了工作量提高了工作效率，使计算机更加人性化使我们更加充分地运用了计算机，为以后工作提供了方便。
同时也学习到处理一些突发问题的能力。
六、源程序清单
实验一：
Private Sub Command2_Click()
For i = 1 To 4
Print Spc(4 - i); String(2 * i - 1, Trim(i))
Next i
End Sub
实验二：
Private Sub Command1_Click()
For i = 1 To 5
Print Tab(i); String(6 - i, "*")
Next i
End Sub。