MAC_VB.NET程序设计语言模拟题

评论 ┆ 举报

让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：国际域名空间、虚拟空间、营销软件、网站建设、云梦网站维护、网站推广。

最佳答案此答案由提问者自己选择，并不代表百度知道知识人的观点

回答：电子9527

新手

4月9日 20:57 一．int jsValue(long n)

{int i,strl,half;

char xy[20];

ltoa(n,xy,10); /*注意这里不能使用itoa()函数，因为n是long 型的*/

strl=strlen(xy);

half=strl/2;

for(i=0;ihalf;i++)

if(xy[i]!=xy[--strl]) break;

if(i=half) return 1;

else return 0;

或者下面的解法：

int jsValue(long n)

{long int s=0,k;

k=n;

while(k)

{ s=s*10+k%10;

k/=10;

}

if(s==n) return 1;

if(s!=n) return 0;

}

}

二．int cton()

{char ch;

int n=0,f=0,n1=0;

while((ch=getchar())='0'||ch='9')

{

n1++;

if(n1=10)

{printf("data is wrong!");return 0;}

}

do

{

n=n*10+ch-'0';}

while((ch=getchar())='0'ch='9');

return n;

}

三，暂时还没想好．

该回答在4月9日 21:28由回答者修改过

揪错 ┆ 评论 ┆ 举报

VB.NET 编程 关于回文数的题目。

在WinForm项目的窗体上添加一个按钮和文本框，然后把下面的代码粘贴上去就可以了。

Public Function lsH(ByVal n As String) As String

Dim s1 As String = ""

Dim s2 As String = ""

Dim i As Integer = 0

Dim j As Integer

If n.Length = 1 Then

Return ("是回文数")

Else

If Tell_JiOu(n.Length) = 1 Then

j = (n.Length + 1) / 2

s1 = Mid(n, 1, j)

Else

j = n.Length / 2 + 1

s1 = Mid(n, 1, j - 1)

End If

For i = n.Length To j Step -1

s2 = s2 + Mid(n, i, 1)

Next

If s1 = s2 Then

Return "是回文数"

Else

Return "不是回文数"

End If

End If

End Function

'判断一个整数的奇偶

Public Function Tell_JiOu(ByVal k As Integer) As Integer

If k Mod 2 = 0 Then

Return 2

Else

Return 1

End If

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button1.Click

Button.Text = lsH(TextBox1.Text)

End Sub

VB.NET经典问题(1)

这个问题看似简单，实际上包含了三个问题：

1. 5/2 的结果是 Double 类型

2. dim aa as Integer = 5/2 将 Double 类型隐式转换为 Integer 类型

3. 转换过程将小数部分 Banker 舍入

因为你这两个算式小数部分都是0.5，所以取最近的偶数 aa = 2，bb = 4