首页 新闻 论坛 群组 Blog 文档 下载 读书 Tag 网摘 搜索 .NET Java 游戏 视频 人才 外包 培训 数据库 书店 程序员
中国软件网
欢迎您:游客 | 登录 注册 帮助
    • 菜菜的我我又来提问了……[咳，别笑我] [无满意答案结贴,结贴人:asppine]
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • asppine
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    • 揭帖率：
    发表于：2008-06-09 14:56:11 楼主
    1、下列代码转为C#形式编写……

    VB.NET code
        Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim a(25) As Integer
        Dim c As Char, Le%, i%, j%, sumc%

        If Asc(e.KeyChar) = 13 Then
            Le = Len(TextBox1.Text)
            For i = 1 To Le
                c = UCase(Mid(TextBox1.Text, i, 1))
                If c >= "A" And c <= "Z" Then
                    j = Asc(c) - Asc("A")
                    a(j) += 1
                End If
            Next

            Label3.Text = ""

            For i = 0 To 25
                If a(i) > 0 Then
                    sumc = sumc + a(i)
                    Label3.Text &= Chr(i + 65) & "=" & a(i) & " "
                End If
            Next
            Label3.Text &= vbCrLf & "共有" & sumc & "个字母"
        End If

    End Sub    Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim a(25) As Integer
        Dim c As Char, Le%, i%, j%, sumc%

        If Asc(e.KeyChar) = 13 Then
            Le = Len(TextBox1.Text)
            For i = 1 To Le
                c = UCase(Mid(TextBox1.Text, i, 1))
                If c >= "A" And c <= "Z" Then
                    j = Asc(c) - Asc("A")
                    a(j) += 1
                End If
            Next

            Label3.Text = ""

            For i = 0 To 25
                If a(i) > 0 Then
                    sumc = sumc + a(i)
                    Label3.Text &= Chr(i + 65) & "=" & a(i) & " "
                End If
            Next
            Label3.Text &= vbCrLf & "共有" & sumc & "个字母"
        End If

    End Sub


    label1.text="输入";
    label2.text="统计";
    textbox1.text="";
    目的：按下ENTER时，统计输入的每个字母的总数及所有字母总数。

    2、弱弱问句，我买了台笔记本，装什么操作系统比较好点？(VISTA?10分)
    100  修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • fuadam
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-06-09 14:58:311楼 得分:0
    装win2003或xp，非装vista就装旗舰版
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • asppine
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-06-09 15:00:392楼 得分:0
    XP我用的很习惯，但据说vista比较适合？也听说2003不好用？其实这是无关紧要的问题，只不过问问，得个答案也行！
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • fuadam
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-06-09 15:07:443楼 得分:0
    不懂vb语法
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • maddemon
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-06-09 15:14:304楼 得分:0
    C# code
    private void TextBox1_KeyPress(object sender, System.Windows.Forms.KeyPressEventArgs e) 
{ 
    int[] a = new int[26]; 
    char c; 
    object Le; 
    object i; 
    object j; 
    object sumc; 
    
    if (Strings.Asc(e.KeyChar) == 13) { 
        Le = Strings.Len(TextBox1.Text); 
        for (i = 1; i <= Le; i++) { 
            c = Strings.UCase(Strings.Mid(TextBox1.Text, i, 1)); 
            if (c >= "A" & c <= "Z") { 
                j = Strings.Asc(c) - Strings.Asc("A"); 
                a(j) += 1; 
            } 
        } 
        
        Label3.Text = ""; 
        
        for (i = 0; i <= 25; i++) { 
            if (a(i) > 0) { 
                sumc = sumc + a(i); 
                Label3.Text // ERROR: Unknown assignment operator ConcatString ; 
            } 
        } 
        Label3.Text // ERROR: Unknown assignment operator ConcatString ; 
    } 
    
} 
private void TextBox1_KeyPress(object sender, System.Windows.Forms.KeyPressEventArgs e) 
{ 
    int[] a = new int[26]; 
    char c; 
    object Le; 
    object i; 
    object j; 
    object sumc; 
    
    if (Strings.Asc(e.KeyChar) == 13) { 
        Le = Strings.Len(TextBox1.Text); 
        for (i = 1; i <= Le; i++) { 
            c = Strings.UCase(Strings.Mid(TextBox1.Text, i, 1)); 
            if (c >= "A" & c <= "Z") { 
                j = Strings.Asc(c) - Strings.Asc("A"); 
                a(j) += 1; 
            } 
        } 
        
        Label3.Text = ""; 
        
        for (i = 0; i <= 25; i++) { 
            if (a(i) > 0) { 
                sumc = sumc + a(i); 
                Label3.Text // ERROR: Unknown assignment operator ConcatString ; 
            } 
        } 
        Label3.Text // ERROR: Unknown assignment operator ConcatString ; 
    } 
    
}


    如果做B/S程序还是用2003比较好点
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • maddemon
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-06-09 15:15:225楼 得分:0
    哈哈 没注意看 转失败了 ^_^ 我用的工具
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • asppine
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-06-09 15:16:416楼 得分:0
    啊？什么失败了？
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • maddemon
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-06-09 15:17:277楼 得分:0
    工具地址：http://labs.developerfusion.co.uk/convert/vb-to-csharp.aspx
    基本上转的差不多
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • asppine
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-06-09 15:22:498楼 得分:0
    Strings.Asc?
    - -！的确失败了，晕……
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • baihe_591
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-06-09 15:25:419楼 得分:0
    失败应该是他程序没有Label3这个控件
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • asppine
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-06-09 15:40:0210楼 得分:0
    我改了。

    C# code
    using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using Microsoft.VisualBasic;//<<==

namespace 字母统计及密码
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        int ZS = 0;

        private void textBox1_KeyPress(object sender, KeyPressEventArgs e)
        {
            int[] a = new int[26];
            char c;
            int Le;
            int i;
            int j;
            int sumc =0;
            string x;
          
            if (Strings.Asc(e.KeyChar) == 13)
            {
                Le = Strings.Len(textBox1.Text);
                for (i = 1; i <= Le; i++)
                {
                    x = Strings.UCase(Strings.Mid(textBox1.Text, i, 1));//问题1
                    c = Convert.ToChar(x);//问题1，自己添加的，但失败
                    if ((c >= Convert.ToChar("A")) & (c >= Convert.ToChar("Z")))//问题2
                    {
                        j = Strings.Asc(c) - Strings.Asc("A");
                        a[j] += 1;
                        
                    }
                }

                label3.Text = "";

                for (i = 0; i <= 25; i++)
                {
                    if (a[i] > 0)
                    {
                        sumc = sumc + a[i];
                        label3.Text += Strings.Chr(i + 65) + "=" + a[i] + " "; 
                    }
                }
                label3.Text += "\n共有" + sumc +"个字母"; // ERROR: Unknown assignment operator ConcatString ; 
            }

        }
    }
}
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • asppine
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-06-09 17:29:2911楼 得分:0
    别沉啊~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • asppine
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-06-10 12:33:3112楼 得分:0
    今天再顶```
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • amandag
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：

    • 2

      5
    发表于：2008-06-10 12:44:4113楼 得分:0
    这个是体力活啊
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • asppine
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-06-10 12:46:2014楼 得分:0
    可给个100分，应该够了吧？我感觉这题目貌似没什么难度吧？就是不大懂vb.net和C#之间的联系，比如类似Len(TextBox1.Text)的LEN```
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • menu_1438
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-06-10 13:19:5315楼 得分:0
    该回复于2008-06-10 14:41:09被版主删除
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • virusplayer
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-06-10 13:31:2416楼 得分:0
    肯定是装2003或者xp，不要装vista
    Len(TextBox1.Text)的LEN就是长度函数，相当于c#的
    textbox1.text.length();
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • amandag
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：

    • 2

      5
    发表于：2008-06-10 13:40:1317楼 得分:0
    C# code
    private void textBox1_KeyPress(object sender, KeyPressEventArgs e)
{
    int [] a =new int[25];
    char c;
    int le,j = 0,sumc = 0;
    
    if((int)(e.KeyChar) == 13)
    {
        le = textBox1.Text.Length;
        for (int i = 0; i < le; i++)
        {
            c = textBox1.Text.Substring(i,1).ToUpper()[0];
            if (c >= 'A' && c <= 'Z')
            {
                j = (int)c - (int)('A');
                a[j] += 1;
            }

        }
    }

    Label3.Text = string.Empty;

    for (int i = 0; i < 25; i++)
    {
        if (a[i] > 0)
        {
            sumc += a[i];
            Label3.Text += ((char)(i + 65)).ToString() + " = " + a[i] + " ";
        }
    }

    Label3.Text += System.Environment.NewLine + "共有" + sumc + "个字母";
}
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • amandag
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：

    • 2

      5
    发表于：2008-06-10 13:41:1318楼 得分:0
    2、弱弱问句，我买了台笔记本，装什么操作系统比较好点？(VISTA?10分)
    ==
    这个无所谓，我喜欢装Windows 2003，但笔记本的一些驱动未必支持
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • whChina
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-06-10 13:42:2319楼 得分:0
    2000系统不好吗?我一直用2000pro
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友