level 1
本人刚开始学QB,希望大家帮我解答以下题目,谢谢大家。以下程序用循环语句来做打印图形。打印0~2π之间的正弦曲线。要求每隔10°打一个“*”,图形尽量安排在屏幕的中央编程:在下面的()内填入一个相同数字使等式成立。( )3×6528=3( )×8256所谓“水仙花数”是指一个三位数,其各位数字的立方和等于该数本身。例如:1^3+5^3
+3
^3=153,编程求100~999之间的所有“水仙花数”设计一个能将十进制数转换成二进制数的程序
2006年05月01日 09点05分
1
level 1
ClsConst pi = 3.14159For x = 0 To 2 * pi Step pi / 18Print Int(x * 180 / (2 * pi) + 0.5);Print Tab(40 + 20 * Sin(x)); "*"Next x
2006年06月04日 15点06分
2
level 1
编程:在下面的()内填入一个相同数字使等式成立。 ( )3×6528=3( )×8256 For i = 0 To 9For j = 0 To 9If (i * 10 + 3) * 6528 = (30 + j) * 8256 Then a = Str$(i): b = Str$(j): Print LTrim(a) + "3*6528="; "3" + LTrim$(b) + "*8256 "End IfNext j, i“水仙花数”ClsFor i = 100 To 999a = i \ (10 ^ 2) Mod 10b = i \ 10 Mod 10c = i Mod 10d = a ^ 3 + b ^ 3 + c ^ 3 = iIf d = -1 Then Print iNext
2006年06月04日 15点06分
3