vb编程代码(vb编程代码表白)
什么是VB编程中的代码
指用Visual Basic编程语言进行设计开发时，在程序设计器里添加的代码，也称为：VB程序源代码。
vb编程写代码
在窗体上放置两个CommandButton，分别为Command1和Command2，代码如下：
Dim?Die?As?Long,?Zhi?As?Long
Private?Sub?Command1_Click()
????Dim?x?As?Long,?y?As?Long
????x?=?Val(InputBox("请输入底数：",?"输入",?"0"))
????y?=?Val(InputBox("请输入指数：",?"输入",?"1"))
????If?x??0?And?y??0?Then
????????Die?=?x
????????Zhi?=?y
????????Command2.Enabled?=?True
????Else
????????Command2.Enabled?=?False
????End?If
End?Sub
Private?Sub?Command2_Click()
????MsgBox?CStr(Die)??"?的?"??CStr(Zhi)??"?次幂的结果为："??CStr(Die?^?Zhi),?vbInformation,?"计算结果"
End?Sub
Private?Sub?Form_Load()
????Command1.Caption?=?"输入(I)"
????Command2.Caption?=?"计算(C)"
End?Sub
vb编程代码
以下是两个check的代码
Private Sub Check1_Click()
If Check2.Value = Unchecked And Check1.Value = Checked Then
Command1.Enabled = True
Else
If Check1.Value = Checked And Check2.Value = Checked Then
MsgBox "选了两个，我也不知道您想怎么样:( ！"
End If
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = Checked And Check1.Value = Unchecked Then
Command1.Enabled = False
Else
If Check1.Value = Checked And Check2.Value = Checked Then
MsgBox "选了两个，我也不知道您想怎么样:( ！"
End If
End If
End Sub
自己试试吧。把你想要的补上就行了。
如果仅要选择一项，建议你用option控件比较好。
VB编程水仙花数
VB实现水仙花数的程序代码如下：
PrivateSubCommand_Click()
Fornum=100To999
a=numMod10
b=num\10Mod10
c=num\100
Ifa^3+b^3+c^3=numThenPrintnum
Nextnum
EndSub
实现具体步骤如下：
1.启动VB程序，新建一个标准的exe项目，如下图。
2.在窗体上绘制命令按钮(名称:命令)，双击命令按钮以进入代码窗口，如下图。
3.接下来，开始为命令按钮编写单击事件。click事件实现了上面提供的程序代码，如下图。
4.按F5运行程序并单击命令按钮。水仙花产量为4:15,370,371,407，如下图。
扩展资料：
C语言实现水仙花数的代码：
#include?stdio.h
#include?stdlib.h
voidmain()
{
inti,j,k,n;
printf("'waterflower'numberis:");
for(n=100;n1000;n++)
{
i=n/100;/*分解出百位*/
j=n/10%10;/*分解出十位*/
k=n%10;/*分解出个位*/
if(n==i*i*i+j*j*j+k*k*k)
{
printf("%-5d",n);
}
}
printf("\n");
}
注意事项：
VB编程的核心思想是组件编程。VB是最早引入组件编程的概念，然后被其他语言采用并成为标准，如vc++、Delphi、PowerBuilder等都采用了组件编程模型，并利用面向对象的编程技术，成为当今程序设计的发展方向之一。
VB编程，由于采用了组件技术，所以不必从底层开始窗体，控制设计，可以由工厂通过各种零件装配生产机器，通过Microsoft或第三方提供的组件，装配成所需的程序。与什么?VB是代码，它像胶水一样，把有限的代码和组件粘合在一起。结果是一个完整的应用程序。
VB有一个图形用户界面(GUI)和快速应用程序开发(RAD)系统，可以很容易地使用daos、RDO、ADO连接到数据库，或者很容易地创建活动的X控件，从而高效地生成类型安全的和面向对象的应用程序。
程序员可以使用VB提供的组件轻松快速地构建应用程序。VB的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。
VB使用参数计算的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组件的出现，程序员可以选用自己需要的扩展库。
VB编程代码怎么写
Private?Sub?Command1_Click()
??CurrentY?=?0
??For?i?=?1?To?9
????If?i?=?5?Then
??????Print?Space(9?-?i);
??????For?j?=?1?To?2?*?i?-?1
????????Print?"*";
??????Next?j
????Else
??????Print?Space(i?-?1);
??????For?j?=?1?To?2?*?(10?-?i)?-?1
????????Print?"*";
??????Next?j
????End?If
??Next?i
End?Sub
Private?Sub?Command2_Click()
??CurrentY?=?0
??Dim?a(8)?As?String,?b(8)?As?String
??For?i?=?LBound(a)?To?UBound(a)
????If?i?=?4?Then
??????a(i)?=?String(2?*?i?+?1,?"*")
??????b(i)?=?Space(25?-?i)
????Else
??????a(i)?=?String(2?*?(8?-?i)?+?1,?"*")
??????b(i)?=?Space(17?+?i)
????End?If
????Print?b(i)?+?a(i)
??Next?i
End?Sub
Private?Sub?Command3_Click()
??CurrentY?=?0
??For?i?=?1?To?9
????If?i?=?5?Then
??????Print?Space(43?-?i);
??????Print?String(2?*?i?-?1,?"*")
????Else
??????Print?Space(33?+?i);
??????Print?String(2?*?(10?-?i)?-?1,?"*")
????End?If
??Next?i
End?Sub
Private?Sub?Form_Load()
??Me.Width?=?4800
??Me.Height?=?2640
??Command1.Width?=?1245:?Command1.Height?=?315:?Command1.Left?=?120:?Command1.Top?=?1830
??Command2.Width?=?1245:?Command2.Height?=?315:?Command2.Left?=?1635:?Command2.Top?=?1830
??Command3.Width?=?1245:?Command3.Height?=?315:?Command3.Left?=?3150:?Command3.Top?=?1830
End?Sub