go语言核心编程百度云,go语言高级编程 豆瓣

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://scjbc.cn/article/hessss.html

其他资讯