久久京东热成人精品视频,伊人久久综合,国产一区二区精品自拍,在线精品国精品国产3d

<menu id="e206k"></menu>
<center id="e206k"></center>
  • <menu id="e206k"></menu>
    <center id="e206k"></center>
  • <menu id="e206k"><noscript id="e206k"></noscript></menu>
    當前位置: 高中信息技術 / 綜合題
    • 1. (2018高二下·溫州期末) 兩個10進制大整數(shù)相加可以用數(shù)組的方法逐位相加來實現(xiàn),小王同學制作了如圖的VB程序,以實現(xiàn)求2個50位以內(nèi)的10進制整數(shù)的和。

      1. (1) 根據(jù)程序代碼,該事件過程名為。
      2. (2) 把代碼補充完整。

        Private Sub Command1_Click()

        Dim a(1 To 51) As Integer, b(1 To 51) As Integer, c(1 To 51) As Integer Dim lens1 As String, lens2 As String

        lens1 = Len(Text1.Text) :lens2 = Len(Text2.Text)

        For i = Len(Text1.Text) To 1 Step -1    ‘讀取數(shù)據(jù),逐位保存在數(shù)組中

            a(i) = Mid(Text1.Text, lens1 - i + 1, 1) Next i

        For i = Len(Text2.Text) To 1 Step -1

            b(i) = Mid(Text2.Text, lens2 - i + 1, 1) Next i

        For i = 1 To 51     ‘從個位到高位逐位求和

            c(i) = 

            If c(i) > 9 Then

                c(i) = c(i) - 10

                c(i + 1)= 

            End If Next i

        f = False  '從左到右輸出第一個不為 0 的元素開始從高位到低位輸出和

        For i = 51 To 1 Step -1

            If c(i) <> 0 Then f = True

            If f Then Text3.Text = Text3.Text & c(i) Next i

        End Sub

      3. (3) 圖中,為了使Text1和Text2文本框在Form1界面上能夠左對齊,需要更改Text1的Left屬性,則可以在Form_Load()中添加代碼Text1.Left= 

    微信掃碼預覽、分享更方便