×

vb编程代码大全高中

VB编程 高中?VB代码编程

admin admin 发表于2022-07-16 20:13:50 浏览91 评论0

抢沙发发表评论

VB编程 高中j》i     b(i)=b(k)选择法排序VB代码编程1、根据三角形两边之和大于第三边,常用vb的编程代码先在程序中加一个Label,名字应该符合VB程序控件命名规范: lbl《名称》 再加一个Timer控件,名字也要符合命名规范 在窗体代码对话框中打入 Private Sub Form_Load() On Error Resume Next Me.Font = “Arial“ Me.FontSize = 24 Me.FontBold = True 《Timer控件名》.Enabled = True 《Timer控件名》.Interval = 1000 End Sub ’下列函数只能二选其一 ’是时间显示 Private Sub 《Timer控件名》_Timer() On Error Resume Next 《Label控件名》.Caption = Time End Sub ’是日期与时间显示 Private Sub 《Timer控件名》_Timer() On Error Resume Next 《Label控件名》.Caption = Now End Sub,代码如下: Private Sub Form_Click() Dim A, B, C As Single Dim S As Single Dim P As Single Z1: A = Val(InputBox(“请输入边长A的值“, “输入“)) B = Val(InputBox(“请输入边长B的值“, “输入“)) C = Val(InputBox(“请输入边长C的值“, “输入“)) If ((A + B) 》 C) And ((A + C) 》 B) And ((B + C) 》 A) Then P = (A + B + C) / 2 S = Sqr(P * (P - A) * (P - B) * (P - C)) Print “三角形边长“ & A & “,“ & B; “,“ & C & “ 面积S=“ & S Else MsgBox “输入的三边不能构成三角形“, vbOKOnly, “提示“ GoTo Z1 End If End Sub 2、100-999的水仙花数 Private Sub Form_Click() Dim I As Integer Dim A, B, C As Integer Form1.Cls Print “100-999之间的水仙花数“ & Chr(13) For I = 100 To 999 A = I \ 100 B = (I Mod 100) \ 10 C = I Mod 10 If I = A ^ 3 + B ^ 3 + C ^ 3 Then Print I; End If Next I End Sub 3、求CosX的问题没看明白,请写清楚些。

VB编程 高中

j》i     

  • b(i)=b(k)

  • 选择法排序

  • VB代码编程


    1、根据三角形两边之和大于第三边,代码如下:
    Private Sub Form_Click()
    Dim A, B, C As Single
    Dim S As Single
    Dim P As Single
    Z1:
    A = Val(InputBox(“请输入边长A的值“, “输入“))
    B = Val(InputBox(“请输入边长B的值“, “输入“))
    C = Val(InputBox(“请输入边长C的值“, “输入“))
    If ((A + B) 》 C) And ((A + C) 》 B) And ((B + C) 》 A) Then
    P = (A + B + C) / 2
    S = Sqr(P * (P - A) * (P - B) * (P - C))
    Print “三角形边长“ & A & “,“ & B; “,“ & C & “ 面积S=“ & S
    Else
    MsgBox “输入的三边不能构成三角形“, vbOKOnly, “提示“
    GoTo Z1
    End If
    End Sub
    2、100-999的水仙花数
    Private Sub Form_Click()
    Dim I As Integer
    Dim A, B, C As Integer
    Form1.Cls
    Print “100-999之间的水仙花数“ & Chr(13)
    For I = 100 To 999
    A = I \ 100
    B = (I Mod 100) \ 10
    C = I Mod 10
    If I = A ^ 3 + B ^ 3 + C ^ 3 Then
    Print I;
    End If
    Next I
    End Sub
    3、求CosX的问题没看明白,请写清楚些。
    -vb编程代码大全高中

    常用vb的编程代码

    先在程序中加一个Label,名字应该符合VB程序控件命名规范: lbl《名称》 再加一个Timer控件,名字也要符合命名规范 在窗体代码对话框中打入 Private Sub Form_Load() On Error Resume Next Me.Font = “Arial“ Me.FontSize = 24 Me.FontBold = True 《Timer控件名》.Enabled = True 《Timer控件名》.Interval = 1000 End Sub ’下列函数只能二选其一 ’是时间显示 Private Sub 《Timer控件名》_Timer() On Error Resume Next 《Label控件名》.Caption = Time End Sub ’是日期与时间显示 Private Sub 《Timer控件名》_Timer() On Error Resume Next 《Label控件名》.Caption = Now End Sub-vb编程代码大全高中