代码搜索：str1
找到约 2,588 项符合「str1」的源代码
代码结果 2,588
www.eeworm.com/read/488087/6495875
txt caipiao.txt
'下面的程序是对福利彩票２２选５的投注模拟，在程序上增加产生了不重复数，及排序的功能．窗体上有两个命令按钮，一个文本框控件：
Private Sub Command1_Click()
Dim a(1 To 7) As Integer, i As Integer, str1 As String, j As Integer, n As Integer
For i = 1 To 7
www.eeworm.com/read/391726/8385361
txt d10r5.txt
implementation
//PROGRAM D10R5
//Driver for routine COSFT
uses
unit2;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
const
s1='%13.6f'; s2 = '##';
NP = 16; WIDTH1 = 30;
www.eeworm.com/read/391726/8385363
txt d10r4.txt
implementation
//PROGRAM D10R4
//Driver for routine SINFT
uses
unit2;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
const
s1='%13.6f'; s2 = '##';
NP = 16; WIDTH1 = 30;
www.eeworm.com/read/192256/8391998
txt d10r5.txt
implementation
//PROGRAM D10R5
//Driver for routine COSFT
uses
unit2;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
const
s1='%13.6f'; s2 = '##';
NP = 16; WIDTH1 = 30;
www.eeworm.com/read/192256/8392001
txt d10r4.txt
implementation
//PROGRAM D10R4
//Driver for routine SINFT
uses
unit2;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
const
s1='%13.6f'; s2 = '##';
NP = 16; WIDTH1 = 30;
www.eeworm.com/read/388532/8604230
html 10.2.2 big方法.html
str1="big方法测试";
str2="big方法测试";
document.write(str1);
document.write("");
document.write(str2.big());
www.eeworm.com/read/387489/8670308
txt d10r5.txt
implementation
//PROGRAM D10R5
//Driver for routine COSFT
uses
unit2;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
const
s1='%13.6f'; s2 = '##';
NP = 16; WIDTH1 = 30;