关于vb的一个小问题
可以使用windows api
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
sn＝sn＋1的意思就是统计出现的大写、小写以及数字的个数
每出现一次大写，相应的s1就在原来的基础上加一。。。。。
sn的初始值都应该是0
① GB2313字符集，收入汉字6763个，符号715个，总计7478个字符，这是大陆普遍使用的简体字符集。楷体-GB2313、仿宋-GB2313、华文行楷等市面上绝大多数字体支持显示这个字符集，亦是大多数输入法所采用的字符集。市面上绝大多数所谓的繁体字体，其实采用的是GB-2313字符集简体字的编码，用字体显示为繁体字，而不是直接用GBK字符集中繁体字的编码，错误百出。
② BIG-5字符集，收入13060个繁体汉字，808个符号，总计13868个字符，目前普遍使用于台湾、香港等地区。台湾教育部标准宋体楷体等港台大多数字体支持这个字符集的显示。
③ GBK字符集，又称大字符集(GB=GuóBiāo国标，K=扩展)，包含以上两种字符集汉字，收入21003个汉字，882个符号，共计21885个字符，包括了中日韩(CJK)统一汉字20902个、扩展A集(CJK Ext-A) 中的汉字52个。Windows 95\98简体中文版就带有这个GBK.txt文件。宋体、隶书、黑体、幼圆、华文中宋、华文细黑、华文楷体、标楷体(DFKai-SB)、Arial Unicode MS、MingLiU、PMingLiU等字体支持显示这个字符集。微软拼音输入法2003、全拼、紫光拼音等输入法，能够录入如镕镕炁夬喆嚞姤赟赟�6�9龑昳堃慜靕臹等GBK简繁体汉字。
BIG-5 (繁体中文)与GB-2313 (简体中文)，编码不相兼容，字符在不同的操作系统中便产生乱码。文本文字的简体与繁体（文字及编码）之间的转换，可用BabelPad、TextPro或Convertz之类的转码软件来解决。若是程序，Windows XP操作系统，可用Microsoft AppLocale Utility 1.0解决；Windows 2000的操作系统，大概只有用：中文之星、四通利方、南极星、金山快译之类的转码软件方能解决了。
④ GB18030字符集，包含GBK字符集、CJK Ext-A 全部6582个汉字，共计27533个汉字。宋体-18030、方正楷体(FZKai-Z03)、书同文楷体(MS Song)宋体(ht_cjk+)、香港华康标准宋体(DFSongStd)、华康香港标准楷体、CERG Chinese Font、韩国New Gulim，以及微软Windows Vista操作系统提供的宋黑楷仿宋等字体亦支持这个字符集的显示。Windows 98支持这个字符集，以下的字符集则不支持。手写输入法逍遥笔4.0版支持GB18030字符集及方正超大字符集汉字的录入。
⑤ 方正超大字符集，包含GB18030字符集、CJK Ext-B中的36862个汉字，共计64395个汉字。宋体-方正超大字符集支持这个字符集的显示。Microsoft Office XP或2003简体中文版就自带有这个字体。Windows 2000的操作系统需安装超大字符集支持包“Surrogate更新”。
⑥ ISO/IEC 10646 / Unicode字符集，这是全球可以共享的编码字符集，两者相互兼融，涵盖了世界上主要语文的字符，其中包括简繁体汉字，计有：CJK统一汉字20902个，CJK Ext-A 6582个，Ext-B 42711个，共计70195个汉字。SimSun-ExtB(宋体)、MingLiU-ExtB(细明体)能显示全部Ext-B汉字。至今尚无单独一款字体能够显示全部70195个汉字，但可用海峰五笔、新概念五笔、仓颉输入法世纪版、新版的微软新注音、仓颉输入法 6.0 版(单码功能)等输入法录入。Ext-C还有2万多个汉字。详情请参阅香港中文大学网站、马来西亚仓颉之友网站、福建陈清钰个人网站。
⑦ 汉字构形数据库2.3版，内含楷书字形60082个、小篆11100个、楚系简帛文字2627个、金文3459个、甲骨文177个、异体字12768组。可以安装该程序，亦可以解压后使用其中的字体文件，对于整理某些古代文献十分有用。
如果超出了输入法所支持的字符集，就不能录入计算机。如果没有相应字体的支持，则显示为黑框、方框或空白。如果操作系统或应用软件不支持该字符集，则显示为问号(一个或两个)。在网页上亦存在同样的情况。
关于Unicode
由于各国国家标准字集所收的汉字字数、常用字的差异，虽然象中国两岸GB/BIG5字集常用字基本类似，转换后阅读并不成问题，但是这种编码转换的混乱关系，对文字交流始终是一种障碍。因此相关国家的标准化组织和文字工作者经过共同努力，终于在93年完成了包含中日韩(CJK)汉字的Unicode 汉字标准ISO 10646.1。 Unicode是完全双字节表示的多国文字编码体系，编码空间0x0000-0xFFFF。 ISO 10646.1汉字标准使用编码0x4E00-9FA5，共包含20902个汉字。其中： 大陆(S)提出的汉字17124个，台湾(T)提出的汉字17258个; S与T的并集，即中国(C)提出的汉字为20158个。 日本(J)提出的汉字为12157个，中国未提出的690个(Ja); 韩国(K)提出的汉字为7477个，其中中国未提出的90个(Ka); Ja与Ka并集共744字。 支持Unicode编码的相关电脑系统软件，如Unix, Win95已有推出，但是由于Unicode的ASCII码是用双字节编码(即一般电脑系统中的单字节ASCII码前加 0x00)，同时其汉字编码与各国的现有编码也不兼容，造成现有的软件和数据不能直接使用，所以目前完全使用Unicode软件系统的用户并不多，大多数只将它此作为一个国际语言编码标准来使用
这东西不是这么算的啊，⊙﹏⊙b汗
不是把 为什么你说6W啊
vb 一个随机数的简单问题
e变量内容需要保存 Dim e As Long 改为 Static e As Long
vb 的一个小问题
你的代码有误,第一个串和第二个串为输入对话框的标题,代码修改如下:Option Explicit Dim a As String Dim b As String Private Sub Cmd1_Click()a = InputBox("输入:", "第一个串")b = InputBox("输入:", "第二个串")End Sub 以下提供MSDN关于InputBox 函数使用介绍:InputBox 函数 在...
vb的一道题目,怎样把一个数组的数据存入到另一个数组。
Private Sub Form_Click() Dim a%(), c$(), i%, j%, S$, temp$, w$, y$ Print "国家" & Space(16) & "首都" w = "=" y = String(40, w) Print y S = "中国：北京，日本：东京，俄罗斯：莫斯科，印度尼西亚：雅加达，丹麦：哥本哈根，瑞典：斯德哥尔摩，...
一个vb的小问题...
'定义i,n Dim i%,n 'n设为0 n = 0 'i从1开始,每次加1,直到100 For i = 1 To 100 '如果 i 可以被3整除,就打印出 Tab(6 n);i;:n = n + 1 If i Mod 3 = 0 Then Print Tab(6 n);i;:n = n + 1 '如果 n可以被6整除,就让 n=0,打印一个空行,即回车 If n Mod ...
vb初学者问题(高手帮忙解决追加50分)
这种情况如果只是偶尔一次也不值得大惊小怪，只要拆开机箱把内存条重插一下就可以了。不过如果这种故障每个月都发生一次或者一个星期或半个月就要出现一次，那就要考虑是不属于内存条与主板兼容性不好的问题了，也就是下面要说的第3种类型的问题。预防的方法：(1).采用第1种问题中所说的紧固方法解决...
关于VB编程的一些小问题 设计一个程序实现字体的自动放大,并用垂直滚动...
下面是代码：新建一个Txt文档，复制下面代码保存为.Frm 就可以使用了 VERSION 5.00 Begin VB.Form Form1 Caption = "Form1"ClientHeight = 6480 ClientLeft = 60 ClientTop = 450 ClientWidth = 9630 LinkTopic = "Form1"ScaleHeight = 6480 ScaleWidth...
请教一个VB问题:输入一个数,找出有些数(4个0-9的数)相乘等于这个数,分 ...
Private Sub Command1_Click()Dim s As Double, ss() As String, k As IntegerDim k1 As Integer, k2 As Integer, k3 As Integer, k4 As IntegerReDim ss(0)s = Val(InputBox("请输入一个数"))For k1 = 0 To 9 For k2 = 0 To 9 For k3 = 0 To 9 For k4 = 0...
VB代码问题
do whlie是循环语句 mod是取模运算符 2.有一段程序，其功能是画一个圆，在编程时，如果用该程序段画100个圆，应采用———循环结构。3.在VB中，下列表达式的值等于4的是———A。A.Int(4.1) B.Int(-4.1) C.Sqr(4.1) D.Abs(-4.1)4.网页保存问题，保存网页时保存的是网页中的什么...
vb中的一个问题
这是将 234.45 转变为科学计数法，不进行四舍五入 Print Format$(234.45, "0.00E+00")E 前面是 0.00，小数点前面是1个0，小数点后面有2个0，表示传变为1位整数，2位小数的形式。E 后面是 00，是2个0，表示指数，即10的几次方，用2位数表示。2.34E+02 等同于：2.34 * 10^2 又...
VB的一个小问题
BorderStyle:=bsNone;\/\/无标题栏 BorderStyle:=bsDialog;\/\/对话框窗体，即标题栏中只有关闭按钮，没有最小化和最大化；BorderStyle:=bsSizeable;\/\/可改变大小的窗体，有最大化，最小化，关闭按钮。BorderStyle:=bsSizeToolWin;\/\/工具栏式窗体，可改变窗体大小，标题栏中只有关闭按钮，没有最小化和...
拱荷复方：[答案] 你可以用一个字符型变量保存你的点击TEXTBOX的状态,当点textbox1,则保存textbox1,然后点按钮的时候,判断变量是哪个TEXTBOX,然后哪个的TEXT里就显示1.只是思路供参考.
新芜区15392629536： 关于VB的几个小问题(1)将数学表达式Cos2(a+b)+5e2写成vb表达式正确形式(＂2＂是上标,平方)?(2)Int(198.555*100+0.5)/100的值是多少?(3... - ？
拱荷复方：[答案] 第一个问题后边知道 前边有些麻烦 需要查一下5e2是 5*exp^2 第二题的值是:198.56 先计算里边的值为 198560 int是取整 得出的结果也是198560 再除以100 所以为198.56 第三题的答案是:round(x,3) 第四题的答案是:s=6 因为mid(＂Visual Basic...
新芜区15392629536： VB的一个小问题 - ？
拱荷复方： 文本文档通用读写函数 Public Function openfile(ByVal filepath As String) As String Dim s As String Open filepath For Input As #1 While Not EOF(1) Line Input #1, sline s = s & sline & vbCrLf Wend Close #1 openfile = s End FunctionPublic ...
新芜区15392629536： vb 的一个小问题 - ？
拱荷复方： 直接在文本框中加入就可以了:Text1=＂a>b＂ 你的代码修改后就是:Private Sub Command1_Click() a = 10 * 5 + 6 - 1 b = 10 * 3 + 7 - 2 If a = aPrint a = a > b Text1=＂a>b＂ End If End Sub OK!祝你顺利!
新芜区15392629536： VB编程的几个小问题 - ？
拱荷复方： 1、来自msdn:Opcode 可选的.是长型值或仅由位图使用的代码.它用来定义在将 pictur 绘制到 object 上时对 picture 执行的位操作(例如, vbMergeCopy 或 vbSrcAnd 操作符).关于位操作符常数的完整列表,请参阅 Visual Basic Help 文件中...
新芜区15392629536： vb中的一个小问题？
拱荷复方： 最主要的问题,Form_KeyPress里你没判断当前输入的是不是回车就无条件把Label1设为可见了,所以无论用户输入了什么,都能使Label1可见. 把Label1.Visible = True前面加上判断,改为 If KeyAscii = 13 Then Label1.Visible = True
新芜区15392629536： vb的一个小问题还请高手相助 - ？
拱荷复方： 原点定错了 而且你的半径太小了 参考一下Picture1.Circle (Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2), Picture1.ScaleHeight / 2, RGB(255, 0, 0), -2 * pi, -X1...
新芜区15392629536： 关于VB程序设计的一个很简单很简单的小问题!!! - ？
拱荷复方： 如果要固定图片框大小,那么使用image控件,设置stretch属性为true即可autosize属性表示的是picturebox的尺寸自动适应图片的尺寸,而不是图片的尺寸自动适应picturebox的尺寸. 另外你看看你是不是用错了控件:picturebox和imagebox差异...
新芜区15392629536： vb编程中的一个小问题 - ？
拱荷复方： 用下面的代码就可以了Private Sub Form_Resize() on error resume next 内容.left=(me.width-内容.width)/2 内容.top=(me.height-内容.height)/2end sub
新芜区15392629536： 有关vb小问题？
拱荷复方： int 是一个函数,就是把里面的参数进行＂向下取整＂,即取最靠近参数的并且刚好小于参数的整数. 靠近-3.2的并且刚好小于-3.2的整数 是 4 所以 int(-3.2)=4
