×

vb编程代码大全高中

VB编程 高中？VB代码编程

admin admin 发表于2022-07-16 20:13:50 浏览89 评论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编程代码大全高中