编程图案题
❶ 几个vb编程题（图形操作）
1.在form中加入如下代码，在窗体上添加两个按钮command1,command2和一个picturebox名为picture1。Const Pi = 2 * 3.14
Private Sub Command1_Click()
Dim x As Single, y As Single, α, r As Single
Picture1.Scale (-4, 4)-(4, -4)
Picture1.Line (0, 4)-(0, -4)
Picture1.Line (4, 0)-(-4, 0)
r = 4
For α = 0 To Pi Step 0.01y = r * Cos(4 * α) * Sin(2 * α)
x = r * Cos(4 * α) * Cos(4 * α)
Picture1.PSet (x, y)
NextEnd SubPrivate Sub Command2_Click()
Unload Me
End Sub
2.在form中加入如下代码，在窗体上添加两个按钮command1,command2和一个picturebox名为picture1。Const Pi = 2 * 3.14
Private Sub Command1_Click()
Dim x As Single, y As Single, α, r As Single
Dim n, i As Integer
Picture1.Scale (-4, 4)-(4, -4)
r = 3
For α = 0 To Pi Step 0.01y = r * Sin(α)
x = r * Cos(α)
Picture1.PSet (x, y)
Next
n = InputBox("请输入等分数并且必须为正整数：")
If n Mod 2 = 1 Then
For i = 0 To (n + 1) / 2
y = r * Sin(i * Pi / n)
x = r * Cos(i * Pi / n)
Picture1.Line (x, y)-(-x, -y)
Next
Else
For i = 0 To n / 2
y = r * Sin(i * Pi / n)
x = r * Cos(i * Pi / n)
Picture1.Line (x, y)-(-x, -y)
Next
End IfEnd SubPrivate Sub Command2_Click()
Picture1.Cls
End Sub 3.在form中添加如下代码，并添加一个command1按钮和一个picturebox控件名为picture1Private Sub Command1_Click()
Dim i As Integer
Dim a(19) As Integer
Form1.AutoRedraw = True
Randomize Timer
i = 0
c = False
Do While i < 20
b = Int(Rnd * 40) + 1
For j = i To 0
If a(i) = b Then c = True
Next j
If Not c Then
a(i) = b
i = i + 1
c = False
End If
Loop Picture1.Scale (-50, 50)-(50, -50)
For i = 0 To 19
Picture1.DrawWidth = (i Mod 5) + 1
Picture1.ForeColor = i
If i < 19 Then
Picture1.Line (a(i), a(i + 1))-(-a(i), -a(i + 1)), ColorGetByRndValue
Else
Picture1.Line (a(i), a(0))-(-a(i), -a(0)), ColorGetByRndValue
End If
Next
End Sub Function ColorGetByRndValue() As Long
Dim tOutLong As Long
Dim tColorCount As Long
Dim tColorValue As Long
tColorCount = 2 ^ 24
tColorValue = Rnd * tColorCount
tOutLong = CLng(Rnd * tColorCount)
ColorGetByRndValue = tOutLong
End Function
❷ 三道简单的编程题
不知道你学的是什么语言，我是学C的，先把源程序先贴出来，如果你看不懂，可以再补充提问，我再把方法告诉你！
1.
#include<stdio.h>
#include<conio.h>
main()
{
int a,b,c,d,m,in,out;
scanf("%d%d%d%d",&a,&b,&c,&d);
m=2.5*a+1.8*b+2*c+1.6*d;
printf("%d\n",m);//输出应付钱数
scanf("%d",&in);
out=in-m;
printf("%d\n",out);//输出应找的钱数
getch();
}
2.
#include<stdio.h>
#include<conio.h>
main()
{
char c1,c2,c3,c4,c5;
scanf("%c%c%c%c%c",&c1,&c2,&c3,&c4,&c5);
c1=c1+4;
c2=c2+4;
c3=c3+4;
c4=c4+4;
c5=c5+4;
printf("%c%c%c%c%c\n",c1,c2,c3,c4,c5);
getch();
}
第三题的图案没有显示出来，不知道“中”有多大，你只要按照它的形状打印就可以了
❸ C语言编程题 哪位大神帮忙看看怎么做 输出以下图案
as3：核心程序
//var：定义变量
//trace：测试时简单输出
方法1：
func1();
function func1(n:uint=5){
var arr:Array=[];
for(var i:uint=0;i<2*n+1;i++){
arr.push([])
for(var j:uint=0;j<2*n+1;j++){
arr[i]+=Math.abs(j-n)<=Math.abs(i-n)?"*":" "}
trace(arr[i])}}
方法2：
function func2(n:uint=5){
for(var i:uint=0,str:String;i<2*n+1;i++){
str="";
for(var j:uint=0;j<2*n+1;j++){
str+=Math.abs(j-n)<=Math.abs(i-n)?"*":" "}
trace(str)}}
