在Text1中输入正整数n,将其转化为二进制数c,通过Text2输出
你用什么做啊?C++?java?Qt?
Private Sub Command1_Click()
Dim T1 As Integer '文本框1的数字
Dim T2 As Integer '文本框2的数字
Dim Tm As Integer '临时数字
Dim T3 As String '返回进制值
Dim T4 As String '进制表示字符串
T1 = Int(Text1.Text)
T2 = Int(Text2.Text)
T3 = ""
T4 = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" '当进制少于10时,用0-9这10个数字,当进制大于10时用AB……
Do While T1 >= T2
T3 = Mid(T4, (T1 Mod T2) + 1, 1) & T3
Tm = (T1 - (T1 Mod T2)) / T2
T1 = Tm
Loop
T3 = Mid(T4, T1 + 1, 1) & T3
Text3.Text = T3
End Sub
Dim n As String, h As String, i As Integer, c As String
n = Trim(Text1.Text)
If Not (IsNumeric(n) And Val(n) > 0 And Int(n) = Val(n)) Then '判断n非数字、非正数、非整数情况
MsgBox "输入数字符n非正整数,请确认退出!", vbOKOnly
Exit Sub
End If
h = Hex(Val(n)) '将n转换成16进制
c = ""
For i = 1 To Len(h)
c = c & Hex2Bin(Mid(h, i, 1))
Next
Print c
End Sub
Function Hex2Bin(ByVal str As String) '自定义函数16进制转换成2进制
Select Case UCase(str)
Case "0": Hex2Bin = "0000"
Case "1": Hex2Bin = "0001"
Case "2": Hex2Bin = "0010"
Case "3": Hex2Bin = "0011"
Case "4": Hex2Bin = "0100"
Case "5": Hex2Bin = "0101"
Case "6": Hex2Bin = "0110"
Case "7": Hex2Bin = "0111"
Case "8": Hex2Bin = "1000"
Case "9": Hex2Bin = "1001"
Case "A": Hex2Bin = "1011"
Case "B": Hex2Bin = "1100"
Case "C": Hex2Bin = "1101"
Case "D": Hex2Bin = "1110"
Case "E": Hex2Bin = "1111"
End Select
End Function
皇后问题。在一个国际象棋棋盘上,放置8个皇后,使她们相互之间不能进攻(只要在一条直线上就不可,即在每一横列竖列斜列只有一个皇后)。求出所有布局。
program eight;
var a:array [1..8] of integer;
b,c,d:array [-7..16] of integer;
t,i,j,k:integer;
procedure print;
begin
t:=t+1;
write(t,' ');
for k:=1 to 8 do write(a[k],' ');
writeln;
end;
procedure try(i:integer);
var j:integer;
begin
for j:=1 to 8 do
if (b[j]=0) and (c[i+j]=0) and (d[i-j]=0) then
begin
a[i]:=j;
b[j]:=1;
c[i+j]:=1;
d[i-j]:=1;
if i<8 then try(i+1)
else print;
b[j]:=0;
c[i+j]:=0;
d[i-j]:=0;
end;
end;
begin
for k:=-7 to 16 do
begin
b[k]:=0;
c[k]:=0;
d[k]:=0;
end;
try(1);
end.
这是深搜的内容
搜索资料:
搜 索 算 法
搜索算法是利用计算机的高性能来有目的的穷举一个问题的部分或所有的可能情况,从而求出问题的解
的一种方法。搜索过程实际上是根据初始条件和扩展规则构造一棵解答树并寻找符合目标状态的节点的过程。
所有的搜索算法从其最终的算法实现上来看,都可以划分成两个部分——控制结构和产生系统,而所有的算
法的优化和改进主要都是通过修改其控制结构来完成的。现在主要对其控制结构进行讨论,因此对其产生系
统作如下约定:
Function ExpendNode(Situation:Tsituation;ExpendWayNo:Integer):TSituation;
表示对给出的节点状态Sitution采用第ExpendWayNo种扩展规则进行扩展,并且返回扩展后的状态。
(本文所采用的算法描述语言为类Pascal。)
第一部分 基本搜索算法
一、回溯算法
回溯算法是所有搜索算法中最为基本的一种算法,其采用了一种“走不通就掉头”思想作为其控制结构,
其相当于采用了先根遍历的方法来构造解答树,可用于找解或所有解以及最优解。具体的算法描述如下:
[非递归算法]
<Type>
Node(节点类型)=Record
Situtation:TSituation(当前节点状态);
Way-NO:Integer(已使用过的扩展规则的数目);
End
<Var>
List(回溯表):Array[1..Max(最大深度)] of Node;
pos(当前扩展节点编号):Integer;
<Init>
List<-0;
pos<-1;
List[1].Situation<-初始状态;
<Main Program>
While (pos>0(有路可走)) and ([未达到目标]) do
Begin
If pos>=Max then (数据溢出,跳出主程序);
List[pos].Way-NO:=List[pos].Way-No+1;
If (List[pos].Way-NO<=TotalExpendMethod) then (如果还有没用过的扩展规则)
Begin
If (可以使用当前扩展规则) then
Begin
(用第way条规则扩展当前节点)
List[pos+1].Situation:=ExpendNode(List[pos].Situation,
List[pos].Way-NO);
List[pos+1].Way-NO:=0;
pos:=pos+1;
End-If;
End-If
Else Begin
pos:=pos-1;
End-Else
End-While;
[递归算法]
Procedure BackTrack(Situation:TSituation;deepth:Integer);
Var I :Integer;
Begin
If deepth>Max then (空间达到极限,跳出本过程);
If Situation=Target then (找到目标);
For I:=1 to TotalExpendMethod do
Begin
BackTrack(ExpendNode(Situation,I),deepth+1);
End-For;
End;
范例:一个M*M的棋盘上某一点上有一个马,要求寻找一条从这一点出发不重复的跳完棋盘上所有的点的路线。
评价:回溯算法对空间的消耗较少,当其与分枝定界法一起使用时,对于所求解在解答树中层次较深的问题
有较好的效果。但应避免在后继节点可能与前继节点相同的问题中使用,以免产生循环。
二、深度搜索与广度搜索
深度搜索与广度搜索的控制结构和产生系统很相似,唯一的区别在于对扩展节点选取上。由于其保留了
所有的前继节点,所以在产生后继节点时可以去掉一部分重复的节点,从而提高了搜索效率。这两种算法每
次都扩展一个节点的所有子节点,而不同的是,深度搜索下一次扩展的是本次扩展出来的子节点中的一个,
而广度搜索扩展的则是本次扩展的节点的兄弟节点。在具体实现上为了提高效率,所以采用了不同的数据结构.
[广度搜索]
<Type>
Node(节点类型)=Record
Situtation:TSituation(当前节点状态);
Level:Integer(当前节点深度);
Last :Integer(父节点);
End
<Var>
List(节点表):Array[1..Max(最多节点数)] of Node(节点类型);
open(总节点数):Integer;
close(待扩展节点编号):Integer;
New-S:TSituation;(新节点)
<Init>
List<-0;
open<-1;
close<-0;
List[1].Situation<- 初始状态;
List[1].Level:=1;
List[1].Last:=0;
<Main Program>
While (close<open(还有未扩展节点)) and
(open<Max(空间未用完)) and
(未找到目标节点) do
Begin
close:=close+1;
For I:=1 to TotalExpendMethod do(扩展一层子节点)
Begin
New-S:=ExpendNode(List[close].Situation,I);
If Not (New-S in List) then
(扩展出的节点从未出现过)
Begin
open:=open+1;
List[open].Situation:=New-S;
List[open].Level:=List[close].Level+1;
List[open].Last:=close;
End-If
End-For;
End-While;
[深度搜索]
<Var>
Open:Array[1..Max] of Node;(待扩展节点表)
Close:Array[1..Max] of Node;(已扩展节点表)
openL,closeL:Integer;(表的长度)
New-S:Tsituation;(新状态)
<Init>
Open<-0; Close<-0;
OpenL<-1;CloseL<-0;
Open[1].Situation<- 初始状态;
Open[1].Level<-1;
Open[1].Last<-0;
<Main Program>
While (openL>0) and (closeL<Max) and (openL<Max) do
Begin
closeL:=closeL+1;
Close[closeL]:=Open[openL];
openL:=openL-1;
For I:=1 to TotalExpendMethod do(扩展一层子节点)
Begin
New-S:=ExpendNode(Close[closeL].Situation,I);
If Not (New-S in List) then
(扩展出的节点从未出现过)
Begin
openL:=openL+1;
Open[openL].Situation:=New-S;
Open[openL].Level:=Close[closeL].Level+1;
Open[openL].Last:=closeL;
End-If
End-For;
End;
范例:迷宫问题,求解最短路径和可通路径。
评价:广度搜索是求解最优解的一种较好的方法,在后面将会对其进行进一步的优化。而深度搜索多用于只
要求解,并且解答树中的重复节点较多并且重复较难判断时使用,但往往可以用A*或回溯算法代替。
第二部分 搜索算法的优化
一、双向广度搜索
广度搜索虽然可以得到最优解,但是其空间消耗增长太快。但如果从正反两个方向进行广度搜索,理想
情况下可以减少二分之一的搜索量,从而提高搜索速度。
范例:有N个黑白棋子排成一派,中间任意两个位置有两个连续的空格。每次空格可以与序列中的某两个棋子
交换位置,且两子的次序不变。要求出入长度为length的一个初始状态和一个目标状态,求出最少的
转化步数。
问题分析:该题要求求出最少的转化步数,但如果直接使用广度搜索,很容易产生数据溢出。但如果从初始
状态和目标状态两个方向同时进行扩展,如果两棵解答树在某个节点第一次发生重合,则该节点
所连接的两条路径所拼成的路径就是最优解。
对广度搜索算法的改进:
1。添加一张节点表,作为反向扩展表。
2。在while循环体中在正向扩展代码后加入反向扩展代码,其扩展过程不能与
正向过程共享一个for循环。
3。在正向扩展出一个节点后,需在反向表中查找是否有重合节点。反向扩展时
与之相同。
对双向广度搜索算法的改进:
略微修改一下控制结构,每次while循环时只扩展正反两个方向中节点数目较少的一个,可以使两边的发
展速度保持一定的平衡,从而减少总扩展节点的个数,加快搜索速度。
二、分支定界
分支定界实际上是A*算法的一种雏形,其对于每个扩展出来的节点给出一个预期值,如果这个预期值不
如当前已经搜索出来的结果好的话,则将这个节点(包括其子节点)从解答树中删去,从而达到加快搜索速度
的目的。
范例:在一个商店中购物,设第I种商品的价格为Ci。但商店提供一种折扣,即给出一组商品的组合,如果一
次性购买了这一组商品,则可以享受较优惠的价格。现在给出一张购买清单和商店所提供的折扣清单,
要求利用这些折扣,使所付款最少。
问题分析:显然,折扣使用的顺序与最终结果无关,所以可以先将所有的折扣按折扣率从大到小排序,然后
采用回溯法的控制结构,对每个折扣从其最大可能使用次数向零递减搜索,设A为以打完折扣后优
惠的价格,C为当前未打折扣的商品零售价之和,则其预期值为A+a*C,其中a为下一个折扣的折扣
率。如当前已是最后一个折扣,则a=1。
对回溯算法的改进:
1。添加一个全局变量BestAnswer,记录当前最优解。
2。在每次生成一个节点时,计算其预期值,并与BestAnswer比较。如果不好,则调用回溯过程。
三、A*算法
A*算法中更一般的引入了一个估价函数f,其定义为f=g+h。其中g为到达当前节点的耗费,而h表示对从当
前节点到达目标节点的耗费的估计。其必须满足两个条件:
1。h必须小于等于实际的从当前节点到达目标节点的最小耗费h*。
2。f必须保持单调递增。
A*算法的控制结构与广度搜索的十分类似,只是每次扩展的都是当前待扩展节点中f值最小的一个,如果
扩展出来的节点与已扩展的节点重复,则删去这个节点。如果与待扩展节点重复,如果这个节点的估价函数
值较小,则用其代替原待扩展节点,具体算法描述如下:
范例:一个3*3的棋盘中有1-8八个数字和一个空格,现给出一个初始态和一个目标态,要求利用这个空格,
用最少的步数,使其到达目标态。
问题分析:预期值定义为h=|x-dx|+|y-dy|。
估价函数定义为f=g+h。
<Type>
Node(节点类型)=Record
Situtation:TSituation(当前节点状态);
g:Integer;(到达当前状态的耗费)
h:Integer;(预计的耗费)
f:Real;(估价函数值)
Last:Integer;(父节点)
End
<Var>
List(节点表):Array[1..Max(最多节点数)] of Node(节点类型);
open(总节点数):Integer;
close(待扩展节点编号):Integer;
New-S:Tsituation;(新节点)
<Init>
List<-0;
open<-1;
close<-0;
List[1].Situation<- 初始状态;
<Main Program>
While (close<open(还有未扩展节点)) and
(open<Max(空间未用完)) and
(未找到目标节点) do
Begin
Begin
close:=close+1;
For I:=close+1 to open do (寻找估价函数值最小的节点)
Begin
if List.f<List[close].f then
Begin
交换List和List[close];
End-If;
End-For;
End;
For I:=1 to TotalExpendMethod do(扩展一层子节点)
Begin
New-S:=ExpendNode(List[close].Situation,I)
If Not (New-S in List[1..close]) then
(扩展出的节点未与已扩展的节点重复)
Begin
If Not (New-S in List[close+1..open]) then
(扩展出的节点未与待扩展的节点重复)
Begin
open:=open+1;
List[open].Situation:=New-S;
List[open].Last:=close;
List[open].g:=List[close].g+cost;
List[open].h:=GetH(List[open].Situation);
List[open].f:=List[open].h+List[open].g;
End-If
Else Begin
If List[close].g+cost+GetH(New-S)<List[same].f then
(扩展出来的节点的估价函数值小于与其相同的节点)
Begin
List[same].Situation:= New-S;
List[same].Last:=close;
List[same].g:=List[close].g+cost;
List[same].h:=GetH(List[open].Situation);
List[same].f:=List[open].h+List[open].g;
End-If;
End-Else;
End-If
End-For;
End-While;
对A*算法的改进--分阶段A*:
当A*算法出现数据溢出时,从待扩展节点中取出若干个估价函数值较小的节点,然后放弃其余的待扩展
节点,从而可以使搜索进一步的进行下去。
第三部分 搜索与动态规划的结合
例1. 有一个棋子,其1、6面2、4面3、5面相对。现给出一个M*N的棋盘,棋子起初处于(1,1)点,摆放状态
给定,现在要求用最少的步数从(1,1)点翻滚到(M,N)点,并且1面向上。
分析:这道题目用简单的搜索很容易发生超时,特别当M、N较大时。所以可以考虑使用动态规划来解题。对
于一个棋子,其总共只有24种状态。在(1,1)点时,其向右翻滚至(2,1)点,向上翻滚至(1,2)点。而
任意(I,J)点的状态是由(I-1,J)和(I,J-1)点状态推导出来的。所以如果规定棋子只能向上
和向右翻滚,则可以用动态规划的方法将到达(M,N)点的所有可能的状态推导出来。显然,从(1,
1)到达(N,M)这些状态的路径时最优的。如果这些状态中有1面向上的,则已求出解。如果没有,
则可以从(M,N)点开始广度搜索,以(M,N)点的状态组作为初始状态,每扩展一步时,检查当前
所得的状态组是否有状态与到达格子的状态组中的状态相同,如果有,则由动态规划的最优性和广度
搜索的最优性可以保证已求出最优解。
例2.给出一个正整数n,有基本元素a,要求通过最少次数的乘法,求出a^n。
分析:思路一:这道题从题面上来看非常象一道动态规划题,a^n=a^x1*a^x2。在保证a^x1和a^x2的最优性之
后,a^n的最优性应该得到保证。但是仔细分析后可以发现,a^x1与a^x2的乘法过程中可能有
一部分的重复,所以在计算a^n时要减去其重复部分。由于重复部分的计算较繁琐,所以可以
将其化为一组展开计算。描述如下:
I:=n;(拆分a^n)
split[n]:=x1;(分解方案)
Used[n]:=True;(在乘法过程中出现的数字)
Repeat(不断分解数字)
Used[I-split[I]]:=True;
Used[split[I]]:=True;
Dec(I);
While (I>1) and (not Used[I]) do dec(I);
Until I=1;
For I:=n downto 1 do(计算总的乘法次数)
If Used[I] then count:=count+1;
Result:=count;(返回乘法次数)
思路二:通过对思路一的输出结果的分析可以发现一个规律:
a^19=a^1*a^18
a^18=a^2*a^16
a^16=a^8*a^8
a^8=a^4*a^4
a^4=a^2*a^2
a^2=a*a
对于一个n,先构造一个最接近的2^k,然后利用在构造过程中产生的2^I,对n-2^k进行二进制分解,
可以得出解。对次数的计算的描述如下:
count:=0;
Repeat
If n mod 2 = 0 then count:=count+1
Else count:=count+2;
n:=n div 2;
Until n=1;
Result:=count;
反思:观察下列数据:
a^15 a^23 a^27
Cost:5 Cost:6 Cost:6
a^2=a^1*a^1 a^2=a^1*a^1 a^2=a^1*a^1
a^3=a^1*a^2 a^3=a^1*a^2 a^3=a^1*a^2
a^6=a^3*a^3 a^5=a^2*a^3 a^6=a^3*a^3
a^12=a^6*a^6 a^10=a^5*a^5 a^12=a^6*a^6
a^15=a^3*a^12 a^20=a^10*a^10 a^24=a^12*a^12
a^23=a^3*a^20 a^27=a^3*a^24
这些数据都没有采用思路二种的分解方法,而都优于思路二中所给出的解。但是经过实测,思路一二
的所有的解的情况相同,而却得不出以上数据中的解。经过对a^2-a^15的数据的完全分析,发现对于
一个a^n,存在多个分解方法都可以得出最优解,而在思路一中只保留了一组分解方式。例如对于a^6
只保留了a^2*a^4,从而使a^3*a^3这条路中断,以至采用思路一的算法时无法得出正确的耗费值,从
而丢失了最优解。所以在计算a^n=a^x1*a^x2的重复时,要引入一个搜索过程。例如:a^15=a^3*a^12,
a^12=a^6*a^6,而a^6=a^3*a^3。如果采用了a^6=a^2*a^4,则必须多用一步。
<Type>
Link=^Node; (使用链表结构纪录所有的可能解)
Node=Record
split:Integer;
next :Link;
End;
<Var>
Solution:Array[1..1000] of Link; (对于a^n的所有可能解)
Cost :Array[1..1000] of Integer; (解的代价)
max :Integer; (推算的上界)
<Main Program>
Procedure GetSolution;
Var i,j :Integer;
min,c:Integer;
count:Integer;
temp,tail:Link;
plan :Array[1..500] of Integer;
nUsed:Array[1..1000] of Boolean;
Procedure GetCost(From,Cost:Integer); (搜索计算最优解)
Var temp:Link;
a,b :Boolean;
i :Integer;
Begin
If Cost>c then Exit; (剪枝)
If From=1 then (递归终结条件)
Begin
If Cost<c then c:=Cost;
Exit;
End;
temp:=Solution[From];
While temp<>NIL do (搜索主体)
Begin
a:=nUsed[temp^.Split];
If not a then inc(cost);
nUsed[temp^.Split]:=True;
b:=nUsed[From - temp^.Split];
If not b then inc(cost);
nUsed[From-temp^.Split]:=True;
i:=From-1;
While (i>1) and (not nUsed) do dec(i);
GetCost(i,Cost);
If not a then dec(cost);
If not b then dec(cost);
nUsed[From-temp^.Split]:=b;
nUsed[temp^.Split]:=a;
temp:=temp^.next;
End;
End;
Begin
For i:=2 to Max do(动态规划计算所有解)
Begin
count:=0;
min:=32767;
For j:=1 to i div 2 do (将I分解为I-J和J)
Begin
c:=32767;
FillChar(nUsed,Sizeof(nUsed),0);
nUsed[j]:=True;nUsed[i-j]:=True;
If j=i-j then GetCost(i-j,1)
Else GetCost(i-j,2);
If c<min then
Begin
count:=1;
min:=c;
plan[count]:=j;
End
Else if c=min then
Begin
inc(count);
plan[count]:=j;
End;
End;
new(solution); (构造解答链表)
solution^.split:=plan[1];
solution^.next:=NIL;
Cost:=min;
tail:=solution;
For j:=2 to count do
Begin
new(temp);
temp^.split:=plan[j];
temp^.next:=NIL;
tail^.next:=temp;
tail:=temp;
End;
End;
End;
背包问题:
一个旅行者有一个最多能用m公斤的背包,现在有n种物品,每件的重量分别是W1,W2,...,Wn,
每件的价值分别为C1,C2,...,Cn.若的每种物品的件数足够多.
求旅行者能获得的最大总价值。
本问题的数学模型如下:
设 f(x)表示重量不超过x公斤的最大价值,
则 f(x)=max 当x>=w[i] 1<=i<=n
可使用递归法解决问题程序如下:
program knapsack04;
const maxm=200;maxn=30;
type ar=array[0..maxn] of integer;
var m,n,j,i,t:integer;
c,w:ar;
function f(x:integer):integer;
var i,t,m:integer;
begin
if x=0 then f:=0 else
begin
t:=-1;
for i:=1 to n do
begin
if x>=w[i] then m:=f(x-i)+c[i];
if m>t then t:=m;
end;
f:=t;
end;
end;
begin
readln(m,n);
for i:= 1 to n do
readln(w[i],c[i]);
writeln(f(m));
end.
说明:当m不大时,编程很简单,但当m较大时,容易超时.
4.2 改进的递归法
改进的的递归法的思想还是以空间换时间,这只要将递归函数计算过程中的各个子函数的值保存起来,开辟一个
一维数组即可
程序如下:
program knapsack04;
const maxm=2000;maxn=30;
type ar=array[0..maxn] of integer;
var m,n,j,i,t:integer;
c,w:ar;
p:array[0..maxm] of integer;
function f(x:integer):integer;
var i,t,m:integer;
begin
if p[x]<>-1 then f:=p[x]
else
begin
if x=0 then p[x]:=0 else
begin
t:=-1;
for i:=1 to n do
begin
if x>=w[i] then m:=f(i-w[i])+c[i];
if m>t then t:=m;
end;
p[x]:=t;
end;
f:=p[x];
end;
end;
begin
readln(m,n);
for i:= 1 to n do
readln(w[i],c[i]);
fillchar(p,sizeof(p),-1);
writeln(f(m));
end.
VB 怎样限制Text1输入的为正整数?(排除非数、负数、小数)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then '只允许输入数字(和退格键)If KeyAscii <> 8 Then '退格键 KeyAscii = 0 '撤消输入 End If End If End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)'以下代码是为了防止出现类似于“00123……”的情况 If...
在文本框textBox1中输入一个正整数,单击“判断”按钮,就可以判断输入的...
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim m, i As Long i = 0 m = Val(TextBox1.Text)For i = 2 To m - 1 If (m Mod i) = 0 Then Label1.Text = "这个数不是素数"Exit For En...
设计一个程序,要求在Text1中输入一个两位正整数,单机命令按钮,将这个两 ...
比如两位数12 整除10 就得到十位1 12和10求余数 就得到个位2 这不就可以了么
VB在一个文本框中要求只能输入正整数,而且在0到10范围内。超过范围不...
If IsNumeric(Right(Text1.Text, 1)) = False Or IsNumeric(Left(Text1.Text, 1)) = False Or Val(Text1.Text) > 10 Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)End If If Text1.Text <> "" Then Text1.Text = Val(Text1.Text) '防止十位数输入为0 Text1....
在VB中,在Text1中输入40(度数),选择组合框中的一个项目如sin,单击按钮...
temp = Sin(degree)Case 1 temp = Cos(degree)Case 2 temp = Tan(degree)End Select Text2.Text = Format(temp, "0.000")End Sub Private Sub Form_Load()Combo1.AddItem "sin", 0 Combo1.AddItem "cos", 1 Combo1.AddItem "tan", 2 End Sub 不知道你题目中为什么还提到π,计算正...
vb text1.text和text2.text里没有文字MsgBox "请输入正确的账号和密码...
if text1.text="" and text2.text="" then x=msgbox("请输入正确的账号和密码",vbInformation, "提示")end if vb text1.text或text2.text里没有文字 if text1.text="" or text2.text="" then x=msgbox("请输入正确的账号和密码",vbInformation, "提示")end if 这类需要判断账号、密码...
在文本框text1中输入“123456”,单击“确定”。则在文本框1显示“密码...
神龟虽寿,犹有竟时;腾蛇乘雾,终为土灰.老骥伏枥,志在千里.烈士暮年,
在text1中输入Baisc ,可是我最后的出来仍旧是Basic,可是正确答案是cisaB...
正确答案确实是cisaB,因为s = ch + s这一句,每个字符往前面加的,仔细体会。
1、表单运行后在文本框text1、text2中分别输入2个数值,单击“结果...
a=thisform.textl.value b=thisform.text2.value m=max(a,b)n=min(a,b)thisform.text3.Value= m thisform.text4.Value= n
text1控件中text是什么属性?
text1控件的text属性,text属性是可以用来存放信息的,直接赋值号加内容,操作方法如下:1、首先打开VB软件,新建一个标准EXE,在过程中输入想要设置的控件名称。2、输入后,可以看到该控件所有能用的属性和方法。3、由于界面太小,需要向下拖曳才能看到全部。这样就可以写某个属性等于什么的属性值。4、...
桑费塞奇: Private Sub Command1_Click() Dim n As String, h As String, i As Integer, c As String n = Trim(Text1.Text) If Not (IsNumeric(n) And Val(n) > 0 And Int(n) = Val(n)) Then '判断n非数字、非正数、非整数情况 MsgBox "输入数字符n非正整数,请确...
青冈县18420494835: 输入一个正整数n,将其转换为二进制后输出.要求定义并调用函数dectobin(n),它的功能是输出 - ?
桑费塞奇: void dectobin(int n){ int in = n/2; int out = n%2; if(n == 0){ return ; } dectobin( in); printf("%d",out); }
青冈县18420494835: 这道编程题怎么写程序代码??
桑费塞奇: [分析]1: 在文本框Text1中输入一个正整数,并将其赋值给N. 2:判断N是否是素数,若是素数,则在文本框Text2显示N是素数,结束程序运行.3:若N不是素数则将N增加1,重复上一步骤,直到N是素数为止.private sub command1_click()dim n ...
青冈县18420494835: 用VFP计算问题在文本框Text1中输入一个正整数N,单击“计算”命令按钮,将计算N内(包括N)所有能被3整除的数之和,并显示于文本框Text2中请问这... - ?
桑费塞奇:[答案] 在计算按钮用如下代码: sum=0 FOR i=1 TO thisform.text1.Value sum=IIF(MOD(i,3)=0,sum+i,sum) ENDFOR thisform.text2.Value=sum thisform.text2.Refresh
青冈县18420494835: c#7.编一个程序,输入一个正整数n,把它转换为二进制数,并输出.提示,应该利用数组. - ?
桑费塞奇: 我没调试你自己看看,不行再找我 抱歉没看好题我用c 编的了 main() { int a,b,i=0,j; int c[20];/*为了简单在这定义足够大的数组*/ printf("Enter a number:"); scanf("%d",&a); b=a; while(b>2) { c[i]=b%2; b=b/2; i++; } c[i]=b; printf("%d ...
青冈县18420494835: 这道程序题很么写 - ?
桑费塞奇: #include#include int main() { int var; int sum = 0; int count = 0; int max = 0; int min = -1; for(;;) { printf("pls input:"); scanf("%d", &var); if(varputs("you have input a negative, program will terminate."); break; } if(var > max) max = var; if(min == -1)...
青冈县18420494835: 输入1 个正整数n,将其转换为二进制后输出. - ?
桑费塞奇: 用了递归的方法来实现这个函数.#include< stdio.h > int main(void) { int ri,repeat; int i,n; void dectobin( int n );scanf( "%d", &repeat );for( ri = 1; ri <= repeat; ri++ ) { scanf("%d",&n); dectobin(n); printf("\n"); } } void dectobin( int n ) { if( n > 1 )dectobin( n / 2 );printf( "%d", n % 2 ); }
青冈县18420494835: 高分求VF编程代码 - ?
桑费塞奇: 初始界面:Command1的Click事件代码: n=val(alltrim(thisform.text1.value)) s=0 for i=n-1 to 1 step -1 if i%5=0 s=s+i endif next thisform.text2.value=s 图:
青冈县18420494835: 编写程序用递归法实现将一个整数n转化成字符串 - ?
桑费塞奇: #include int myfun( int n, char*p ) { int i=0 if(n>10) { i = myfun(n/10, p ); } *(p+i) = n%10; i++; return i; } main() { int n; char a[20]; printf( "input n:\n"); scanf("%d",&n); int i=my( n,a); a[i] = '\0'; printf("n=%s\n",a); getch(); }
青冈县18420494835: VB:输入一个正整数N,把它分解成质因子相乘的形式 - ?
桑费塞奇: 需要2个文本框text 和 2个按钮command (一个计算 一个清除) Dim x, a, b, k As String Private Sub Command1_Click() a = Val(Text1.Text) x = 2 If aInt(a) Then If a = 1 Then Text2.Text = "它既不是质数,也不是合数" Else MsgBox "请您先输入...