1、以下是一个过程get_a_character的部分代码，需要大家完善代码。该过程实现输入任意一个字符串(s)，该过程执行后从s字符串中任意抽取一个字符，并将此字符返回给变量w

delimiter $$
drop procedure if exists get_a_character;
create procedure get_a_character(in s char(100),out w char(1))
begin
set @len1=char_length(s);
set @a=floor(rand()*@len1+1);
set @xing=substring(s,@a,1);
set w=@xing;
end $$
delimiter ;
call get_a_character('刘王张赵李钱朱何孙曾陈吴黄郑邓周毛江胡',@k);
select @k;