VB.net 程序编写

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)

用VB.NET编写以下程序。

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;

}

}

}

如何编写VB.NET 接口程序

可以的，把项目的类型设成类库，将所有的函数用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()

希望你能了解，不懂再追问

网页题目：go语言核心编程百度云,go语言高级编程 豆瓣
文章出自：http://chengdu.cdxwcx.cn/article/hessss.html