求帮忙用VB编程：互换存储单元a和b的值 ,a,b要数值类型,用窗体中文本控件和纽实现
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a
a = b
b = c
Text1.Text = CStr(a)
Text2.Text = CStr(b)
End Sub
vb可以通过编程在窗体中添加控件吗？~
'添加一个按钮
Private WithEvents btnObj As CommandButton
Private Sub btnObj_Click()
MsgBox "This is a dynamically added button."
End Sub
Private Sub Form_Load()
Set btnObj = Controls.Add("VB.CommandButton", "btnObj")
With btnObj
.Visible = True
.Width = 2000
.Caption = "Hello"
.Top = 1000
.Left = 1000
End With
End Sub
Visual Basic中Data控件的主要方法
开发者在线 Builder.com.cn
本文关键词： Visual Basic Data控件 方法
一般地，适用于Dynaset类型的记录集对象的方法同样适用于Visual Basic的Data控件的记录集(Recordset)对象。
1.UpdateRecord方法
使用UpdateRecord方法可以将绑定的数据感知控件的当前内容写入到数据库中，用这种方法在Validate事件中将被绑定的控件的内容保存到数据库中而不会再次触发Validate事件。
2.UpdateControls方法
使用updateControls方法可以将数据从数据库中重新读到约束控件中，恢复为原始值，等效于用户更改了数据之后取消更改。
3.Refresh方法
Refresh方法用来重新建立或显示与Data控件相连的数据库记录集。如果在程序代码中改变了：DatabaseName、ReadOnly、Exclusive或Connect的属性值，就必须用Refresh方法来刷新记录集。
Refresh方法的语法为：
以下是引用片段：
Data1.refresh
另外Data控件的方法还有Drag、Move、Zorder、ShowWhatsThis方法，它们在数据控件上的用法与其他对象的用法是一致的。
下面通过一个小例子来熟悉Data控件的使用，按以下步骤制作一个使用Data控件操作数据库的程序，使用的数据库是前章中制作的学生学籍管理的Access数据库。具体步骤如下。
·在Visual Basic中新建一个工程，命名为useData，保存于适当的目录下。
·打开程序的主窗体，设置其Caption为“Data控件的使用实例”。
·向窗体中添加Data控件，默认name为Datal。
·为数据显示的方便，向窗体中添加DBGird控件，用于显示查询出的数据。这个控件在后面还会有详细的讲解，这里只是使用一下。选择“工程/ 部件”命令，在弹出的对话框中选择“.Microsoft Data Bound ConU.0l”复选框，然后点击确定按钮，DBGird控件就会加到工具箱中。
·设置DBGird的Caption为数据显示表格，并设置其DataSource属性为’Datal，用于显示Datal的数据，以便我们看清数据库的变化。
·根据我们学过的来设置Data控件的属性。首先连接使用的数据库，单击Data控件，在Properties窗口中找到connet属性，因为数据库是用Access制作的，故设置其连接的数据库类型为Access类型.
·找到DataBase属性，这一项是设置Data控件指向的数据库，设置其路径，在此为DADatabase学生学籍管理.mdb。
·然后设置Data控件的RecordSource属性，首先设定其为学生学籍管理.mdb中的学生学籍表。运行程序，可以看到整个学生学籍表的数据全部显示到了DBGir-d中。
·因为Recordsource中既可以指定某一表，也可以使用SQL语句。
求帮忙用VB编程:互换存储单元a和b的值 ,a,b要数值类型,用窗体中文本...
答：c = a a = b b = c Text1.Text = CStr(a)Text2.Text = CStr(b)End Sub
vb中,有a,b两个变量,用什么代码能使a,b的值互换???
答：a=1 b=2 c=a '临时存放 a=b b=c msgbox cstr(a)+vbcrlf+cstr(b)
用VB编程序 已知: a=3, b=5,编一程序将a与b的值互换。 急~~~谢谢万分...
答：b = t Print a, b '如果需要输出结果的话，加上这一句 End Sub Private Sub Form_Load()a = Val(InputBox("a=?"))b = Val(InputBox("b=?"))End Sub
如何用VB代码将A列每个单元格里所含有指定的字符复制到B列,要用VB代码...
答：Sub CheckCopy()Dim I As Long, U As Long, S As String U = UsedRange.Rows.Count For I = 1 To U S = Range("A" & CStr(I)).Value If InStr(UCase(a), "FB12") > 0 Then Range("B" & CStr(I)).Value = S Next I End Sub 此代码不区分大小写，如要区分去掉UCASE函数...
VB编程题,关于元素互换
答：for(i=1;i<21;i++)b(i)=a(21-i)next i 就是这样a(20)的数就赋值给了b(1)然后 for(i=1;i<21;i++)a(i)=b(i)next i 这样b(1)又给了a(1).现在a(1)就是原来的a(20)了 还有一种就是用个变量 for(i=1;i<=10:i++)m=a(i)a(i)=a(21-i)a(21-i)=m 这样更...
wps利用VB代码定位到A列最后一个不等于空的单元格上,怎么写代码?_百度...
答：如果你不记得函数的话, 可以用如下代码解决 sub test()ri = 1 do while cells(ri,1).value <>""ri = ri +1 loop ri = iif(ri=1,1,ri-1)end sub 当然用更方便的方法 rn = Sheet1.Range("A" & Rows.Count).End(xlUp).Row ...
用VB如何把一张excel表的A列中的相同元素,提取到B列中。用VB编程
答：同时按Alt+F11这二个键，进入VBA编辑界面，点击编辑画面的菜单：“插入”--“模块”，然后在里面完整复制下面的代码：Sub 提取重复到B列()x = Sheet1.[A65536].End(xlUp).Row m = 0 For i = 1 To x If Application.CountIf(Sheet1.Range("A1:A" & x), Sheet1.Cells(i, 1)) > 1...
用vb编程 产生10个随机小写字母放在数组中,并输出字母"a"出现的次数
答：Private Sub Form_Click() Dim a(10) As String Dim i As Integer, k As Integer Form1.AutoRedraw = True Randomize Print "产生的十个字母是：" For i = 1 To 10 a(i) = Chr(Int(Rnd * 26 + 97)) Print a(i); Next Print For i = 1 To ...
VB编程中如何将AbcD转换为aBCd?
答：一般我们用最简单的思路.就是将一个个数字套进去,然后用程序去判断(这在数学中该是叫做穷举法)代码的话楼上俩个都很好,如果看不懂的话可以参考下我这个 ABCD-CDC=ABC 这题目首先看,它有4个变量,其中A和C肯定不能是0,那么代码可以是:Dim a As Integer, b As Integer, c As Integer, d As ...
VB编程:Dim a, b As Integer语句定义的变量类型为哪个?
答：而a为缺省的Variant类型。在Visual Basic中，定义变量的关键字有Dim、Statie、ReDim、Public或Global，它们在使用上是不同的：Dim用于标准模块、窗体模块或过程中定义变量或数组；Static用于在过程中定义静态变量或数组；Public或Global语句用于在标准模块中定义全局变量或数组；ReDim主要用于重定义数组。
