vb编程代码(vb编程还有用吗)
大家好，感谢邀请，今天来为大家分享一下vb编程代码的问题，以及和vb编程还有用吗的一些困惑，大家要是还不太明白的话，也没有关系，因为接下来将为大家分享，希望可以帮助到大家，解决大家的问题，下面就开始吧！
求助各位大神,这道VB编程题代码该怎么编
设计界面：
修改属性：
窗体Frm1代码：
Publicn%'定义公共变量
PrivateSubCommand1_Click()
Frm2.Show
EndSub
PublicSubCommand2_Click()
Printn
EndSub窗体Frm2代码：
PrivateSubCommand1_Click()
IfMsgBox("退出程序吗？",vbYesNo,"提示")=vbYesThenMe.Hide'题目要求只是关闭这个窗体，没说要退出程序，配图上的提示文字是一种误导
EndSub
PrivateSubForm_Click()
Frm1.n=Frm1.n+1
EndSub运行结果：
这题的难点主要就是要定义公共变量，使两个窗体都能使用变量，才能显示出单击窗体的次数。
希望我的回答能够帮到你，满意请采纳！
用VB编写一个计算器程序的代码
1、创建控件组的方法
首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption属性为数字 0；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。
这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其 Caption属性为数字“1”并将其拖至合适位置即可。此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共20个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。
2、各控件组其属性设置如下：
设置效果如下图所示：
二、编写代码
Dim s1 As Single， s2 As Single， ysf As String
‘定义两个单精度数变量用与存放参与运算的数，一个字符型存放运算符
Private Sub Command1_Click（Index As Integer）
Text1.Text= Text1.Text& Command1（Index）.Caption’将command1的单击事件与文本框显示的内容连接
End Sub
Private Sub Command2_Click（）
Text1.Text= Text1.Text+“。”
If（InStr（Text1.Text，“。”）= 1） Then‘第一位不能为小数
Text1.Text=“”
End If
If InStr（Text1.Text，“。”）《 Len（Text1.Text） Then’防止出现两个小数点
Text1.Text= Left
（Text1.Text， Len（Text1.Text）- 1）
End If
End Sub
Private Sub
Command3_Click（）
s2= Val（Text1.Text）‘开始加减乘除运算
Select Case ysf Case“+”
Text1.Text= s1+ s2
Case“-”
Text1.Text= s1- s2
Case“*”
Text1.Text= s1* s2
Case“/”
If s2= 0 Then
MsgBox“分母不能为零！”
Text1.Text=“”
Else
Text1.Text= s1/ s2 End If End Select
Text1= IIf（Left（Text1.Text， 1）=“。”， 0& Text1.Text， Text1.Text）‘
这个很关键，如果没有这个的话，得出小于1的小数前面没有0
End Sub
Private Sub Command4_Click（）
If Text1.Text=“” Then’文本为空就结束
Exit Sub
End If
Text1.Text= Left（Text1.Text， Len（Text1.Text）- 1）‘文本退一格
End Sub
Private Sub Command5_Click（）
Text1.Text=“”’清除当前框内文本
End Sub
Private Sub Command6_Click（Index As Integer）
s1= Val（Text1.Text）‘将s1隐藏起来 ysf= Command6（Index）.Caption
Text1.Text=“”
End Sub
Private Sub Command7_Click（）
If Left（Text1.Text， 1）《》“-” Then’判断作为负数
Text1.Text=“-”& Text1.Text
Else
Text1.Text= Right（Text1.Text， Len（Text1.Text）- 1）
End If
End Sub
Private Sub Command8_Click（）
Text1.Text= Text1.Text* Text1.Text‘平方
End Sub
拓展资料Visual Basic（VB）是由微软公司开发的包含环境的事件驱动编程语言。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松地使用VB提供的组件快速创建一个应用程序。
参考链Visual Basic——百度百科接
怎么看VB代码、又怎么编写代码
要看VB代码，首先得知道这些代码是什么意思，所以要先学习和了解VB函数及使用及操作方法。
建议先看几本VB编程的书，如：Visual Basic程序设计康丽军吴红萍主编北京大学出版社这本书讲的很基础，感觉比较适合初学者。
学习了基本的函数后，就可以对照书中的实例，编写自己的程序了。比如，一个简单的例子。
点击按钮，显示对话框：
1，打开VB，新建程序，然后在窗体中添加一个Command1控件。
2，点击Command1，添加代码：Msgbox"你好！"
3，点击即可。
4，代码编写完毕。
*VB6.0全称为VisualBasic 6.0，是微软公司推出的可视化编程工具之一，是目前世界上使用最广泛的程序开发工具。
好了，文章到这里就结束啦，如果本次分享的vb编程代码和vb编程还有用吗问题对您有所帮助，还望关注下本站哦！