已阅读5页,还剩5页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
VB实验二实验2-1Private Sub Command1_Click() Dim r As Single, v As Single r = Val(Text1.Text) v = (4 / 3) * 3.14159 * r 3 Label2 = Format(v, 0.000)End Sub实验2-2Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) p = (1 / 3) * (a + b + c) Text4.Text = Format(p, 0.00)End Sub实验2-3Dim s As Integers = Val(Text1) Text2.Text = Mid(s, 1, 1) Text3.Text = Mid(s, 2, 1) Text4.Text = Mid(s, 3)实验2-4Dim a As Integer, b As Single, c As Integer, d As Integer, e As Singlea = Val(Text1) b = Val(Text2) c = Val(Text3) d = Val(Text4) e = (63360 * a + 36 * b + 12 * c + d) / 39.37Text5.Text = Format(e, 0.000)实验2-5Text1.Enabled = TrueText1.Enabled = False实验2-6Private Sub Form_Load() Command1.Caption = 编辑(&E) Command2.Caption = 保存(&S)End SubPrivate Sub Command1_Click() Text1.Locked = FalseEnd SubPrivate Sub Text1_Change() Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click() Text1.Locked = True Command2.Enabled = FalseEnd Sub实验2-7(居中在杂项)Private Sub Command1_Click() Text1.Text = 欢迎光临End SubPrivate Sub Command2_Click() Text1.Text = 谢谢再见End SubPrivate Sub Form_Load() Text1.TabIndex = 0 Command1.Default = True Command2.Cancel = TrueEnd Sub实验2-8Private Sub Command1_Click() Text1.SelStart = 8 Text1.SelLength = 9 Text1.SetFocusEnd SubPrivate Sub Command2_Click() Label1.Caption = Text1.SelTextEnd SubPrivate Sub Text1_Change() If Len(Text1.text) 100 Then p = (n - 100) * 0.03 + 5 ElseIf 0 n 0) And (y 0) Then Text3.Text = 第一象限 ElseIf (x 0) Then Text3.Text = 第二象限 ElseIf (x 0) And (y 0) And (y 0) Then Text3.Text = 第四象限 End IfEnd Sub实验4Option ExplicitPrivate Sub Command1_Click() Dim a As Single, b As Single, c As Single, d As Single, r As String a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If 240 = a + b + c And a + b + c = 269 Then r = Bronze Medal ElseIf 270 = a + b + c And a + b + c = 284 Then r = Silver Medal ElseIf 285 = a + b + c And a + b + c = 300 Then r = Gold Medal ElseIf (a + b + c = 95) Or (b = 95) Or (c = 95) Then r = Honor Medal Else r = No Medal End If Text4.Text = rEnd Sub实验5Private Sub Option1_Click() Text1.Text = 我是博士生End SubPrivate Sub Option2_Click() Text1.Text = 我是硕士生End SubPrivate Sub Option3_Click() Text1.Text = 我是本科生End Sub实验6Private Sub Command1_Click() If Option1.Value Then Text1.Text = 支持湖人队 ElseIf Option2.Value Then Text1.Text = 支持公牛队 End IfEnd SubPrivate Sub Command2_Click() Option1.Value = False Option2.Value = False Text1.Text = 没有选择任何团队End Sub实验7Private Sub Check1_Click() If Check1.Value Then Label1.FontUnderline = True ElseIf Check2.Value Then Label1.FontStrikethru = True End IfEnd Sub实验8Dim a As IntegerPrivate Sub Command1_Click() If Check1.Value = False And Check2.Value = False And Check3.Value = False And Check4.Value = False Then Text1.Text = 4500 Else If Check1.Value = 1 Then a = 4500 + 1000 Else a = 4500 End If If Check2.Value = 1 Then a = a + 800 Else a = a End If If Check3.Value = 1 Then a = a + 600 Else a = a End If If Check4.Value = 1 Then a = a + 500 Else a = a End If Text1.Text = Str(a) End IfEnd SubVB实验四实验1Private Sub Command1_Click() Dim sum As Double, n As Integer, i As Integer n = Val(Text1.Text) sum = 0 For i = 1 To n If (i Mod 3 = 0) And (i Mod 7 0) Then sum = sum + i Else sum = sum End If Next i Label2.Caption = Str(sum)End Sub实验2Private Sub Command1_Click() Dim m, n, p, i As Integer m = Val(Text1.Text) n = Val(Text2.Text) i = m Mod n Do While i 0 m = n n = i i = m Mod n Loop Text3.Text = Str(n)End Sub实验3Private Sub Command1_Click() Dim i, j, m, n, sum As Integer, flag As Boolean m = Val(Text1.Text) n = Val(Text2.Text) sum = 0 For i = m To n flag = True For j = 2 To i - 1 If i Mod j = 0 Then flag = False Exit For End If Next j If flag = True Then sum = sum + i End If Next i Text3.Text = Str(sum)End Sub实验4Private Sub Command1_Click() Dim i, sum As Integer, n As String n = Len(Text1.Text) sum = 0 For i = 1 To n If Mid(Text1.Text, i, 1) = 1 Then sum = sum + 2 (n - i) End If Next i Label1.Caption = Str(sum)End SubPrivate Sub Command2_Click() Dim n, i As Integer n = Val(Text1.Text) Label1.Caption = Do While n 0 Label1.Caption = n Mod 2 & Label1.Caption n = n 2 LoopEnd Sub实验5Private Sub Command1_Click() Timer1.Enabled = True Label1.Caption = 正在倒计时 Text1.Text = 10End SubPrivate Sub Timer1_Timer() Text1.Text = Text1.Text - 1 If Text1.Text = 0 Then Timer1.Enabled = False Label1.Caption = 停止倒计时 End IfEnd Sub实验6Private Sub Command1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = False Label1.Left = 100End SubPrivate Sub Timer1_Timer() Label1.Move (Label1.Left + 100) End Sub实验7Private Sub HScroll1_Change() Label1.Width = HScroll1.ValueEnd SubPrivate Sub VScroll1_Change() Label1.Height = VScroll1.ValueEnd Sub实验8Private Sub Command1_Click() Dim n, i, j, sum, m As Integer n = Val(HScroll1.Value) sum = 0 For i = 1 To n m = 0 j = 1 For j = 1 To i m = m + j Next j sum = sum + m Next i Text1.Text = Str(sum)End SubPrivate Sub HScroll1_Change() Label1.Caption = HScroll1.ValueEnd SubVB实验五实验1Dim i As Integer, a(1 To 10) As StringPrivate Sub Command1_Click() Text1.Text = For i = 1 To 10 a(i) = Int(Rnd * 70) + 30 Text1.Text = Text1.Text & a(i) & Space(1) Next iEnd SubPrivate Sub Command2_Click() Text2.Text = For i = 1 To 10 If a(i) Mod 3 = 0 Then Text2.Text = Text2.Text & a(i) & Space(1) End If Next iEnd Sub实验2Dim i As Integer, a(1 To 10) As String, max As IntegerPrivate Sub Command1_Click() Text1.Text = For i = 1 To 10 a(i) = Int(Rnd * 26) + 65 Text1.Tex
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 学生小升初面试技巧
- 2024年广东省东莞市南城开心实验学校中考一模考试地理试题
- 选好高强钢实芯焊丝很重要
- 统编六年级下册习作《插上科学的翅膀飞》教学设计(有配套课件)
- 2024年洗脱两用机行业企业战略发展规划及建议
- Unit6SurvivalDevelopingideas语言点课件高中英语选择性
- 23《纸船和风筝》第一课时课件语文二年级上册
- 教材梳理(课件)人教PEP版英语四年级上册
- 高三地理二轮复习课件天气系统
- 2021-2022学年甘肃省金昌市永昌县部编版五年级上册期末考试语文试卷(原卷版)
- 2023年SPD新员工岗位技能考核试题
- 出口梗阻型便秘的护理
- 荣誉体系建设方案
- 2024保密基本知识学习
- 2024年时政考题及答案(200题)
- 手部支具外固定的护理
- 初中音乐七年级下册(简谱) 凯皮拉的小火车 全市获奖
- 七年级英语下册 期中考试卷(外研版)
- 胆道疾病护理新进展
- 幼儿园依法治校实施方案
- 声音的共振与共鸣
评论
0/150
提交评论