午夜无码中文字幕影院,国产自产第一区c国产,久久久久久夜精品精品免费,国产99久久,夜夜夜夜曰天天天天拍国产,欧美日韩亚洲另类专区,国产精品区一区二区免费

軟題庫 移動APP 掃碼下載APP 隨時隨地移動學(xué)習(xí) 培訓(xùn)課程
試卷名稱 2006年下半年程序員考試下午真題試題(案例分析)
考試中心《2006年下半年程序員考試下午真題試題(案例分析)》在線考試
試卷年份2006年下半年
試題題型【分析簡答題】
試題內(nèi)容

    閱讀以下應(yīng)用說明以及用Visual Basic編寫的程序代碼,將應(yīng)填入(n)處的字句寫在答題紙的對應(yīng)欄內(nèi)。
【應(yīng)用4.1】
    設(shè)應(yīng)用程序的運(yùn)行窗口內(nèi)有一個文字標(biāo)簽(Label)以及一個框架,其中有三個復(fù)選框(chkl,chk2,chk3 ),各個復(fù)選框單擊事件過程的程序代碼如下:
  Private Sub chkl Click()
    Label.fontBold = chkl.Value
  End Sub
  Private Sub chk2 Click()
    Label.fontItalic = chk2.Value
  End Sub
  Private Sub chk3 Click()
    Label.fontUnderLine = chk3.Value
  End Sub
    三個復(fù)選框chkl、chk2、chk3的功能分別是:(l )
【應(yīng)用4.2】
    設(shè)應(yīng)用程序的運(yùn)行窗口內(nèi)有兩個文本框Txt 1和Txt2,其初始內(nèi)容為空。在Txt 1文本框中輸入一個數(shù)值,當(dāng)光標(biāo)離開此文本框(例如進(jìn)入文本框Txt2 )時,執(zhí)行的程序代碼如下:
  Private Sub Txtl_LostFocus()
  dim x as double
  x = Val(Txtl.Text)
  If x<0 Or x>100 Then
    Txtl.Text = “ ”
    MsgBox$(“請重新輸入!”)
    Txtl.SetFocus
  Else
    Txt2.Text = Txtl.Text
  End If
    End Sub
    該程序代碼的功能是:若在文本框Txt1中輸入的數(shù)值小于0或大于100,當(dāng)光標(biāo)離開此文本框時,(2) ;否則,將其值復(fù)制到文本框Txt2中。
【應(yīng)用4.3】
在下面的應(yīng)用中,當(dāng)窗口內(nèi)發(fā)生Click事件時,窗口內(nèi)將顯示如圖4-1所示的楊輝三角形(每一行都是三項(xiàng)式展開的系數(shù))。請完善程序代碼。
 
Private Sub Form Click()
    Dim i , j , c  As Integer , StrTemp As String
    Dim a(9) As Integer
    a(0) = 0 : a(1) = 1 : StrTemp = Str(a(1)) + Space(3)
    CurrentX = (ScaleWidth一TextWidth(StrTemp))/2
    Print StrTemp
    For j = 2 To 9
  a(j)= 1
  For c =  j-1 To 2 Step - 1
   a(c) = (3)
  Next
    (4)  = “”
  For c = 1 To j
    StrTemp = StrTemp & Str((5))& Space (5 - Len (Str (a (c))))
  Next
  CurrentX =(ScaleWidth一TextWidth(StrTemp))/ 2
  Print StrTemp
    Next
End Sub


相關(guān)試題

推薦文章
合作網(wǎng)站內(nèi)容