福建VB设计题(修正版)_10278.docVIP

2012.12.29VB题库里面有VB设计题目和编程题目,选择题目的答案.大家可以在电脑操作.没有安装考试系统的直接打开考生文件夹使用.希望大家多多练习张晓梅老师?2013/5/22?10:00:44实验报告大家按以前的要求,在实验本子上写3个实验,每个实验做一题设计和两题编程.题目就从2012.12.29VB题库里面的选,每个人可以不同15周上交 Text1 的属性MultiLine为true和ScrollBars command1的属性Enabled 为False Private Sub Op1_Click() Text1.FontBold = True End Sub Private Sub Op2_Click() Text1.FontBold = False End Sub Private Sub Cd1_Click() P1.Cls P1.scale (0,0)-(1800,1200) P1.Line (0, 0)-(1800, 1200) End Sub Private Sub Cd2_Click() P1.Cls P1.Circle (900, 600), 500 End Sub Private Sub Command1_Click() Dim n As Integer Dim a As Integer, b As Integer, c As Integer n = Text1.Text a = n Mod 10 b = n \ 10 Mod 10 c = n \ 100 If a ^ 3 + b ^ 3 + c ^ 3 = n Then Label1.Caption = 是水仙花数 Else Label1.Caption = 不是水仙花数 End If End Sub Dim A(1 To 10) Private Sub Command1_Click() Randomize Dim i As Integer For i = 1 To 10 A(i) = Int(10 + Rnd * (99 - 10 + 1)) Text1.Text = Text1.Text A(i) Next i End Sub Private Sub Command2_Click() Min = A(1) Max = A(1) For i = 2 To 10 If A(i) Min Then Min = A(i) ElseIf A(i) Max Then Max = A(i) End If Next i Text2.Text = Max Text3.Text = Min End Sub 5630102： 答：设置 image1 的属性BorderStyle为1和Stretch为true 在image1 的picture属性找到图片 Private Sub Command1_Click() Text2.Text = Text1.SelText Text1.Text = Text1.SetFocus End Sub Private Sub Command1_Click() 不得删改本行注释 Dim a As Single a = Text1.Text If a = 80 And a = 100 Then Text2.Text = 优良 If a = 60 And a 80 Then Text2.Text = 合格 If a 0 And a 60 Then Text2.Text = 不合格 End Sub 5630103： Timer1的Enabled 属性为 False和timer1的Interval属性为1000 Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Label1.Caption = Time End Sub Private Sub Command1_Click() L1.AddItem Text1.Text L2.AddItem Val(Text1.Text) ^ 2 T1.Text = T1.SetFocus End Sub Private Sub Command1_Click() Dim s As String, i As Integer, n As Integer s = Text1.Text For i = 1 To Len(s) If Mid(s, i,