13518219792
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)
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;
}
}
}
可以的，把项目的类型设成类库，将所有的函数用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()
希望你能了解，不懂再追问
