①在需要截取視頻片段的起始和結(jié)束處分別單擊“選擇開始點(diǎn)”和“選擇結(jié)束點(diǎn)”按鈕
②單擊“循環(huán)/選擇錄取區(qū)域”按鈕
③單擊“錄像指定區(qū)域?yàn)镸PG或MPV文件”按鈕,保存截取的視頻
④用超級(jí)解霸軟件播放需要截取的VCD
PRIVATE SUB FORM__CLICK( )
S=0
FOR A = 1 TO 5
FOR B= 1 TO 3
S=S+1
NEXT B
NEXT A
PRINT S
END SUB
a(1) = 12: a(2) = 44: a(3) = 65: a(4) = 36: a(5) = 58
x = 0: y = 0
For i = 1 To 4
k = i
For j = i + 1 To 5
If a(j) > a(k) Then
k = j
x = x + 1
End If
Next j
If k <> i Then
t = a(i): a(i) = a(k): a(k) = t
y = y + 1
End If
Next i
Text1.Text = Str(x) + Str(y)
執(zhí)行該程序段后,文本框Text1中顯示的內(nèi)容是( )
s = 0 :x = 2:y = 49
Do While x <= Sqr(y)
s = s + x
x = x + 2
Loop
該程序段運(yùn)行后,x的值是( )
⑴ ⑵ ⑶
⑴刪除“石化產(chǎn)值.doc”文件中的批注,并將“2012年全國(guó)部分省市石油和化學(xué)工業(yè)產(chǎn)值統(tǒng)計(jì)表”中的所有記錄,復(fù)制到“石化產(chǎn)值統(tǒng)計(jì)表.xls”文件的“數(shù)據(jù)”工作表A13開始區(qū)域中。
⑵在“石化產(chǎn)值統(tǒng)計(jì)表.xls”文件的“數(shù)據(jù)”工作表中,用公式計(jì)算現(xiàn)價(jià)銷售產(chǎn)值比去年同期增幅“同比±%”,填入H13:H31中,并保留1位小數(shù)。 提示:現(xiàn)價(jià)銷售產(chǎn)值比去年同期增幅=(現(xiàn)價(jià)銷售產(chǎn)值累計(jì)-現(xiàn)價(jià)銷售產(chǎn)值累計(jì)去年同期)/現(xiàn)價(jià)銷售產(chǎn)值累計(jì)去年同期*100)
⑶在“石化產(chǎn)值統(tǒng)計(jì)表.xls”文件中,建立一張現(xiàn)價(jià)工業(yè)總產(chǎn)值與去年同期比增長(zhǎng)圖。要求:
①用數(shù)據(jù)點(diǎn)折線圖,系列產(chǎn)生在列;
②標(biāo)題為:現(xiàn)價(jià)工業(yè)總產(chǎn)值與去年同期比增長(zhǎng)圖;
③圖表放在工作表“圖表”中的B5:G30區(qū)域內(nèi)。
⑷將“石化產(chǎn)值統(tǒng)計(jì)表.xls”文件中的現(xiàn)價(jià)工業(yè)總產(chǎn)值與去年同期比增長(zhǎng)圖”復(fù)制到“石化產(chǎn)值.doc”文件中的【1】處,并將現(xiàn)價(jià)銷售產(chǎn)值比去年同期增幅數(shù)據(jù)復(fù)制到“石化產(chǎn)值.doc”中表格的相對(duì)應(yīng)區(qū)域,刪除“【1】”字樣。
Private Sub Command1_Click()
Dim a(1 To 51) As Integer, b(1 To 51) As Integer, c(1 To 51) As Integer Dim lens1 As String, lens2 As String
lens1 = Len(Text1.Text) :lens2 = Len(Text2.Text)
For i = Len(Text1.Text) To 1 Step -1 ‘讀取數(shù)據(jù),逐位保存在數(shù)組中
a(i) = Mid(Text1.Text, lens1 - i + 1, 1) Next i
For i = Len(Text2.Text) To 1 Step -1
b(i) = Mid(Text2.Text, lens2 - i + 1, 1) Next i
For i = 1 To 51 ‘從個(gè)位到高位逐位求和
c(i) =
If c(i) > 9 Then
c(i) = c(i) - 10
c(i + 1)=
End If Next i
f = False '從左到右輸出第一個(gè)不為 0 的元素開始從高位到低位輸出和
For i = 51 To 1 Step -1
If c(i) <> 0 Then f = True
If f Then Text3.Text = Text3.Text & c(i) Next i
End Sub