Visual Basic程序设计基础(申石磊 季超)实验部分答案-
-
资源ID：132066794
资源大小：18.26KB
全文页数：13页
- 资源格式： DOC
下载积分：0金贝
快捷下载
账号登录下载
微信登录下载
微信扫一扫登录
1、金锄头文库是“C2C”交易模式，即卖家上传的文档直接由买家下载，本站只是中间服务平台，本站所有文档下载所得的收益全部归上传人（卖家）所有，作为网络服务商，若您的权利被侵害请及时联系右侧客服；
2、如你看到网页展示的文档有jinchutou.com水印，是因预览和防盗链等技术需要对部份页面进行转换压缩成图而已，我们并不对上传的文档进行任何编辑或修改，文档下载后都不会有jinchutou.com水印标识，下载后原文更清晰；
3、所有的PPT和DOC文档都被视为“模板”，允许上传人保留章节、目录结构的情况下删减部份的内容；下载前须认真查看，确认无误后再购买；
4、文档大部份都是可以预览的，金锄头文库作为内容存储提供商，无法对各卖家所售文档的真实性、完整性、准确性以及专业性等问题提供审核和保证，请慎重购买；
5、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确)，网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据；
6、如果您还有什么不清楚的或需要我们协助，可以点击右侧栏的客服。
|
下载须知 | 常见问题汇总
|
Visual Basic程序设计基础(申石磊 季超)实验部分答案-
Visual Basic程序设计基础（申石磊 季超）实验部分答案-高等教育出版社2-1Private Sub Form_Click()ClsEnd SubPrivate Sub Form_DblClick()FontSize = 30fontcolor = vbGreenPrint "hello"FontSize = 90fontcolor = vbRedPrint "OK"End Sub 2-2Private Sub Command1_Click()Label1.Move Width * Rnd, Height * RndEnd Sub 2-3Private Sub Command1_Click()Label1.Caption = ""End SubPrivate Sub Command2_Click()Label1.Caption = "河南大学"End Sub 2-4Private Sub Timer1_Timer()Text1.Text = NowForm1.Caption = NowEnd Sub2-5Private Sub Timer1_Timer()If Form1.BackColor = vbRed Then Form1.BackColor = vbYellow ElseForm1.BackColor = vbRedEnd IfEnd Sub 2-6Private Sub Timer1_Timer()If Label1.Left > -Label1.Width ThenLabel1.Left = Label1.Left + 10ElseLabel1.Left = WidthEnd IfEnd Sub 2-7Private Sub Command1_Click()Text1.Text = ""End SubPrivate Sub Command2_Click()Text1.Text = "河南大学"End Sub 2-8Private Sub Text1_Change()Text2 = Text1End Sub 2-9Private Sub Command1_Click()FontSize = 20Print "河南大学"FontSize = 15Print "哲管院"End SubPrivate Sub Command2_Click()ClsEnd Sub 2-10Private Sub Command1_Click()r = Text1.TextText2.Text = 6.28 * rEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text1.SetFocusEnd Sub2-11Private Sub Form_Load()Text1.Text = "河南大学"Text1.FontSize = 36Text1.FontName = "隶书"Text1.BackColor = vbRedText1.ForeColor = vbGreenEnd Sub2-12Dim s As StringPrivate Sub Command1_Click()s = Text1.TextText1.Text = ""End SubPrivate Sub Command2_Click()Text2.Text = sEnd Sub 3-2Private Sub Form_Click()Dim n As IntegerRandomizen = Int(90 * Rnd + 10)n1 = n 10n2 = n Mod 10Print n, n1 & n2End Sub 3-3Private Sub Timer1_Timer()ClsPrint "hehehehehe"Form1.FontSize = Int(71 * Rnd + 10)End Sub 3-4Private Sub Command1_Click() n = Asc(Right(Text1, 1) Text2 = Hex(n)End SubPrivate Sub Command2_Click() Text1 = "" Text2 = "" Text1.SetFocusEnd Sub 3-5Private Sub Command1_Click()Text2.Text = Date - CDate(Text1)End SubPrivate Sub Command2_Click()Text1.Text = ""Text2 = ""End Sub 3-6Private Sub Command1_Click()Text2.Text = Right(Text1, 1) & Mid(Text1, 2, 1) & Left(Text1, 1)End SubPrivate Sub Command2_Click()Text1 = ""Text2 = ""End Sub3-7Private Sub Timer1_Timer() Me.Label1.Caption = "程序设计" Me.Label1.FontSize = (41 * Rnd + 10) Me.Label1.BackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256) Me.Label1.ForeColor = QBColor(Int(16 * Rnd)End Sub 3-8Private Sub Timer1_Timer() Me.Label1.Caption = "程序设计" Me.Label1.FontSize = (41 * Rnd + 10) Me.Label1.BackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256) Me.Label1.ForeColor = QBColor(Int(16 * Rnd)End Sub 3-9Private Sub Command1_Click()x = Shell("notepad.exe", 1)End SubPrivate Sub Command2_Click()Shell "mspaint.exe", 1End Sub 3-10Private Sub Form_Click() Dim X As Long Me.FontSize = 15 X = InputBox("输入钱数:") X1 = X 100 X2 = (X - 100 * X1) 50 x3 = (X - 100 * X1 - 50 * X2) 20 x4 = (X - 100 * X1 - 50 * X2 - 20 * x3) 10 x5 = (X - 100 * X1 - 50 * X2 - 20 * x3 - 10 * x4) 5 x6 = (X - 100 * X1 - 50 * X2 - 20 * x3 - 10 * x4 - 5 * x5) 2 x7 = (X - 100 * X1 - 50 * X2 - 20 * x3 - 10 * x4 - 5 * x5 - 2 * x6) 1 Print X Print X1; "张100元" Print X2; "张50元" Print x3; "张20元" Print x4; "张10元" Print x5; "张5元" Print x6; "张2元" Print x7; "张1元"End Sub4-1Private Sub Form_Click() Dim n As Integer p! = InputBox("存款金额") r! = InputBox("利率") n = InputBox("存款年数") s! = Round(p * (1 + r) n, 2) Print "本金+利息:" & sEnd Sub 4-2Private Sub Form_Click() x! = InputBox("输入数据x") y! = InputBox("输入数据y") If x > y Then Print "x=" x; "y=" y Else Print "y=" y; "x=" x End IfEnd Sub 4-3Private Sub Form_Click() Dim n As Integer n = InputBox("输入年份") If n Mod 4 = 0 And n Mod 100 <> 0 Then Print "闰年" Else Print "不是闰年" End IfEnd Sub4-4 Dim x As Single, y As StringPrivate Sub Command1_Click() x = Text1.Text Text2.Text = y If 90 <= x <= 100 Then y = "优秀" ElseIf 80 <= x < 90 Then y = "良好" ElseIf 70 <= x < 80 Then y = "中等" ElseIf 60 <= x < 60 Then y = "及格" ElseIf x < 60 Then y = "重考" End IfEnd SubPrivate Sub Command2_Click() Text1.Text = "" Text2.Text = ""End Sub 4-5 Dim x As SinglePrivate Sub Command1_Click() x = Text1.Text If x >= 90 And x <= 100 Then Text2.Text = "优秀!" ElseIf x >= 80 And x < 90 Then Text2.Text = "良好!" ElseIf x >= 70 And x < 80 Then Text2.Text = "中等!" ElseIf x >= 60 And x < 70 Then Text2.Text = "及格!" ElseIf x >= 0 And x < 60 Then Text2.Text = "重考!" End IfEnd SubPrivate Sub Command2_Click() Text1.Text = "" Text2.Text = "" Me.Text1
