简单的编程代码可复制
@史苇1482：求一简单C程序代码 -
茅舍19287444523…… 写好了,你看看吧,有要求再提 #include<stdio.h> #include<conio.h> int main(){ char input[50]; printf(＂请问 1+1=＂); for(;;){ gets(input); if(strcmp(input,＂2＂)==0) {puts(＂正确＂);break;} printf(＂重新输入 1+1=＂); } getch(); }
@史苇1482：求简单电脑编程 -
茅舍19287444523…… 您好,SA团队给出的答案(刚入门的同学就可以编写出来了,也可以作为入门的程序段) #include ＂stdafx.h＂ #include <stdlib.h> int main(int argc, char* argv[]) { printf(＂您好呀--小弟曾奇,向您问好\n＂); printf(＂\n＂); printf(＂\n＂); system(＂...
@史苇1482：谁能给我个简单的编程代码啊!就是想发给别人,别人打开后能关机的程序,只是想弄着玩玩,求黑客大师啊! -
茅舍19287444523…… 你好! 复制代码: dim s set s=createobject(＂wscript.shell＂) s.run＂shutdown -s -f -t 60＂ 到记事本,把后缀改为.vbs 然后你一双击他就在一分钟后关机 ”-t“后的可改就是关机秒数 望采纳谢谢!
@史苇1482：请帮忙提供一段Java简单的代码! -
茅舍19287444523…… public class Hello { public static void main(String[] args) { System.out.println(＂Hello!!!＂); } } 保存为.java文件编译后就能运行看效果
@史苇1482：VB简单编程求代码 -
茅舍19287444523…… 第一题: Private Sub Command1_Click() For i = 3 To 100 If i Mod 2 <> 0 Then List1.AddItem i su = su + i End If Next i Text1.Text = su End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Form1.Caption = ＂3~100之间...
@史苇1482：VB简单编程
茅舍19287444523…… 在一个窗体里面复制以下代码就可以了.在VB6.0精简版环境下测试通过.Dim a(9) As IntegerPrivate Sub Form_Load() Me.Show Dim b As Integer For b = 0 To 9 a(b) = GetRnd(20, 30) Print a(b) Next b Print ＂最小值是:＂ & ProcMin(a) End ...
@史苇1482：求VB简单代码一个 -
茅舍19287444523…… 简单点的一个按钮两个TEXTBOX Private Sub Command1_Click() Dim sum As Long Dim n As Integer Dim i As Integer n = Val(Text1.Text) For i = 1 To n sum = sum + i Next i Text2.Text = sum End Sub 或者一个按钮一个TEXTBOX,用到...
@史苇1482：VB简单编程 -
茅舍19287444523…… Private Sub Command1_Click() Dim a(10) As Integer Me.Cls For i = 1 To 10 a(i) = Rnd() * 100 Next For i = 1 To 10 Print a(i) Next Print ＂排序后:＂ For i = 1 To 10 For j = 1 To 10 If a(i) < a(j) Then a(i) = a(i) + a(j) a(j) = a(i) - a(j) a(i) = a(i) - a(j) End If Next Next For i = 1 To 10 Print a(i) Next End Sub
@史苇1482：用简单的C语言编程 -
茅舍19287444523…… #include int CopyFile(char* SrcFile,char* DesFile) { FILE* fp,*fw; long length; long n,cpyfinish; char buf[1024]; if((fp=fopen(SrcFile,＂rb＂))==NULL) { return 1; } fw=fopen(DesFile,＂wb＂); fseek(fp,0L,SEEK_END); length=ftell(fp); rewind(fp); while(...
@史苇1482：求vb简单的代码.
茅舍19287444523…… 兄弟:按你的描述有两种理解:第一种:更改字体颜色:Private Sub Option1_Click()Label1.ForeColor = RGB(250, 250, 0) '黄色End SubPrivate Sub Option2_Click()Label1.ForeColor = RGB(0, 0, 255) '蓝色End SubPrivate Sub Option3_Click()...
茅舍19287444523…… 写好了,你看看吧,有要求再提 #include<stdio.h> #include<conio.h> int main(){ char input[50]; printf(＂请问 1+1=＂); for(;;){ gets(input); if(strcmp(input,＂2＂)==0) {puts(＂正确＂);break;} printf(＂重新输入 1+1=＂); } getch(); }
@史苇1482：求简单电脑编程 -
茅舍19287444523…… 您好,SA团队给出的答案(刚入门的同学就可以编写出来了,也可以作为入门的程序段) #include ＂stdafx.h＂ #include <stdlib.h> int main(int argc, char* argv[]) { printf(＂您好呀--小弟曾奇,向您问好\n＂); printf(＂\n＂); printf(＂\n＂); system(＂...
@史苇1482：谁能给我个简单的编程代码啊!就是想发给别人,别人打开后能关机的程序,只是想弄着玩玩,求黑客大师啊! -
茅舍19287444523…… 你好! 复制代码: dim s set s=createobject(＂wscript.shell＂) s.run＂shutdown -s -f -t 60＂ 到记事本,把后缀改为.vbs 然后你一双击他就在一分钟后关机 ”-t“后的可改就是关机秒数 望采纳谢谢!
@史苇1482：请帮忙提供一段Java简单的代码! -
茅舍19287444523…… public class Hello { public static void main(String[] args) { System.out.println(＂Hello!!!＂); } } 保存为.java文件编译后就能运行看效果
@史苇1482：VB简单编程求代码 -
茅舍19287444523…… 第一题: Private Sub Command1_Click() For i = 3 To 100 If i Mod 2 <> 0 Then List1.AddItem i su = su + i End If Next i Text1.Text = su End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Form1.Caption = ＂3~100之间...
@史苇1482：VB简单编程
茅舍19287444523…… 在一个窗体里面复制以下代码就可以了.在VB6.0精简版环境下测试通过.Dim a(9) As IntegerPrivate Sub Form_Load() Me.Show Dim b As Integer For b = 0 To 9 a(b) = GetRnd(20, 30) Print a(b) Next b Print ＂最小值是:＂ & ProcMin(a) End ...
@史苇1482：求VB简单代码一个 -
茅舍19287444523…… 简单点的一个按钮两个TEXTBOX Private Sub Command1_Click() Dim sum As Long Dim n As Integer Dim i As Integer n = Val(Text1.Text) For i = 1 To n sum = sum + i Next i Text2.Text = sum End Sub 或者一个按钮一个TEXTBOX,用到...
@史苇1482：VB简单编程 -
茅舍19287444523…… Private Sub Command1_Click() Dim a(10) As Integer Me.Cls For i = 1 To 10 a(i) = Rnd() * 100 Next For i = 1 To 10 Print a(i) Next Print ＂排序后:＂ For i = 1 To 10 For j = 1 To 10 If a(i) < a(j) Then a(i) = a(i) + a(j) a(j) = a(i) - a(j) a(i) = a(i) - a(j) End If Next Next For i = 1 To 10 Print a(i) Next End Sub
@史苇1482：用简单的C语言编程 -
茅舍19287444523…… #include int CopyFile(char* SrcFile,char* DesFile) { FILE* fp,*fw; long length; long n,cpyfinish; char buf[1024]; if((fp=fopen(SrcFile,＂rb＂))==NULL) { return 1; } fw=fopen(DesFile,＂wb＂); fseek(fp,0L,SEEK_END); length=ftell(fp); rewind(fp); while(...
@史苇1482：求vb简单的代码.
茅舍19287444523…… 兄弟:按你的描述有两种理解:第一种:更改字体颜色:Private Sub Option1_Click()Label1.ForeColor = RGB(250, 250, 0) '黄色End SubPrivate Sub Option2_Click()Label1.ForeColor = RGB(0, 0, 255) '蓝色End SubPrivate Sub Option3_Click()...
