求VB编程 ：输出100~200间所有不能被3整除的数并求和.

郁闷

/>
import java.util.Calendar;
import java.util.Scanner;

public class Li
{
public static void main(String[] args)
{
Scanner scan = new Scanner(System.in);
System.out.println("给定一个年份y和一个整数d");
int y = scan.nextInt();
int d = scan.nextInt();
scan.close();
Calendar calendar = Calendar.getInstance();
calendar.set(y, 0, d);
System.out.println(calendar.get(Calendar.MONTH) + 1);
System.out.println(calendar.get(Calendar.DATE));
}

}

//VC++ 2005调试通过!
#include
#include
using namespace std;
int prime(int m)
{
int i,n;
if(m==1)return 0;
n=(int)sqrt((double)m);
for(i=2;i

(1)8
(2)false
(3)54
(4)true
(5)false
(6)'
(7)false
(8)M
succ是求后继,可用于整形、枚举等,比如succ(15)=16,相当于inc(15).ord是求字符的asiil码值.pred求前继,与succ相反.Chr求ascii码的对应字符,这个ASCII码是个1-127的整数.odd判断一个数是否为奇数,是奇数就返回TRUE.

s=0
i=1
do while .T.
P= ( 1/(i*(i+1)* )
s=s+1/p
if 1/p

解题思路：细胞分化是指在个体发育中，由一个或一种细胞增殖产生的后代，在形态、结构和生理功能上发生稳定性差异的过程．细胞分化是一种持久性的变化，一般来说，分化的细胞将一直保持分化后的状态，直到死亡．
细胞的全能性是指已分化的细胞仍然具有发育成完整个体的潜能．

（1）逆转录是由RNA为模板合成DNA过程，逆转录病毒的遗传物质是RNA．
（2）根据题意，iPS细胞可以产生出机体内所有种类的细胞，说明细胞具有全能性，细胞分化是指由一个或一种细胞经细胞分裂产生的后代，在形态结构和生理功能上逐渐发生稳定性差异的过程．由iPS细胞产生其他种类细胞的过程称为全能性．
（3）癌细胞的主要特征是恶性增殖．而iPS细胞的增殖难以控制，说明了具有癌细胞的恶性增殖的特征．产生的可能的原因是逆转录病毒含有病毒癌基因以及致癌有关的核酸序列，将其基因组重新编排整合进入小鼠的纤维细胞中，诱发细胞癌变．
故答案为：
（1）RNA
（2）高度分化的动物细胞具有全能性 细胞分化
（3）癌 逆转录病毒含有病毒癌基因以及致癌有关的核酸序列，可通过感染小鼠的纤维母细胞，将其基因组整合进入小鼠的纤维母细胞中，将其基因组整合进入小鼠的纤维细胞中，诱发细胞癌变

点评：
本题考点： 胚胎干细胞的研究与应用．

考点点评： 本题考查胚胎干细胞相关知识，意在考查考生识记所列知识点，并能运用所学知识做出合理的判断或得出正确的结论的能力．

#include
#include
int main()
{
int i;
int a,b,c,d;
int w,x,y;
int s;
for(i=1000;i

1. DATASEGMENT ；定义数据段 X DB 32,-43,76,95,-1 Y DB -78,127,-128,-125,88 S DB 5 DUP(?)DATA ENDSCODE SEGMENT ；定义代码段 ASSUME CS: CODE, DS: DATASTART: MOV AX,DATA ；数据段初始化 MOV DS,AX MOV CL,5 MOV BX,0NEXT MOV AL,X[BX] ADD AL,Y[BX] MOV S[BX],AL INC BX DEC CL JNZ NEXT MOV AH,4CH ；返回DOS INT 21HCODE ENDS ；代码段结束 END START ；程序结束
2.C:masm>MASM TEST3;C:masm>LINK TEST3;C:masm>DEBUG TEST3.EXE
其中TEST3为源程序的名字
3
数据段的位置：00000H~0000EH,
数据段的大小：0000FH个字节
代码段的位置：00010H~0002EH,
代码段的大小：0001FH个字节
希望能帮到你哦~

**已知圆柱体体积公式为：V=π*R*R*H,若已知R=3.5,H=10,求圆柱体体积
clear
set talk off
v=0
**V=π*R*R*H
V=3.1415926*3.5*3.5*10
"圆柱体积为：",V
结果为：384.8450935

第一个
#include
int main()
{
int x,f(x);
printf("please scanf xn");
scanf("%d",&x);
if(x>0)
f(x)==1;
else if(x==0)
f(x)==0;
else f(x)==-1;
printf("%dn",f(x));
return 0;
}

k=0
for i=300 to 400
if i%3=0 and i%50
k=k+1
endif
next

用C语言写的,如果追求算法的话要多用几个临时变量,也不是很难的.
double delt = b * b - 4 * a * c
if (delt > 0){
printf("x1=%lf x2=%lfn",(-b + sqrt(delt) / 2 / a,(-b - sqrt(delt) / 2 / a);
} else if (delt == 0){
printf("x1=x2=%lfn",(double)-b / 2 / a);
} else {
printf("x1=%lf+&lfi x2=%lf-&lfin",(double)-b / 2 / a,sqrt(-delt),(double)-b / 2 / a,sqrt(-delt));
}

确认 a>b>c 这些是在英文半角状态下输入的.
CASE a>b adn b>c试下.

377127963

只是一段标签
没有逻辑处理在里面
有意义的只有一个key值被设定了
其他都没有实际意义.

已发至邮箱.
（字数补丁补丁补丁补丁补丁补丁补丁补丁补丁补丁补丁补丁补丁补丁补丁补丁补丁)

把前面的标号都去掉
那几句是小规模TSP问题的一个充分条件

f=H/w*(
(exp(l*w/(2*H))+exp(-l*w/(2*H)))/2
*sqrt(
1+(h*/
(2*H/w*((exp(l*w/(2*H))+exp(-l*w/(2*H)))/2))^2))
(e^x+e^(-x))/2,x=l*w/(2*H)
0.5*%e^(0.5*l*w/H)+0.5*%e^-(0.5*l*w/H)
sqrt(
1+(
h/(
2*H/w*(e^x-e^(-x))/2
)
)^2
)
sqrt(
1+(h/l)^2
)
((e^(h/l)-e^(-(h/l)))/2)^(-1)
((e^x-e^(-x))/2)^(-1),x=
h/(
2*H/w*(e^x-e^(-x))/2
)
((0.5*%e^(0.5*l*w/H)+0.5*%e^-(0.5*l*w/H))*sqrt(
1+(
h/(
2*H/w*(e^x-e^(-x))/2
)
)^2
)
-sqrt(
1+(h/l)^2
)
+(((e^(h/l)-e^(-(h/l)))/2)^(-1)-2.0*%e^(1.0*h*w*e^(1.0*h*w*e^(1.0*h*w*e^x/(1.0*e^(2*x)*H-H))/(1.0*H*e^(2.0*h*w*e^x/(1.0*e^(2*x)*H-H))-H))/(1.0*H*e^(2.0*h*w*e^(1.0*h*w*e^x/(1.0*e^(2*x)*H-H))/(1.0*H*e^(2.0*h*w*e^x/(1.0*e^(2*x)*H-H))-H))-H))/(1.0*%e^(2.0*h*w*e^(1.0*h*w*e^(1.0*h*w*e^x/(1.0*e^(2*x)*H-H))/(1.0*H*e^(2.0*h*w*e^x/(1.0*e^(2*x)*H-H))-H))/(1.0*H*e^(2.0*h*w*e^(1.0*h*w*e^x/(1.0*e^(2*x)*H-H))/(1.0*H*e^(2.0*h*w*e^x/(1.0*e^(2*x)*H-H))-H))-H))-1))*h/l)*H/w=f
这是我花了俩小时打出来的
答案你自己找吧
望采纳谢谢!

dim a,b,c as single
a=inputbox("a=")
b=inputbox("b=")
c=inputbox("c=")
if ((a+b)>c and (a+c)>b and (b+c)>a) then
x=(a+b+c)/2
s=sqrt(x*(x-a)*(x-b)*(x-c))
msgbox "s=" & s
end if .

min那句后面要有分号

怎么说呢,这里有个很简单的方法,就是用replace函数,你自己可以试下:

Dim a(1 To 3, 1 To 2) As String
Dim c(1 To 3) As String
Dim d(1 To 3) As String
Dim i As Integer
Dim j As Integer
a(1, 1) = "aa": a(1, 2) = "Jack"
a(2, 1) = "bb": a(2, 2) = "Mike"
a(3, 1) = "cc": a(3, 2) = "Yao"

c(1) = "I am is aa, you is bb, cc is pig too..."
c(2) = "you are aa, I am bb, pig is cc too..."
c(3) = "she is aa, you is bb, cc is pig too..."

For i = 1 To UBound(c)
d(i) = c(i)
For j = 1 To 3
d(i) = Replace(d(i), a(j, 1), a(j, 2))
Next
Debug.Print d(i)
Next


在这里我用的数组是固定维数的,如果无法确定数组上限时,就用动态数组吧,你自己再改下就行了

调试结果:
I am is Jack, you is Mike, Yao is pig too...
you are Jack, I am Mike, pig is Yao too...
she is Jack, you is Mike, Yao is pig too...

int x;
int y;
if(x>10)y=x%y;

Private Sub cmdRanAngle_Click()
Dim dblAngle As double
Dim dblSin As double
'Randomize
dblAngle = dbl((90*ran)+60)
dblSin = sin(dblAngle)
lblScream.Caption = dblAngle
lblAnswer.caption = dblSin
End sub
最简单的方法,楼上都有错.
希望楼主采纳,有VB问题希望可以探讨,QQ827170254

程序如下,希望对你有帮助
#include
#include
void main()
{float pi,a,b;
int i=1;
a=0;
b=1;
while(b>=0.000001)
{
b=1/(float)(i*i);
a+=b;
i++;}
pi=sqrt(6*a);
printf("%fn",pi);
}

#include
main()
{
x09int a,b,c,d;
x09int sum,i;
x09printf("输入一个四位数n");
x09scanf("%d",&i);
x09a=i/1000;
x09b=(i/10)%10;
x09c=(i/100)%10;
x09d=i%10;
x09sum=a+b+c+d;
x09printf("%dn",sum);
}

public static void main(String args[]){
int s,m,t;
for(int a = 1;a

解题思路：根据框图为直到型循环结构的程序框图，利用DOLOOP语句写出判断框对应的语句．

由框图知：框图为直到型循环结构的程序框图，
∴判断框对应的语句为：
LOOP While y＞2x-1．
故答案为：y＞2x-1．

点评：
本题考点： 程序框图．

考点点评： 本题考查的知识点是伪代码，其中熟练掌握当型循环和直到型循环，结构上的区别和联系是解答本题的关键．

呵呵,智能天线啊.
不过这个没给参数别人没法给你编啊,你可以找论文作者要程序,前提是人家愿意给你.
波束成型其实就是些向量相乘,程序不会太难,关键是看懂算法,搞清楚物理意义啊.

i = i + x 是计算机语法,使 i 的值加 x（也叫自增 x）.
（它其实是先计算 i + x 的值存入寄存器R,再执行 i = R 把R赋值给 i）.
简单说,i = i + 1 就是让 i 增大 1,仅此而已.

I am in charge of the programme of "traffic lights design" in the curriculum design.

噗= =
这么多
陈先生,销售经理XYZ公司要列印成本价所有物品上他的店铺.然而,他想加密价格,只有他的职员都不能明白它的意思.
你已经被要求编写一个程序,可以转换成数字0到9和小数点其他ASCII字符.程序应当促使用户输入转换为每个的数量和小数点其他ASCII字符.转换特性应该成为一个独特的人,不得有空间.
一旦转换的角色所被接受,就应该不断提示用户输入成本的价格,系统将打印加密的价格.程序应该终止当用户进入负值成本的价格.(注:印刷的加密的成本价格在物品将由另一种系统.)
下面是一个例子输出:
进入10 ASCII字符来代替数字0到9:
0123456789.
happybirthd
INVAILD转换字符.请再试一试.
0123456789.
specialty12
接受了!!!
入户费价格:22.80
加密的成本价ee2ys =
入户费价格:1392
加密的成本价pc1e =
入户费价格:- 1
感谢您使用本系统!
END-OF-PAPER

SET TALK OFF
N=0 &N记载满足条件的整数的个数
K=10 &k为满足条件的整数
DO WHILE K<=100
IF MOD(k,17)=INT(k/5 ) &后部分需要加一个取整函数.
?k
N=N+1
ENDIF
k=k+1 &如果不增加此行,则K恒等于10,恒小于100,将列循环.
ENDDO
? n
RETURN

函数就是一个量随着另一个量变化而变化．”一个量”就是自变量,”另一个量”就是他的函数.如Y＝3X,Y就是随着X的变化而变化.Y就是X的函数.
函数是一种抽象的概念,大部分是在实际应用中,至于他的意思知道就可以,不用专了.

#include
main()
{
int i=0;
printf("100以内能被3整除的但不能被7整除的数:n");
for(i=0;i

3、整型的类型符是___integer____。
4、将p=3.14定义为常量，语句为______const pi=3.14______________。
5、表达式193*3^3/2.4的值是___0________。
6、与数学式子3b(34+a)对应的vb的表达式是__3*b*(34+a)___。
7、函数Int(Rnd()*11)+10的值的范围是_____[10,21]_______。
8、用下面的语句定义的数组Dim A(-3To 5,3) As Integer As Integer
的元素个数是______18_____。


x=InputBox(_"请输入学号"_,_____vbOKCancel___,10001)

11、以下程序运行后，单击窗体时，显示的结果是 6 。
Private Sub Form_Click()
Dimb as integer
b=3
Call mysub(b)
Printb
End Sub
Private Sub mysub(y)
K=y
y=1
For j = 1 To k
y=y * j
Next j
End Sub
12、阅读程序，写出结果___A= 13______
Private subform_click()
A=10:S=10
DO
S = S + A
A = A +3
Loop WhileA>30
Print “A=”；A
End Su

题目没写明白：
没说清array里是所有人的成绩还是只这几个人的；
没说清是所有人都加5分还是只是低于80的加；
没说清总分是所有人的还是只这几个人的、是加分后的还是加分前的；
只好按我的理解来写：
array里可能是全班人的成绩（比如20个人）
只是给不够80分人的加5分、并且只显示出这些人加分后的成绩
总分是所有人调整后的分数和
另外注意程序是把所有低于80分的都处理（而不是数7个完事）
程序如下：
students equ 20
.model small
.stack 2048
.data
array db 100,99,88,77,66,90,80,70,60,40,20,91,95,96,79,76,55,99,100,88
new db students dup (?)
sum dw 0
crlf db 13,10,36
txt db 'SUMMARY OF CLASS: $'
.code
main: mov ax,seg array
mov ds,ax
mov es,ax
mov si,offset array ;将使用lodsb从array中读入分数（由ds:si定位）
mov di,offset new ;并按要求将新分数存至new中（由es:di定位）
mov cx,students ;学生人数即循环次数
cld ;为lodsb/stosb指令清除方向标志
mov bx,1 ;为输出美观，用bx当学号吧
lp: mov dl,'(' ;这段输出学号，学号两边用括号扩起来
call putc
push bx ;学号
call print
mov dl,')'
call putc
mov dl,9 ;用制表符分开
call putc
lodsb ;从array数组读一个分数（字节型数据）
xor ah,ah ;ah清零，算总分时是要加上高8位的

cmp al,80 ;是否高于80分
jae above80 ;大于或等于80分的跳过
add al,5 ;低于80的加5分
mov dl,'*' ;先输出一个星号表示该成绩是调整后的成绩
call putc
above80: stosb ;所有人的最终成绩存回new数组
add sum,ax ;最终成绩加到总分里
push ax ;输出该生最终成绩
call print
mov dx,offset crlf ;回车换行
call puts
inc bx ;假装学号加1
loop lp ;循环
call puts ;再换行一下
mov dx,offset txt ;输出全班总分的标题
call puts
mov ax,sum
push ax
call print ;输出总分
mov dx,offset crlf ;回车换行
call puts
mov ah,4ch ;程序结束
int 21h

print proc near
mov bp,sp
push ax
push bx
push cx
push dx
mov ax,[bp+2]
call printax
pop dx
pop cx
pop bx
pop ax
ret 2
print endp
;以10进制输出ax中的无符号整数
printax proc
mov bx,10 ;bx是除数
or ax,ax ;是0则直接输出
jnz @f
mov dl,'0'
call putc
ret
@@: xor dx,dx
div bx
mov cx,ax
or cx,dx ;若商与余数都为0则结束递归
jz @f
push dx ;留存DX中的余数以在递归后输出
call @b ;递归
pop dx ;从最高位开始恢复余数
add dl,'0'
call putc
@@: ret
printax endp
putc proc
push ax
mov ah,2
int 21h
pop ax
ret
putc endp
puts proc
push ax
mov ah,9
int 21h
pop ax
ret
puts endp
end main
执行结果：
(1) 100
(2) 99
(3) 88
(4) *82
(5) *71
(6) 90
(7) 80
(8) *75
(9) *65
(10) *45
(11) *25
(12) 91
(13) 95
(14) 96
(15) *84
(16) *81
(17) *60
(18) 99
(19) 100
(20) 88
SUMMARY OF CLASS: 1614

Private Sub Command1_Click()
Dim x,y,z,a,b As Integer
For a = 10 To 31 '9的平方是2位数,所以从10开始,32的平方是4位数,所以到31为止
b = a * a
x = b 100
y = (b - x * 100) 10
z = b - 100 * x - 10 * y
If x = y Or x = z Or y = z Then Print b
Next
End Su

需要一点方法与技巧的!

#include
void Insert(char*str1,char*str2,int n)
{
int len1=strlen(str1);
int len2=strlen(str2);
memmove(str1+n+len2,str1+n,len1-n);
memcpy(str1+n,str2,len2);
}void main()
{
char str1[30]="aaaabbbb";
char str2[]="ccdd";
Insert(str1,str2,4);
}

Private Sub Command1_Click()
Dim a As Long
Dim i As Long
Dim s As Boolean
s = True
a = InputBox("请输入一个自然数","输入")
'--------以下为判断自然数
If Not IsNumeric(a) Then Exit Sub '判断输入的是否是数字
If Fix(a) a Then Exit Sub '判断是否为整数
If a < 0 Then Exit Sub '判断是否小于0
'--------以上为判断自然数
Do While s
i = i + 1
If Fix(Sqr(i + a)) = Sqr(i + a) Then
If i - a > 0 Then
If Fix(Sqr(Abs(i - a))) = Sqr(Abs(i - a)) Then s = False
End If
End If
Loop
Print i
End Su

#include
using namespace std;
int NumRoot(int n) //求数根算法
{
int sum = 0; //n的各个数位之和为sum
while (n != 0) //循环对n取余即可分离各个数位
{
sum = sum + n%10;
n = n/10;
}
if (sum > 9) //如果sum为两位数,还要继续求数根
return NumRoot(sum);
return sum;
}
int main()
{
int n;
coutn;
cout

/>#include"stdio.h"
main()
{
int j,i,k=0;
for(j=6;j<1001;j++)
{
for(i=1;i<=j/2;i++)if(j%i==0)k+=i;
if(j==k)
{
printf("%4d its factors are ",k);
for(i=1;i<=j/2;i++)
if(j%i==0)printf("%d,",i);printf("b n");
}
k=0;
}
getch()();
}

这道题是哥德巴赫猜想的欧拉版本,或者称为“强哥德巴赫猜想”或“关于偶数的哥德巴赫猜想”. 这个猜想至今还无人能证明是对是错,所以根本就不可能编辑成程序.

Mathematica代码：
c = Input["请输入长方形的长"];
k = Input["请输入长方形的宽"];
s = c*k (*面积*)
z = 2*(c + k) (*周长*)
j = Sqrt[c^2 + k^2] (*对角线的长*)

对

这个可以用一个循环来做,或者用递归,这个题目的主要方法就是算出来单个袋子有多少个花生.解决了这个就好解决了.
单个袋子的花生数目计算函数如下：

public int peaNuts(int n){

int peanuts=1;

for(int i=1;i