成年人在线观看视频免费,国产第2页,人人狠狠综合久久亚洲婷婷,精品伊人久久

我要投稿 投訴建議

計(jì)算機(jī)等級(jí)考試二級(jí)VB程序設(shè)計(jì)練習(xí)題

時(shí)間:2021-01-26 15:48:27 計(jì)算機(jī)等級(jí) 我要投稿

計(jì)算機(jī)等級(jí)考試二級(jí)VB程序設(shè)計(jì)練習(xí)題

  對(duì)于計(jì)算機(jī)等級(jí)開始想拿高分就要多做練習(xí)題,下面是小編分享的計(jì)算機(jī)等級(jí)考試二級(jí)VB程序設(shè)計(jì)練習(xí)題,希望對(duì)你有幫助!

計(jì)算機(jī)等級(jí)考試二級(jí)VB程序設(shè)計(jì)練習(xí)題

  【計(jì)算機(jī)等級(jí)考試二級(jí)VB程序設(shè)計(jì)題一】

  1.編寫事件代碼,求1—100之間能被5整除或被7整除的數(shù)的累加和,要求單擊窗體時(shí)執(zhí)行事件代碼,并在窗體上輸出運(yùn)行結(jié)果。

  Private Sub Form_Click( )

  Dim i%,s!

  S=0

  For i=1 to 100

  If i mod 5=0 or i mod 7=0 then s=s+i

  Next i

  Print “s=”;s

  End Sub

  【計(jì)算機(jī)等級(jí)考試二級(jí)VB程序設(shè)計(jì)題二】

  求1+2+3+……+100累加和(單擊窗體執(zhí)行程序)。

  Private sub form_click()

  Dim i%,s! (2’)

  S=0 (2’)

  For i=1 to 100 (2’)

  S=s+I (2’)

  Next

  Print “s=”;s (2’)

  End Sub

  【計(jì)算機(jī)等級(jí)考試二級(jí)VB程序設(shè)計(jì)題三】

  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


【計(jì)算機(jī)等級(jí)考試二級(jí)VB程序設(shè)計(jì)練習(xí)題】相關(guān)文章:

計(jì)算機(jī)等級(jí)考試二級(jí)VB應(yīng)試題型解題技巧01-30

計(jì)算機(jī)等級(jí)考試二級(jí)C語言過關(guān)技巧01-30

全國計(jì)算機(jī)等級(jí)考試二級(jí)應(yīng)試技巧01-30

計(jì)算機(jī)等級(jí)考試答案02-11

計(jì)算機(jī)等級(jí)考試課程教學(xué)02-11

計(jì)算機(jī)等級(jí)考試及答案02-11

計(jì)算機(jī)等級(jí)考試做題技巧02-07

計(jì)算機(jī)等級(jí)考試上機(jī)注意事項(xiàng)01-30

計(jì)算機(jī)二級(jí)公共基礎(chǔ)知識(shí)教程:面向?qū)ο蟮某绦蛟O(shè)計(jì)05-09

2017全國計(jì)算機(jī)等級(jí)考試試題02-12