精品偷拍一区二区三区,亚洲精品永久 码,亚洲综合日韩精品欧美国产,亚洲国产日韩a在线亚洲

  • <center id="usuqs"></center>
  • 
    
  • 怎樣在vb中用*打出平行四邊形?

    怎樣在vb中用*打出平行四邊形?
    其他人氣:767 ℃時間:2020-06-16 02:05:35
    優(yōu)質(zhì)解答
    Dim s As String
    Dim n As Integer, m As Integer
    m = Val(InputBox("平行四邊型的長度(即*的個數(shù))")) ‘如果是常數(shù)值自己更改為常數(shù)即可
    n = Val(InputBox("平等四邊型的高度(即*的行數(shù))"))
    s = String(n, "*")
    Me.AutoRedraw = True
    For i = 0 To m
    Print String(m - i, " "); s
    Next
    我來回答
    類似推薦
    請使用1024x768 IE6.0或更高版本瀏覽器瀏覽本站點,以保證最佳閱讀效果。本頁提供作業(yè)小助手,一起搜作業(yè)以及作業(yè)好幫手最新版!
    版權(quán)所有 CopyRight © 2012-2024 作業(yè)小助手 All Rights Reserved. 手機版