1、Label1、fontsize=24Label1、fontbold=True2、两个按钮所使用的就是什么事件?代码分别就是什么?Private Sub Command1_Click()Text1、text=“姓名” End SubPrivate Sub Command2_Click()Text1、text=”实验二 简单程序设计数据类型及常用内部函数的简单应用1.掌握Visual Basic数据类型的基本概念。2.掌握用Visual Basic的各种运算符及表达式。3.学习使用Visual Basic内部函数与数据输入、输出方法。4.掌握命令按钮、文本框与标签。5.设计顺序程序。1.编写一个华
2、氏温度与摄氏温度之间的转换程序,如图2-2所示,要求用inputbox函数输入华氏温度,用msgbox输出转换后的摄氏温度。转换公式就是:C= 5 / 9(F - 32)。F为华氏温度,C为摄氏温度。 2、用三种除法运算(/ 、Mod)做计算。 要求:在窗体上画五个标签、五个文本框与一个命令按钮,如图2-2所示。程序运行后,在第一个文本框中输入被除数,在第二个文本框中输入除数,然后单击命令按钮,即可得到三种不同的相除结果。图2-1 图2-21、温度转换CaptionInputbox与msgbox应用温度转换2、 三种除法运算(/ 、Mod)做计算被除数Label2除数Label3浮点数Labe
3、l4整除数Label5余数除执行除法运算1、温度转换中的Command1命令的单击事件的程序代码就是什么?Dim C!,F!F=val(inputbox(“输入华氏温度”)C=5/9*(F-32)Msgbox “对应的摄氏温度为:” & C2、 用三种除法运算(/ 、Mod)做计算,说明三种除法的区别?/:两个数相除:两个数整除Mod:两个数相除,得余数3、 三种除法运算(/ 、Mod)做计算,Command1命令的单击事件的程序代码就是什么?Dim a!,b!a=val(text1、text)b= val(text2、text)text3、text=a/btext4、text=abtext5
4、、text=a mod b实验三 选择程序设计1、掌握单分支与双分支条件语句的使用。2、掌握多分支条件语句(If Then ElseIf)的使用。 3、掌握Select Case语句的使用及与多分支条件语句的区别。4、熟练掌握时间过程的编写方法。1、设计一个模拟简易计算器的程序,界面如图3-1所示。要求:输入两个操作数与一个操作符,根据操作符决定所进行的计算;如果除数为0,用msgbox提示出错信息;用if语句与selecet case语句两种结构实现。2、通过单选按钮与复选框控制文字的显示,程序窗口如图3-2所示。 图3-1图3-21、模拟简易计算器输入数1运算器输入数2结果Case结构if
5、结构Text1-text4Text2、单选框与复选框Frame1字体框架Frame2字号Frame3字型奥林匹克运动会Option1宋体单选按钮Option2仿宋Option3黑体Option4楷体Option5大Option6中Option7小Check1加粗复选框Check2倾斜Check3下划线Check4删除线1、 模拟简易计算器Command1命令的单击事件的程序代码就是什么?, b!Dim c As Stringa = Val(Text1、Text)b = Val(Text3、Text)c = Text2、TextSelect Case c Case “+” Text4、Text
6、= a + b Case “-” Text4、Text = a - b Case “*” Text4、Text = a * b Case “/”If b = 0 Then MsgBox “除数为0、”ElseText4、Text = a / bEnd If End Select2、 模拟简易计算器Command2命令的单击事件的程序代码就是什么?If c = “+” ThenElseIf c = “-” ThenElseIf c = “*” ThenElseIf c = “/” Then MsgBox “除数为0” else Text4、Text = a / b End If3、 通过单选按钮
7、与复选框控制文字的显示,Command1命令的单击事件的程序代码就是什么If Option1、Value = True Then Label1、FontName = “宋体”ElseIf Option2、Value = True Then Label1、FontName = “华文仿宋” ElseIf Option3、Value = True Then Label1、FontName = “黑体” Else Label1、FontName = “楷体_GB2312”If Option5、Value = True Then Label1、FontSize = 24ElseIf Option6、V
8、alue = True Then Label1、FontSize = 16 Label1、FontSize = 8If Check1、Value = 1 Then Label1、FontBold = True Label1、FontBold = FalseIf Check2、Value = 1 Then Label1、FontItalic = True Label1、FontItalic = FalseIf Check3、Value = 1 Then Label1、FontUnderline = True Label1、FontUnderline = FalseIf Check4、Value
9、= 1 Then Label1、FontStrikethru = True Label1、FontStrikethru = False实验四 循环程序设计1.理解循环程序设计的特点。2.掌握常用的循环语句。3.掌握常用的循环算法。4.掌握图片框、图像框与计时器。1k10050+1.求2.设计一条滚动的广告字幕。1 求与结果要求窗体载入时直接显示,设置窗体的某个属性。AutoRedrawTrue2 滚动字幕。“欢迎使用VB”Timer1Interval1000时钟1.求与的窗体载入事件的程序代码就是什么?Private Sub Form_Load() Dim k%, s!s = 0For k =
10、 1 To 100 s = s + 1 / kNext kFor k = 1 To 50 s = s + kPrint s2.滚动字幕的触发时钟控件的程序代码就是什么?。Private Sub Timer1_Timer()If Label1、Left Form1、Width Then Label1、Left = 0 Label1、Left = Label1、Left + 100实验五 数组程序设计1.熟练掌握固定数组。2.掌握动态数组。3.掌握列表框与组合框。4.了解直线控件与形状控件。1.设计一个程序,找出数组中的最大值、最小值,并计算所有元素的平均值。在列表框中随机产生10个100到200
11、之间的整数,在文本框中显示结果信息。界面如图5-1所示。图5-1 窗体界面Caption 10个100到200之间的整数最大值最小值平均值计算Text1Text41.数组应在过程内还就是过程外定义,定义的语句就是什么?过程外定义Dim a(10) As Integer2.在窗体载入时,在列表框中随机产生10个整数,则程序代码就是什么?Dim i%For i = 1 To 10 a(i) = Int(Rnd * 101 + 100) List1、AddItem a(i)Next i3.单击命令按钮,在文本框中显示结果信息,则程序代码就是什么?Dim i As Integer, max%, min
12、%, avg!max = a(1)min = a(1)avg = 0 If max a(i) Then min = a(i) avg = avg + a(i)avg = avg / 10Text1、Text = maxText2、Text = minText3、Text = avg实验六 过程程序设计1.掌握子过程的定义与调用方法。2.掌握函数过程的定义与调用方法。3.理解作用域与生存期。4、 掌握滚动条。1、写两个函数,分别求两个数的最大公约数与最小公倍数,编写子过程求最大公约数,函数过程求最小公倍数。要求从文本框中输入两个数。界面如图6-1所示。图6-12、设计一个用滚动条改变图片背景色的
13、程序。界面如图6-2所示图6-21.结果要求单击命令按钮分别显示,设置对象的属性。mn最大公约数最小公倍数Text1- Text4”“子过程函数过程2.设置滚动条主要属性值。HScroll1- HScroll3 min滚动条 max2551.单击子过程命令按钮,在文本框Text3中显示结果信息,子过程的程序代码就是什么? Dim m As Integer, n As Integer, r As Integer m = Text1、Text n = Text2、Text If m n Then t = m: m = n: n = t Call gys(m, n, r) Text3、Text =
14、rPrivate Sub gys(ByVal m%, ByVal n%, r%)r = m Mod nDo While r 0 m = n n = r r = m Mod nLoopr = nEnd Sub 2.单击函数过程命令按钮,在文本框Text4中显示结果信息,函数过程的程序代码就是什么?Dim m As Integer, n As Integer, p As Integer m = Text1、Text n = Text2、Text p = m * n If m = 3 Then Form1、Hide Form3、Show Exit SubIf Text1、Text = “abc” And Text2、Text = “123” Then Form2、Show MsgBox “用户名或密码错误,请重新输入”Text1、setfoucsEnd if
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1