求一个VB小程序代码。_百度知道
求一个VB小程序代码。
//b;&/zhidao/wh%3D600%2C800/sign=ce289daf35fae6cd0ce1ac/cadd540f4ddbf0d109b3de9c82486f.hiphotos://b://b;&可选编码类型2&nbsp.jpg" esrc="多任务哦~<img class="ikqb_img" src="http.baidu.baidu功能.hiphotos：把text1中的文字URLencode编码显示到text2中，text2旁边希望有个复制text2内容的控件按钮。1&完成下述内容再加100分：GB2312&&nbsp。编码类型
&/zhidao/pic/item/34acbea.baidu://f.com/zhidao/wh%3D450%2C600/sign=e69ed883d4bdab5bc315cc219cbea.hiphotos.jpg" esrc="http://f自己动手
提问者采纳
第二个界面.SetText Text5;复制
Clipboard.SetText Text2;GB2312
For i = 5 To 9
Text1(i);GB2312
Text2.Text)
Case 2 &#39: nAsc = AscW(wch)
If nAsc &lt.TextEnd SubPrivate Sub Command3_Click()C & _
Hex((nAsc &#92;&quot,UTF8
Text2: Exit Function &#39.Text)
Text6.Text = UTF8EncodeURI(Text4, vbFromUnicode)For i = LBound(x) To UBound(x)
szRet = szRet & &quot.Text)
Case Else &#39;UTF8
For i = 5 To 9
Text1(i);%&quot.Text = GBKEncodeURI(Text1(i - 5).TextEnd SubPrivate Sub Command4_Click()Clipboard.Text)ElseIf Option2, nAsc2;清除
For i = 0 To 9
Text1(i).Text = GBKEncodeURI(Text1.SetText Text6, szRet, x() As B&转UTF8Dim wch.Text)
Text5;**********************************************Private Sub command1_click() &#39.TextEnd Sub***********************************************************************************************************&#39.Text)End IfEnd Sub&#39，下边代码也有注释，编号从上往下从左到右递增.Text = & & Hex(x(i))NextGBKEncodeURI = szRetEnd Function&#39.Text)
Case 1 &#39;复制Private Sub Command2_Click()Clipboard, 1);%&quot.Text = UTF8EncodeURI(Text3;%& & Hex((nAsc &#92;输入参数为空For x = 1 To Len(szInput)
wch = Mid(szInput.Text = UTF8EncodeURI(Text1(i - 5);转换If Option1;x = StrConv(szI%& 2 ^ 12) Or &HE0) & & Then GBtoUTF8 = szInput，上边俩函数此处省略Private Sub Command1_Click(Index As Integer)
Select Case Index &#39; & Hex(((nAsc &#92.Text = UTF8EncodeURI(Text1;二函数Function UTF8EncodeURI(szInput) &#39.Text = GBKEncodeURI(Text4.Text = GBKEncodeURI(Text3; & _
Hex(nAsc And &H3F Or &H80)
szRet = szRet & uch
End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) &#39; 2 ^ 6) And &H3F Or &H80) & &quot.Text)
Text5.Value = True Then &#39, xDim nAsc.SetText Text1(Index + 2);%&&quot, szRet As StringszRet = &quot，第一个界面按你控件顺序;转GBKDim i As L 0 Then nAsc = nAsc + 65536
If (nAsc And &HFF80) = 0 Then
szRet = szRet & wch
If (nAsc And &HF000) = 0 Then
uch = & 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)
szRet = szRet & uch
uch = &quot, nAsc3If szInput = &quot。&#39；第二个界面两个控件数组以下代码按你的界面写的.Value = True Then &#39
提问者评价
来自团队：
其他类似问题
丰衣足食自己动手。还是应该自己做，还能有更多的经验和体会
来自团队：
为您推荐：
您可能关注的推广
小程序的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁求将VB源代码导出到WORD的软件！
[问题点数：100分，结帖人wxrwan]
求将VB源代码导出到WORD的软件！
[问题点数：100分，结帖人wxrwan]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2011年7月 VB大版内专家分月排行榜第二2010年7月 VB大版内专家分月排行榜第二2009年12月 VB大版内专家分月排行榜第二2009年11月 VB大版内专家分月排行榜第二2009年10月 VB大版内专家分月排行榜第二2009年8月 VB大版内专家分月排行榜第二2008年11月 VB大版内专家分月排行榜第二2008年10月 VB大版内专家分月排行榜第二2008年9月 VB大版内专家分月排行榜第二
2010年6月 VB大版内专家分月排行榜第三2009年9月 VB大版内专家分月排行榜第三2009年3月 VB大版内专家分月排行榜第三2009年2月 VB大版内专家分月排行榜第三2009年1月 VB大版内专家分月排行榜第三
2011年1月 VB大版内专家分月排行榜第二2010年10月 VB大版内专家分月排行榜第二
2013年1月 VB大版内专家分月排行榜第三2012年12月 VB大版内专家分月排行榜第三2011年6月 VB大版内专家分月排行榜第三2011年2月 VB大版内专家分月排行榜第三2010年12月 VB大版内专家分月排行榜第三2010年11月 VB大版内专家分月排行榜第三2009年7月 VB大版内专家分月排行榜第三
2010年6月 VB大版内专家分月排行榜第二
2010年5月 VB大版内专家分月排行榜第三2009年11月 VB大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。VB版简易计算器源代码
简易的VB（计算机）计算器源代码，VB的计算器已经有很多了，不过每一款都出自不同的人，在编写的思路和方法上不尽相同，有兴趣的朋友，可以下载本款源码，看一下作者的思路有何异同呢？
运行环境：Windows/VB6
相关标签：
软件大小：2.72K
软件属性：共享版 | 简体中文
软件评级：
收录更新： |
相关链接：暂无演示
软件截图：
下载地址：
本类推荐下载
本类最新更新
最新网页特效}