Visual Basic程序设计基础(申石磊 季超)实验部分答案-
13页1、Visual Basic程序设计基础(申石磊 季超)实验部分答案-高等教育出版社2-1Private Sub Form_Click()ClsEnd SubPrivate Sub Form_DblClick()FontSize = 30fontcolor = vbGreenPrint helloFontSize = 90fontcolor = vbRedPrint OKEnd 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
2、= 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 Su
3、b 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 10P
《Visual Basic程序设计基础(申石磊 季超)实验部分答案-》由会员飞****9分享,可在线阅读,更多相关《Visual Basic程序设计基础(申石磊 季超)实验部分答案-》请在金锄头文库上搜索。
《论语》十二章全面解读
Web前端开发案例教程:12完整项目化妆品网站设计与实现
编程基础与实例教程-PHP
2019年抚顺市第六中学高考生物简单题专项训练(含解析)
2019年教科版八年级物理上册全册学案
2019年宝鸡晨光中学高考生物简单题专项训练(含解析)
2019年象山港书院高考生物简单题专项训练(含解析)
2019年一级建造师工程经济考点总结
2019年小学教育教学工作总结4篇
2019年浙江省金华市中考数学试卷(解析版)
2019年布拖县中学高考生物简单题专项训练(含解析)
2010年卫生系列中级职称内科学风湿及结缔组织病习题及参考答案
2019年信阳晨光中学高考生物简单题专项训练(含解析)
2018年一级建造师市政实务必考点
2019年和县第三中学高考生物简单题专项训练(含解析)
2018高考化学微题型微考点训练1--20
2019年大理市大理第二中学高考生物简单题专项训练(含解析)
2019年三中高考生物简单题专项训练(含解析)
2018检验检测机构质量手册
2019年衡南县第三中学高考生物简单题专项训练(含解析)
2023-09-09 2页
2024-01-08 15页
2024-02-14 18页
2023-04-05 8页
2023-02-27 6页
2024-02-12 10页
2023-03-17 4页
2023-11-02 18页
2023-10-16 10页
2023-04-03 9页