程序设计vb

❶ VB程序设计

本题选择答案A
因为过程Swap中的第一个参数是传址调用，所以它的值在交换后返回生效。第二个参数是值参。所以，交换的值并不会返回到主调过程中。

❷ VB程序设计

Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim n As Integer, sum As Integer
For i = 100 To 200
For j = 2 To i - 1
If i Mod j = 0 Then Exit For
Next
If j = i Then
n = n + 1
sum = sum + i
Print i;
If n Mod 6 = 0 Then Print
End If
Next
Print
Print "ghjghj:"; n
Print "bncgfgk:"; sum
End Sub

❸ 程序设计VB

Private Sub Command1_Click()
Dim a(100), n As Integer
n = InputBox("请输入选手个数：")
For i = 1 To n
a(i) = Val(InputBox("请输入第" & i & "个选手的成绩："))
Next i
For i = 1 To n - 1
For j = 1 To n - 1 - i
If a(j) > a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
Print "排序以内后的容成绩："
For i = 1 To n
Print (a);
Next i
End Sub

❹ vb程序设计用什么软件做谢谢

vb的程序，当然是用VB编程软件制作出来的，全称为Visual Basic（简称VB），是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。

❺ 求一个简单vb编程实例~

控件：image,picture,timer代码抄：Dim x As Integer
Dim y As IntegerPrivate Sub Form_Load()
x = 100
y = 100
Timer1.Interval = 100
End SubPrivate Sub Timer1_Timer()
If img.Top >= pic.Height - img.Height Then
y = -100
End If
If img.Top <= 0 Then
y = 100
End If
If img.Left >= pic.Width - img.Width Then
x = -100
End If
If img.Left <= 0 Then
x = 100
End If
img.Top = img.Top + y
img.Left = img.Left + x
End Sub
以上代码实现的是图片框中的一个小球做的规律的运动，当小球碰到图片框边缘时便反弹继续运动

❻ vb程序设计是什么

1、VB程序设计以Visual Basic 6.0简体中文版为语言背景，深入浅出的介绍Visual Basic 6.0程序设计技术，基本涵盖了Visual Basic 6.0编程时的常用内容。
2、VB程序设计共分14章，主要内容包括开发环境、语言基础和数组与过程、常用控件、菜单设计、文件处理、ActiveX控件、数据库程序设计、图形程序设计、多媒体编程、网络编程、API函数和注册表、安装程序的制作和综合实例。
3、为了方便读者学习，《VB程序设计》提供多媒体课件，及例题和练习题的所有源代码。
4、VB程序设计可以作为大中专院校计算机及相关专业的教材，适合编程爱好者自学使用。

❼ vb编程在线等

测试复前做好数据备份。制

Sub sample()
i = 1
j = 1001
c=5000'你说的5000是sheet1的第5000还是sheet2的5000行，这里默认是sheet1的第5000

For m = i To c
Worksheets("Sheet1").Range(m & ":" & m).Cut Worksheets("Sheet2").Cells(j, 1)
Worksheets("Sheet2").Range(j & ":" & j).Copy
Worksheets("Sheet2").Cells(j, 1).PasteSpecial xlPasteValues
j = j + 1
Next

End Sub