亚洲欧洲国产欧美一区精品,激情五月亚洲色五月,最新精品国偷自产在线婷婷,欧美婷婷丁香五月天社区

　　11.與數(shù)學表達式ln(a+b)/(3x)+5 對應(yīng)的Visual Basic表達式是【log(a+b)/(3*x)+5或(log(a+b)/(3*x))+5】

　　12.將C盤根目錄下的圖形文件moon.jpg裝入圖片框Picture1的語句是【】

　　13.在窗體上畫一個名稱為Text1的文本框，然后畫三個單選按鈕，并用這三個單選按鈕建立一個控件數(shù)組，名稱為Option1，程序運行后，如果單擊某個單選按鈕，則文本框中的字體將根據(jù)所選擇的單選按鈕切換。

　　Private Sub Option1_Click(Index As Integer)

　　Select Case 【Index】

　　Case 0

　　a = "宋體"

　　Case 1

　　a = "黑體"

　　Case 2

　　a = "楷體_GB2312"

　　End Select

　　text1.fontname=a

　　End Sub

　　14.在窗體上畫一個名稱為Text1的文本框，然后畫三個單選按鈕，并用這三個單選按鈕建立一個控件數(shù)組，名稱為Option1，程序運行后，如果單擊某個單選按鈕，則文本框中的字體將根據(jù)所選擇的單選按鈕切換。

　　Private Sub Option1_Click(Index As Integer)

　　Select Case index

　　Case 0

　　a = "宋體"

　　Case 1

　　a = "黑體"

　　Case 2

　　a = "楷體_GB2312"

　　End Select

　　text1.【fontname】=a

　　End Sub

　　15.在窗體上畫兩個組合框，其名稱分別為Combo1、Combo2，然后畫兩個標簽，名稱分別為Label1、Label2。程序運行后，如果在某個組合框中選擇一個項目，則把所選中的項目在其下面的標簽中顯示出來。

　　Private Sub Combo1_Click( )

　　Call ShowItem(Combo1, Label1)

　　End Sub

　　Private Sub Combo2_Click( )

　　Call ShowItem(Combo2, Label2)

　　End Sub

　　Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)

　　【tmplabel】.Caption =tmpCombo.Text

　　End Sub

　　16.在窗體上畫兩個組合框，其名稱分別為Combo1、Combo2，然后畫兩個標簽，名稱分別為Label1、Label2，程序運行后，如果在某個組合框中選擇一個項目，則把所選中的項目在其下面的標簽中顯示出來。

　　Private Sub Combo1_Click( )

　　Call ShowItem(Combo1, Label1)

　　End Sub

　　Private Sub Combo2_Click( )

　　Call ShowItem(Combo2, Label2)

　　End Sub

　　Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)

　　tmpLabel.Caption =【tmpcombo】.Text

　　End Sub

　　17.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：

　　Private Sub Command1_Click( )

　　n = 5

　　f = 1

　　s = 0

　　For c = 1 To n

　　f = f*【7】

　　s = s + f

　　Next c

　　Print s

　　End Sub

　　該事件過程的功能是計算1!+2!+3!+…+n!的值。

　　18.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下程序：

　　Option Base 1

　　Private Sub Command1_Click( )

　　Dim a(10) As Integer

　　For I = 1 To 10

　　a(I) = I

　　Next I

　　Call【swap】a( )

　　For I = 1 To 10

　　Print a(I);

　　Next

　　End Sub

　　Sub swap(b( ) As Integer)

　　n = ubound(b)

　　For I = 1 To n / 2

　　t = b(I)

　　b(I) = b(n)

　　b(n) = t

　　n=n-1

　　Next I

　　End Sub

　　上述程序的功能是，通過調(diào)用過程swap，調(diào)換數(shù)組中數(shù)值的存放位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換，……，a(5)與a(6)的值互換。

　　19.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下程序：

　　Option Base 1

　　Private Sub Command1_Click( )

　　Dim a(10) As Integer

　　For I = 1 To 10

　　a(I) = I

　　Next I

　　Call swap(a( ))

　　For I = 1 To 10

　　Print a(I);

　　Next

　　End Sub

　　Sub swap(b( ) As Integer)

　　n =【ubound(b)】

　　For I = 1 To n / 2

　　t = b(I)

　　b(I) = b(n)

　　b(n) = t

　　n=n-1

　　Next I

　　End Sub

　　上述程序的功能是，通過調(diào)用過程swap，調(diào)換數(shù)組中數(shù)值的存放位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換，……，a(5)與a(6)的值互換。

　　20.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下程序：

　　Option Base 1

　　Private Sub Command1_Click( )

　　Dim a(10) As Integer

　　For I = 1 To 10

　　a(I) = I

　　Next I

　　Call swap(a( ))

　　For I = 1 To 10

　　Print a(I);

　　Next I

　　End Sub

　　Sub swap(b( ) As Integer)

　　n = ubound(b)

　　For I = 1 To n / 2

　　t = b(I)

　　b(I) = b(n)

　　b(n) = t

　　n=【n-1】

　　Next I

　　End Sub

　　上述程序的功能是，通過調(diào)用過程swap，調(diào)換數(shù)組中數(shù)值的存放位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換，……，a(5)與a(6)的值互換。