包含vb.net考试多选题的词条
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
网页名称：包含vb.net考试多选题的词条
网站网址：http://cdiso.cn/article/doschpj.html
