人教版小學信息技術vb

① 信息科技VB語言

樓上那位老兄，來題主要的是奇自數項的平方和，你求的是連續數的平方和了~~~

我的程序是這樣的——運行窗口和示例圖片如下——

Private Sub Command1_Click()

Dim sum As long

Dim a As Integer, i As Integer, n As Integer, max_cnt As Integer

n = Val(Text1.Text)

sum = 0

max_cnt = (n + 1) / 2

For i = 1 To max_cnt

a = 2 * i - 1

sum = sum + a * a

Next i

Text2.Text = Str(sum)

End Sub

有什麼不懂的繼續問，望採納~

② 信息技術*VB

False
因為false是布爾值(boolean) 由函數或布爾表達式返回的條件匹配值 所以不能做為標志符

③ 信息技術中什麼是vb

信息技術 vb指的是Visual Basic。
Visual Basic是一種由 微軟公司開發的結構化的、模塊化的、面向對象的、包版含協助開發環境的事件驅權動為機制的可視化程序設計語言。這是一種可用於微軟自家產品開發的語言。它源自於BASIC編程語言。VB擁有圖形用戶界面（GUI）和快速應用程序開發（RAD）系統，可以輕易的使用DAO、RDO、ADO連接資料庫，或者輕松的創建Active X控制項。程序員可以輕松的使用VB提供的組件快速建立一個應用程序。

④ 信息技術必修一的vb函數代碼

1. VB是設計用於創建標準的應用程序,而VBA是使已有的應用程序(EXCEL 等) 動 化

2. VB具有自己的開版發環境,而VBA必須權寄生於已有的應用程序.

3. 要運行VB開發的應用程序,用戶不必安裝VB,因為VB開發出的應用程序是 可執行文件(*.EXE),而VBA開發的程序必須依賴於它的"父"應用程序,例如EXCEL.

而控制項就是辦公軟體或說辦公程序上一些浮動的面板---窗體,上的相應標簽或控制按鈕.它一般和宏結合使用,使應用更完美,健全,便捷

⑤ 高中信息技術 編程 VB

Private Sub Command1_Click()

n = CInt(Text1)

pi = 1

t = 1

For i = 1 To n - 1

t = t * i / (i + i + 1)

pi = pi + t

Next i

Text2 = pi * 2

End Sub

⑥ 信息技術vb操作題

PrivateSubCommand1_Click()
DimmAsLong
DimnAsLong
DimrAsInteger
m=Val(Text1)
n=Val(Text2)
OnErrorGoToerr
r=mModn
DoWhiler<>0
m=n
n=r
r=mModn
Loop
Text3=Str(n)
err:
EndSub

Or

⑦ 初二信息技術VB期末測試 15分鍾內答我分全部給你

Dim 體重 As Single, 身高 As Single, p As Single

Private Sub Command1_Click()
體重 = Val(Text1.Text)
身高 = Val(Text2.Text)
p = 體重 * 100000 / 身高 ^ 3
If p < 1 Then Text3.Text = "體型太瘦"
If p >= 1 And p < 1.15 Then Text3.Text = "有點瘦"
If p >= 1.15 And p < 1.45 Then Text3.Text = "標准內"
If p >= 1.45 And p < 1.6 Then Text3.Text = "有點胖容"
If p > 1.6 Then Text3.Text = "太胖"
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

⑧ 信息技術VB

3.反斜杠(\)類似Int()，斜杠(/)類似數學中的除號。
4.窗體文件擴展名為專.frm，工程文屬件擴展名為.vbp，可執行文件擴展名為.exe
5.For x=1 To 10 Step -2 步長為0，因為10比1大，但這里的步長計算是每次-2；For x=9 To 2 Step -2步長為4，意思是x從9到2每次減2，即會有（9，7，5，3）這四個值
6.顯示"確定"，Name屬性是代碼中對其操控使用的，Caption屬性是顯示出來的內容
7.可執行文件C，窗體文件B，工程文件D，請參考第4問的解答

⑨ 高中信息技術（VB編程）

Private Sub Form_Click()
Dim x As Integer, s As Long, n As Integer
x = 100
Do While x >= 100 And x <= 999
If x \ 100 > (x \ 10 Mod 10) And (x \ 10 Mod 10) > (x Mod 10) Then
s = s + x
n = n + 1
End If
i = i + 1
Loop
Print "百位抄大於十位,十位大於個位的三位數的和："; s
Print "百位大於十位,十位大於個位的三位數的個數："; n

End Sub