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

　　1. 窗體上有一個名稱為List1的列表框，一個名稱為Text1的文本框，一個名稱為Label1、Caption屬性為“Sum”的標簽，一個名稱為Command1、標題為“計算”的命令按鈕。程序運行后，將把1～100之間能夠被7整除的數(shù)添加到列表框。如果單擊“計算”按鈕，則對List1中的數(shù)進行累加求和，并在文本框中顯示計算結(jié)果，如圖所示。以下是實現(xiàn)上述功能的程序，請?zhí)羁铡?/P>

　　Private Sub Form_Load()

　　For i=1 To 100

　　If i Mod 7 =0 Then

　　_【 1_】__

　　End If

　　Next i

　　End Sub

　　Private Sub Command1_Click()

　　Sum =0

　　For i=0 To__【 2_】__

　　Sum =Sum+_【_3 】_____

　　Next i

　　Text1.Text=Sum

　　End Sub

　　2.按存儲信息的形式分類，文件可以分為【 4 】和【 5 】。

　　3. 以下語句輸出結(jié)果是 【 6 】 。

　　Print Int(12345.6789 * 100 + 0.5) / 100。

　　4.數(shù)學(xué)表達式 的VB算術(shù)表達式為【 7 】。

　　5.表達式Lcase(left(“ABCDEFG”,5)的值是【 8 】。

　　6.設(shè)有如下程序：

　　Option Base 1

　　Private Sub Command1_Click()

　　Dim arr1

　　Dim Min As Integer, i As Integer

　　arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)

　　Min = 【9】

　　For i = 2 To 8

　　If arr1(i) < Min Then 【10】

　　Next i

　　Print "最小值是："; Min

　　End Sub

　　以上程序的功能是：用Array函數(shù)建立一個含有8個元素的數(shù)組，然后查找并輸出該數(shù)組中各元素的最小值。請?zhí)羁铡?/P>

（1）list1.additem i 　  list1.listcount-1   list1.list(i)

（2）ASCII文件 二進制文件

（3）12345.68

（4）Sqrt(x)/2/(x+y)+3^2-3*x

（5）abcdef

（6）Array(1)  min=array(1)