幾道VB的題急

2022-10-02 03:15:13 字數 3193 閱讀 6001

1樓:蘇夢菡蒙茉

1、編一個sub過程,其功能為:對一個一維陣列a(n)的各個元素,分別統計90以上,80~89,70~89,69~79,60~69,60以下各數段個數。

'all90_,

all80_89,

all70_89,

all69_79,

all60_69,

all_60

就是你要求的各個總數

subtotal()

dimall90_,

all80_89,

all70_89,

all69_79,

all60_69,

all_60

asinteger

dimi

asinteger

dima(n)

asinteger

fori=0

tonselect

case

a(i)

case

is>=

90'包括90,如果不包括去掉=

all90_

=all90_+1

case

a(i)

>=80and

a(i)

<=89all80_89

=all80_89+1

case

a(i)

>=70and

a(i)

<=89all70_89

=all70_89+1

case

a(i)

>=69and

a(i)

<=79all69_79

=all69_79+1

case

a(i)

>=60and

a(i)

<=69all60_69

=all60_69+1

case

is<=

60'包括60

all_60

=all_60+1

endselect

next

iend

sub2、編寫一個函式,功能為計算single型別一維陣列所有元素的平均值。

'temp即為所求平均值

dimtemp

assingle

dima(n)

assingle

dimi

asinteger

fori=0

tontemp

=temp

+a(i)

next

itemp

=temp/(n

+1)3、編寫function函式過程,計算1+22+32+42+……n2。

function

add(n

asinteger)

asinteger

dimi,

temp

asinteger

fori=2

tontemp=n

*10+2

+temp

next

iadd =

temp+1

endfunction

2樓:昝揚第五天驕

題號:11 題型:多選題(請在核取方塊中打勾,在以下幾個選項中選擇正確答案,答案可以是多個) 本題分數:5

內容:關於控制元件下列說法正確的是()。

選項:a、所有標準控制元件不能被刪除或新增

b、activex控制元件使用前可以不用新增到工具箱

c、每個控制元件都有一個與控制元件值屬性,這是控制元件最常用的屬性

d、caption屬性可在**視窗或屬性視窗裡設定。

題號:12 題型:多選題(請在核取方塊中打勾,在以下幾個選項中選擇正確答案,答案可以是多個) 本題分數:5

內容:窗體由()組成,是應用程式的程式設計視窗和對話方塊。

選項:a、標題欄

b、控制按鈕

c、窗體

d、屬性視窗

題號:13 題型:多選題(請在核取方塊中打勾,在以下幾個選項中選擇正確答案,答案可以是多個) 本題分數:5

內容:下面關於窗體的borderstyle說法正確的是()。

選項:a、邊界型別共有五種

b、none表示窗體無邊界

c、sizable表示可調尺寸邊界。

題號:14 題型:多選題(請在核取方塊中打勾,在以下幾個選項中選擇正確答案,答案可以是多個) 本題分數:5

內容:下列關於快捷鍵的說法正確的是()。

選項:a、alt+q可退出工程

b、alt+o可開啟工程

c、alt+c

表示複製

d、alt+v表示貼上

3樓:泉迎海開闌

鄙視把全題或整試卷拿出來問的人。

同時鄙視幫人完整答卷的人。

希望學生能自力更生,否則永遠不會有進步。

希望達人能適可而止,否則我們將沒有後人。

4樓:百小度

1. 考點:要熟悉運算子號~

private sub form_load()dim sum as single

dim i as integer

sum = 0

for i = 1 to 10

sum = sum + i ^ 3

next i

sum = sum / 2

lb1.caption = sum

end sub

2. 考察除數不為0,和流程

除數不可為零

cstrcc

3. 考察流程

少了一個end select語句

dim x as integer = 2

a=a+1=1

b=b+1=1

4. 先修正程式

private sub form_load()dim a(3, 3), m, n as integerfor m = 1 to 3

for n = 1 to 3

a(m, n - 1) = (m - 1) * 3 + nnext n

next m

textbox1.text = ""

for m = 0 to 2

for n = 1 to 2

textbox1.text = textbox1.text + cstr(a(n, m)) + ""

next n

next m

end sub

執行,得出142536

一道vb題,急求,vb題一道,急求

答案是c.輸入10000個數值,計算平均數,適合採用迴圈結構演算法。a。判斷一個證書是否為偶數,解決該問題僅需一步判斷,也許需要一步賦值,沒有多次重複的步驟,不適合採用迴圈結構演算法。b。輸入一個圓的半徑,計算面積和周長。輸入資料 計算面積,這三個內容都是一個語句就可以完成的,沒有多次重複的步驟,不...

幫幫忙,請教幾道VB的選擇題

駱浩閃靈珊 1 樓上的答案有點問題 這裡每個if語句都要執行判斷,不要把它理解成elseif你應該是把它錯誤理解成 ifa 90 then i 4elseif a 80 then i 3elseif a 70 then i 2elseif a 60 then i 1print i i 如果是else...

幾道英語選擇題,急求,幾道英語選擇題!急求啊!英語高手速給答案和解釋!謝謝了!

1c前面有 the 形容詞最高階2b 不過中間最好有定冠詞 all theyear round 整年 固定搭配3b take off 固定搭配 1c one of後面加可數名詞的複數形式。前面有定冠詞the,所以要用形容詞最高階。2b 不過中間最好有定冠詞 the allthe year round...