亚洲国产日韩欧美在线a乱码,国产精品路线1路线2路线,亚洲视频一区,精品国产自,www狠狠,国产情侣激情在线视频免费看,亚洲成年网站在线观看

9月二級(jí)VB程序設(shè)計(jì)模擬試題及答案

時(shí)間:2020-09-01 14:41:56 計(jì)算機(jī)等級(jí) 我要投稿

2016年9月二級(jí)VB程序設(shè)計(jì)模擬試題及答案

  1.程序設(shè)計(jì)(10分)

2016年9月二級(jí)VB程序設(shè)計(jì)模擬試題及答案

  定義命令按鈕的單擊事件,當(dāng)單擊命令按鈕時(shí)輸出能被3整除的所有三位數(shù)。

  程序設(shè)計(jì)題

  Private Sub Command1_Click()

  Dim i As Integer

  For i = 100 To 999

  If i Mod 3 = 0 Then

  Print i

  End If

  Next i

  End Sub

  2.寫出下面程序的運(yùn)行結(jié)果(10分)

  1. Private Sub Command1_Click()

  x = 0

  n = InputBox("")

  For i = 1 To n

  For j = 1 To i

  x = x + 1

  Next j

  Next i

  Print x

  End Sub

  程序運(yùn)行后,單擊命令按鈕,如果輸入3,則在窗體上顯示的內(nèi)容是:

  2. Private Function f(m As Integer)

  If m Mod 2 = 0 Then

  f = m

  Else

  f = 1

  End If

  End Function

  Private Sub Command1_Click()

  Dim i As Integer

  s = 0

  For i = 1 To 5

  s = s + f(i)

  Next i

  Print s

  End Sub

  單擊命令按鈕后,程序的`運(yùn)行結(jié)果為:

  1、6

  2、9

  3.填空題(每題2分,計(jì)16分)

  1. 窗體上有一個(gè)名稱為L(zhǎng)ist1的列表框,一個(gè)名稱為Text1的文本框,一個(gè)名稱為L(zhǎng)abel1、Caption屬性為“Sum”的標(biāo)簽,一個(gè)名稱為Command1、標(biāo)題為“計(jì)算”的命令按鈕。程序運(yùn)行后,將把1~100之間能夠被7整除的數(shù)添加到列表框。如果單擊“計(jì)算”按鈕,則對(duì)List1中的數(shù)進(jìn)行累加求和,并在文本框中顯示計(jì)算結(jié)果,如圖所示。以下是實(shí)現(xiàn)上述功能的程序,請(qǐng)?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.按存儲(chǔ)信息的形式分類,文件可以分為【 4 】和【 5 】。

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

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

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

  5.表達(dá)式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ù)建立一個(gè)含有8個(gè)元素的數(shù)組,然后查找并輸出該數(shù)組中各元素的最小值。請(qǐng)?zhí)羁铡?/p>

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

  (2)ASCII文件 二進(jìn)制文件

  (3)12345.68

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

  (5)abcdef

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