《VB基础试题ppt课件》由会员分享，可在线阅读，更多相关《VB基础试题ppt课件（21页珍藏版）》请在金锄头文库上搜索。
1、VB合作学习报告,第四组,指导教师：朱旭萍,.,组长：张建迢 组员：彭佳媛 徐彩依 李静雯 邬祺轲 汤敦邦,主题：顺序和选择程序设计,.,一：滚动字幕程序设计,屏幕上一标签，文字内容：祝您考试成功，该标签能从左到右或者从右到左滚动显示。,.,.,Private Sub Timer1_Timer() If Label1.Left Form1.Width Then Label1.Left = Label1.Left + 100 Else Label1.Left = -Label1.Width End If End Sub,Private Sub Command1_Click() If Comman
2、d1.Caption = 开始 Then Timer1.Enabled = True Command1.Caption = 停止 Else Timer1.Enabled = False Command1.Caption = 开始 End If Timer1.Interval = 100 End Sub Private Sub Form_Load() Form1.Caption = 字幕滚动 Label1.Caption = 祝您考试成功！ Label1.Font = 宋体 Label1.FontBold = True Label1.FontSize = 22 Label1.ForeColor
3、= vbRed Command1.Caption = 开始 End Sub,.,二：利用计时器可以按指定间隔时间对字体进行放大。 并要求字的颜色也按指定时间间隔随机改变,.,.,Private Sub Form_Load() Label1.Caption = 放大 Label1.Font = 宋体 Label1.FontBold = True Label1.FontSize = 20 Label1.ForeColor = vbRed End Sub Private Sub Timer1_Timer() If Label1.FontSize 100 Then Label1.FontSize =
4、Label1.FontSize + 10 Else Label1.FontSize = 20 End If Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) End Sub,.,三：完成秒数转换成时分秒的程序,.,.,Private Sub Command1_Click() Dim a As Long, e As Long, f As Integer, g As Integer a = Val(Text1.Text) e = a 3600 f = (a Mod 3600) 60 g = a - e * 3600 - f * 60 T
5、ext2.Text = Str(e) Text3.Text = Str(f) Text4.Text = Str(g) End Sub Private Sub Command2_Click() End End Sub,.,4.电子倒计时器设计,.,要求：先由用户给定倒计时的初始分秒数，然后开始倒计时，当计到0分0秒时，通过消息对话框显示“倒计时结束”。 在窗体上建立一个计时器(Timer1)、两个标签、两个文本框(Text1和Text2)和一个命令按钮(Command1) 计时器的Enabled属性值为True, Interval属性值为0,.,Dim m As Integer, s As In
6、teger Private Sub Command1_Click() m = Val(Text1.Text) s = Val(Text2.Text) Timer1.Enabled = True End Sub Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 1000 End Sub,Private Sub Timer1_Timer() If s 0 Then s = s - 1 Else If m 0 Then m = m - 1 s = 59 End If End If Text1.Text = Format(
7、m, 00) Text2.Text = Format(s, 00) If s = 0 And m = 0 Then MsgBox 计时结束 Timer1.Enabled = False End If End Sub,.,讨论五：输入三角形的三边长（可以用消息框也可以用文本框），求三角形的面积。要判断输入的三边能否构成三角形。,能构成三角形时结果,.,方法一： Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer,s As integer a = InputBox(请输入三角形的一条边长：) b = Input
8、Box(请输入三角形的第二条边长：) c = InputBox(请输入三角形的第三条边长：) If a + b c And b + c a And a + c b Then d = (a + b + c) / 2 s = Sqr(d * (d - a) * (d - b) * (d - c) FontSize = 22 Print 请输入三角形的三边： FontSize = 22 Print “三边分别为：” ； a,；b； c FontSize = 22 Print “三角形的面积是：” ； s Else Print 不能组成三角形 End If End Sub,.,方法二： Private
9、 Sub Form_Click() FontSize = 22 Print 请输入三角形的三边： Dim a As Single, b As Single, c As Single a = InputBox(请输入三角形的第一条边的长度, 数据输入, 5) b = InputBox(请输入三角形的第二条边的长度, 数据输入, 5) c = InputBox(请输入三角形的第三条边的长度, 数据输入, 5) If a = 0 Or b = 0 Or c = 0 Then m = MsgBox(输入有误，请重新输入！, 48, 数据输入出错) If m = 1 Then Form_Click El
10、se End End If,Else If (a + b) c And (a + c) b And (b + c) a Then d = (a + b + c) / 2 s = Sqr(d * (d - a) * (d - b) * (d - c) FontSize = 22 Print 三边分别为：; a; b; c FontSize = 22 Print 三角形的面积是：; s Else n = MsgBox(此三边不能构成三角形！是否重新输入？, 49, 数据输入出错) If n = 1 Then Form_Click Else End End If End If End If End
11、Sub,.,六：求一元二次方程ax2+bx+c0的解,.,(1)分析：方程的解有以下几种可能： 若a=0，不是二次方程 若b2 - 4ac=0，有两个相等实根 若b2 - 4ac0，有两个不等实根 若b2 - 4ac0，有两个共轭复根 (2)程序框图程序框图 程序框图也称程序流程图，它能直观地表示程序的处理步骤， 是一种描述算法的常用方法。 (3)建立应用程序的用户界面和设置对象属性 (4)编写程序代码,.,.,Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, d As Integer, r A
12、s Integer, p As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a = 0 Then Text4.Text = 不是二次方程 Text5.Text = 不是二次方程 Else d = b * b - 4 * a * c r = -b / (2 * a) If d = 0 Then Text4.Text = Str(r) Text5.Text = Str(r),Else d = b * b - 4 * a * c r = -b / (2 * a) If d = 0 Then Text4.Text = Str(r) Text5.Text = Str(r) Else If d 0 Then Text4.Text = Str(-b + Sqr(d) / (2 * a) Text5.Text = Str(-b - Sqr(d) / (2 * a) Else p = Sqr(-d) / (2 * a) Text4.Text = Str(r) & + & Str(p) & i Text5.Text = Str(r) & - & Str(p) & i End If End If End If End Sub,.,
