我在用2003的excel写一个vba的小程序，结果调用WIDECH 但是提示我没有定义。我想把半角的数字转换成全角的

自己做一个函数就行了

---------------------

Function iWideChar(s) As String

'半角转换为全角（常用的标点、符号、数字、字母）

Dim i, bjTOqj, Tmp$, iAsc

bjTOqj = Asc("1") - Asc("1") '贴上来就变了，前面那个Asc("1")中是全角的 1

For i = 1 To Len(s)

iAsc = Asc(Mid(s, i, 1))

If iAsc > 31 And iAsc < 127 Then

Tmp = Tmp & Chr(iAsc + bjTOqj)

Else

Tmp = Tmp & Mid(s, i, 1)

End If

Next

iWideChar = Tmp

End Function

-------------

用我的这个函数：iWideChar()

例：

Public Sub iTest()

MsgBox iWideChar("中国（) 123")

End Sub

k1=1;k2=1;s=sum(d);j=1; %sum函数求和

while j~=n %当j 不等于 n ，执行循环

while s(j)==0 %当s（j）等于 0 ，执行循环

j=j+1;

end

k1=j;

while s(j)~=0 && j<=n-1 %当s（j）不等于 0 并且j小于n-1，执行循环

j=j+1;

end

k2=j-1;

if k2-k1>=round(n/65) %当k2-k1 大于等于n除以65取整

[val,num]=min(sum(d(:,[k1+5:k2-5])));

d(:,k1+num+5)=0; % 分割

end

end

分类: 电脑/网络 >> 程序设计 >> 其他编程语言

问题描述:

用Delphi的控制台写了一个简单的程序，可是运行时屏幕却是一闪就没了，这是怎么回事？是不是Delphi里面也有像C里面类似getch停屏的指令？源程序如下：

program graph(input,output);

{$APPTYPE CONSOLE}

uses

SysUtils;

const

pi= 314159;

var

i, wide: integer ;

y: real ;

begin

{ TODO -oUser -cConsole Main : Insert code here }

for i:=0 to 24 do

begin

y:=sin(i15pi/180);

wide :=round (35y+40);

writeln('',wide)

end

end

解析:

用ReadLn;就行了

class Base

{

protected:

 float square;

public:

 Base(): square(00) {}

 virtual void calSquare() = 0;

};

class Square: public Base

{

private:

 float length;

public:

 Square(float len): length(len)

 {}

 virtual void calSquare()

 {

  square = length  length;

  cout << "正方形面积是 " << square << endl;

 }

};

class Triangle: public Base

{

private:

 float bottom, height;

public:

 Triangle(float bot, float hei): bottom(bot), height(hei)

 {}

 virtual void calSquare()

 {

  square = bottom  height / 2;

  cout << "三角形面积是 " << square << endl;

 }

};

class Circle: public Base

{

private:

 float radius;

public:

 Circle(float r): radius(r)

 {}

 virtual void calSquare()

 {

  square = radius  radius  31415926;

  cout << "圆形面积是 " << square << endl;

 }

};

void main()

{

 Square s(4);

 Triangle t(2, 3);

 Circle c(25);

 scalSquare();

 tcalSquare();

 ccalSquare();

}

分类: 电脑/网络 >> 反病毒

问题描述:

没次都 要手动恢复c:\widows\system32\wshcon32dll这个文件后才正常，这个文件是干什么用的啊

解析:

wshcon32dll这个文件属于ADWARERoogooo（罗古）病毒类型：下载者程序。清除方法如下

ADWARERoogooo（罗古）是一个广告软件。该病毒是一个能释放广告的下载者程序。病毒运行后，会生成文件到系统目录，文件名为下列中的一种quartz32dll、wshcon32dll、securdll、raspapidll、winipsec32dll，并且添加注册表项。病毒运行后，用户在使用google等搜索引擎时，会在桌面右下角d出与搜索的内容相关的广告。该广告使用的文件名类似系统文件名，迷惑用户，而且该广告会注册SPI服务，并不提供卸载，所以，当该文件出现故障时，可能会导致机器无法上网。

没有工具时可以进行手工修复（修复前建议备份注册表）

进入注册表（开始菜单－－运行，键入regedit，回车，出现注册表），找到并删除（建议在删除前最好备份注册表以防不测）

HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Winsock

HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Winsock2

然后重新启动机器，重新启动过程中，被删除的注册表信息会自动重新建立，重新建立的东东当然是干净的。

重新启动后，由于TCP/IP协议损坏所以请你再把TCP/IP协议给装下，如何装TCP/IP协议重装呢？打开开始菜单，找到宽带连接或者找到控制面板找到网络连接后，找到本地连接，鼠标右键单击，指向属性，选择常规，选择协议，安装，完成后再重新启动机器，这个时候，问题已经解决

以上就是关于我在用2003的excel写一个vba的小程序，结果调用WIDECH 但是提示我没有定义。我想把半角的数字转换成全角的全部的内容，包括:我在用2003的excel写一个vba的小程序，结果调用WIDECH 但是提示我没有定义。我想把半角的数字转换成全角的、MATLAB的循环语句，程序如下，是什么意思呀、为什么Delphi运行程序时一闪而过等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！