189 8069 5689
首先安装VB，你可以上网下载VB6或者VB2008之类的来安装，不过VB6和VB200X的用法有所不同，后者是VB.net。
网站建设哪家好，找创新互联公司！专注于网页设计、网站建设、微信开发、成都小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了灵山免费建站欢迎大家使用！
安装完成后，双击开始中的快捷方式执行，VB6直接选择标准EXE，然后点击创建。VB.net需要选择创建新项目并指定文件夹，新项目中选择应用程序。
编程方法是首先在控件库中拖拽需要的控件，如按钮，输入框，选择框之类的图形到程序设计界面上，然后在右边属性栏中设置他们的属性，如颜色，大小，显示方式之类的。
之后双击控件对控件进行编程，语法就是VB语法，很好学，简单易懂。
在程序编写的任意时刻都可以点击工具栏的三角箭头（播放）来运行程序测试，若没有问题，则点文件，生成EXE产生EXE文件即可。
1，窗体上使用容器控件比如：Panel，在容器控件里添加文本框，用来显示滚动的号码。
2，添加一个Timer控件，用来不断改变上述文本框的Top属性，实现不断向上滚动的动态效果。
3，使用系统的随机函数，生成所想要的适当位数的随机数，单击按钮，停止滚动，显示随机数。
4，用数组保存产生的随机数，再次停止，与已经产生的保存在数组里的随机进行比较，如果重复，就重新生成随机数，直到不重复。
Function ULCase(ByVal value As String) As String
Dim s As String = ""
For Each i As Char In value
s = IIf(Char.IsLower(i), Char.ToUpper(i), Char.ToLower(i))
Next
Return s
End Function
textbox1.text=ULCase(textbox1.text)
就行了.类似楼上,用的内置方法判断大小写
2.
能得到数据的方法 常用 InputBox ,TextBox
inputBox 用法
Public Function InputBox(ByVal Prompt As String, Optional ByVal Title As String = "", Optional ByVal DefaultResponse As String = "", Optional ByVal XPos As Integer = -1, Optional ByVal YPos As Integer = -1) As String
功能: 在对话框中显示提示，等待用户输入文本或单击按钮，然后返回包含文本框内容的字符串。
参数:
Prompt: 必选的 String 表达式，作为消息显示在对话框中。Prompt 的最大长度大约为 1024 个字符，具体取决于所用字符的宽度。如果 Prompt 包含多行内容，则可以在每行之间使用回车符 (Chr(13))、换行符 (Chr(10)) 或回车/换行符组合 (Chr(13) Chr(10)) 来分隔各行。
Title: 可选。显示在对话框标题栏中的 String 表达式。如果省略 Title，则标题栏中显示应用程序名称。
DefaultResponse: 可选的 String 表达式。如果未提供其他输入，则作为默认响应显示在文本框中。如果省略 DefaultResponse，则显示的文本框为空。
XPos: 可选。数值表达式，指定屏幕左边缘与对话框左边缘之间的距离（以缇为单位）。如果省略 XPos，则对话框水平居中。
YPos: 可选。数值表达式，指定屏幕顶部与对话框上边缘之间的距离（以缇为单位）。如果省略 YPos，则对话框垂直定位在屏幕向下大约三分之一处。
返回值:
在对话框中显示提示，等待用户输入文本或单击按钮，然后返回包含文本框内容的字符串。
代码:
Dim KC() As String = {"语文", "数学", "英语", "物理", "化学"}
Dim MyTable As New Hashtable
For Each i As String In KC
MyTable.Add(i, Val(InputBox("请输入""" i """ 的成绩:", "成绩输入", "0")))
Next
Dim sum As Single
For Each i As DictionaryEntry In MyTable
sum += i.Value
Next
Dim Pf As String = IIf(sum 450 OrElse _
(MyTable(KC(0)) 95 AndAlso MyTable(KC(1)) 95 AndAlso MyTable(KC(2)) 95 AndAlso MyTable(KC(3)) 80 AndAlso MyTable(KC(4)) 80) OrElse _
(MyTable(KC(0)) 85 AndAlso MyTable(KC(1)) 85 AndAlso MyTable(KC(2)) 85 AndAlso MyTable(KC(3)) 85 AndAlso MyTable(KC(4)) 85), "优秀", "可以")
MsgBox(Pf)
可以的，把项目的类型设成类库，将所有的函数用Public修饰附封装在类里面，生成dll文件。这样别人就可以在别人项目属性的引用页里面添加对你的dll文件的引用，然后导入命名空间，直接使用了。
比如说，在一个项目里：
NameSpace Controller
Public Class ControlMachine
Public Sub Boot()
End Sub
Public Sub Shutdown()
End Sub
End Class
End NameSpace
进入另一个项目的项目属性，进入引用页，添加到那个dll文件的引用。在代码中：
Imports Controller '加在代码文档的最顶端
使用：
Dim controller As New ControlMachine
controller.Boot()
controller.Shutdown()
希望你能了解，不懂再追问
using System;
using System.Windows.Forms;
namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{
Timer tm = new Timer();//实例化 timeer
static int timeS = 0; //设置静态变量记录秒数
TimeSpan ts = new TimeSpan(); //实例化 TimeSpan
public Form1()
{
InitializeComponent();
}
private void button1_Click(object sender, EventArgs e)
{
tm.Interval = 1000; //设置 timeer 1000毫秒执行一次
tm.Tick += new EventHandler(timeer_Tick); //设置 timeer 运行事件
tm.Start(); // 启用 timeer
}
private void timeer_Tick(object sender, EventArgs e)
{
timeS += 1; //秒数 +1
ts = new TimeSpan(0, 0, timeS);
label1.Text = ts.Hours + ":" + ts.Minutes + ":" + ts.Seconds;
}
private void button2_Click(object sender, EventArgs e)
{
tm.Stop();
timeS = 0;
}
}
}