人教版小学信息技术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